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特集数値演算の熱い逆襲 〇 

68881の並列駆動 / V 70 による 3 D グラフィック/疑似メタボールで遊ぶ 
新製品紹介 MATIER/MIRAGE System Model Stuff 
Z ’ s - EX ジヤギーの除去/繊 DoGA CG アニメーシヨン講座 ver .2.50 I 1992 







“感性”咲かせるヮ- 


•パーソナルワークステーション (2HD3- 5 インチ FDD タイブ.本体+キーボード+マウス） 

CZ -674 C-H (グい-)播準価格298,000円(税別） 

« 15 型カラーディスプレイデレビ 

CZ -614 D-TN (チタンブラック） 一 BK (ブラック）棟準価格135,000円(税別） 

■ディスプレイテレビ/ CZ-6TU 用 RGB ケープル CZ -6 CR 1 楢準価格4,500円（税別） 
■ディスプレイテレビ/ CZ-6TU 用 TV コント a— ルケーブル CZ -6 CT 1 標準価格5,500円（税別) 

• 80MB 内蔵用ハードディスクドライブ 
CZ -68 HA 9 月発売予定 

• 5. 25 インチ增股用フロッピーディスクドライブ 

CZ -6 FD 5 摞準価格99,800円(税別.接統ケーブル同梱： 

春光磁気ディスクユニット 

CZ -6 M 01 標準価格450,000円（税別） 

■SCSI 変換ケープル CZ -6 CS 1 標準価格12,000円(税別） 

籲 2 MB 增設 RAM ポード 

CZ -6 BE 2 D 棵準価格54,800円(税引.取り付け費別） 

■2MB 增設 RAMCZ -6 BE 2 B 標準価格54,800円（税別.取り付け費別） ><2 
■数値演算プロセッサ CZ -6 BP 2 棵準価格45,800円（税別•取り付け費別） 

• 48 ドット熱転写カラー澳字プリンタ 
CZ -8 PC 5 _BK (ブラック）摞準価格96,800円(税別） 

参 MIDI ポード 

CZ -6 BM 1 A 摞準価格26,800円(税別） 

春インテリジェントコント a — ラ 

CZ -8 NJ 2 棟準価格23,800円(税別〉 


SHARP 


多 


目の付けところが、 
シャープで U 。 




POWER WORKSTATION 

インテリジェントなパフオーマンスを誇る X68000Compact XVIと 
多彩 にラインアップされたペリフヱラル。 感性を刺激す るクリエ イ テイ ブな 
ワークステーシヨ ン環境が自在に構築できます。 



XXB8000 

見•体'験フェア 

[コンパクト祭り] 


この夏をより熱くさせるビック、イベント、 X68000 見体験フェア「コンパクト祭り」が名 
古屋に到来0 X68000 ユーザーはもちろん、パソコンおまかせのキミ、そじ C パソコン 
未体験の人もどしどしご参加ください。- Let’s all join in. 

參「第 1 回全日本 X 68000 芸術祭」作品紹介など。 































US 日 000 

IAL WORKSTATI 

Compoct 


PERSONAL WORKSTATION-XVI 


GRAPHIC WORKSTATION 


•パーソナルワークステーション (2 HD 3.5 インチ FDD タイプ•本体 + キーポー ド + マウス） 

CZ -674 C-H (ルー)標準価格298,000円(税別） 

• 2〗型カラーディスプレイ CU -21 HD 標準®格148,000円(税別） 

• 80 MB 内蔵用ハードディス外•ライブ CZ -68 HA 9 月発光予定 


•光磁気 ディスクユニット CZ -6 M 01 檷準価格450,000円（税別） 

■SCSI 変換ケーブル CZ -6 CS 1 播準価格12,000円（税別） 

• 2 MB 增投 RAM ポード CZ -6 BE 2 D 檷準価格54,800円(税別•取り付け 费 別） 
股 RAMCZ -6 BE 2 B 標準価格54,800円（税別.取り付け費別） x 2 
■数値演算プロセッサ CZ -6 BP 2 標準価格45,800円（税別•取り付け資別） 

參カラーイメージスキャナ 



STANDARD WORKSTATION 

• パーソナルワークステーシヨン 

(2 HD 3. 5 イ WFDD タイプ•本体+キーボード+マウス) CZ -674 C - H ( グ 1^-) 棵準価格298,000円（税別） 
• 14 型カラーディスプレイ CZ -608 D*H (グレ-)磲準価格94,800円（税別） 

• 5.25 インチ增投用フロッピーディスクドライブ CZ -6 FD 5 摞準価格99,800円（税別•接統ケーブル同梱） 


TFT COLOR LCD WORKSTATION 

•パーソナルワークステーション 

(2 HD 3.5 ィ WFDD タィプ•本体+キーポート •+ マウス) CZ -6740 H (グレー)棵準価格298,000円(税別） 

• 10.4型カラー液晶ディスブレイ|_01001^(グレー）標準価格598,000円(税別） 

■接続ケーブル AN -1515 X 標準価格4,200円(税別） 

•カラー液晶ディスプレイを接統してご使用の塌合, SX - WINDOW 上のアブリケーシ a ン利肋:限定されます。 




開催日時 :8月21日(金) *22 日(土) *23 日⑻13:〇〇〜16:〇〇 

会場: ㈱ グッドウイル大須メカタウン内（ I 織前津駅) 

名古屋市中区大須 S 052-242-8581 (代 

■主催/グッドウイル■お問い合わせ/シャープエレクトロニクス販売 ㈱ 中部統轄情報第2営業 Q 052-323-5145 代）担当•森 



■お問い合わせは…電子機器事業本部システム機器営業部〒545大阪市阿倍野区長池町22番22号 0(06) 621-1221( 大代表） 

電子機器事業本部 AVC システム事業推進室〒〗62東京都新宿区市谷八幡町8番地 O (03)3260- n 6 U 大代表） V / tr -龙株式会：《； 
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UNIX は AT & T-BELL LABORATORIES の OS 名です。 

Mach はカーネギーメロン大学の OS 名です。 

CP/M, P-CPM, CP/Mplus, CP/M-86 CP/M-68K, CP/M- 
8000, DR-DOS はデジタルリサーチ 
OS/2 は IBM 

MS-DOS. MS-OS/2. XENIX. MACRO80. MS C. MS- 
Windows は MICROSOFT 
MSX-DOS はアスキー 

OS-9, OS-9/68000, OS-9000, MW C は MICROWARE 

UCSD p-system はカリフォルニァ大学理事会 

TURBO PASCAL. TURBO C, SIDEKICK は BOLAND INTER 

NATIONAL 

LSI C は LSI JAPAN 

HuBASIC はハドソンソフト 

の商摞です。その他，ブログラム名. CPU は一般に各 
メーカーの登録商播です本文中では"マー 
クは明記していません。 

本访に撾載されたプログラムの著作椹はブ□グラム 
作成者に保留されています,,蒸作惟上， PDS と明記さ 
れたもの以外，個人で使用するほかの無断掬製は禁 
じられています。 


■広告目次 

アイビット電子 . 180 

アクセス . -184 

計測技研 . 181 

サンワード . 12 

J & P . 表 3 


シティソフト . -16 

シャーフ . 表 2 •表 4 小 4-9 

九十九電機 . 13 

野邊ゲームデザイナーズアカデミ—— 182 

パソコンプラザオクト . 178.179 

ビクター音楽産業 . II 


P & A.14-15 

ブラザーエ業 . 10 

マイコンショップ川口 . 177 

満開製作所 . 176 

ラインシステム . 183 (上） 














































SHARP 



X68000 CompactXVI 

NEWS 


Opinion 1 

广ハードデ f スクが 
l 使いたい。 


Compact 専用の内蔵ハードテンスクが登場します j 
SCSI 仕様の 80 MB 。 場所を取らずに高速 • 大容量ファ 
イノレ環境を実現します。 

■内蔵用ハードデ f ス外ライブ ( CZ -674 C 専用） 

CZ -68 HA -. 9 月発売予定 

* 取りつけに関してはシャープお客様ご相談窓口にてご相談ください(取りつけ費別).， 

さらに大容量をお望みの場合、外付け用の SCSI 端子 
で一般の SCSI ハードデ f スクも接続可能。フルピッチ 
SCSI 端子とハーフピッチ SCSI 端子を接続するための 
SCSI 変換ケーブルも用意して I * 、ま1； 

■SCSI 変換ケープ'ル 


CZ -6 CS 1 ………標準価格12,000円(税別) 


Opinion 2 

( 従来のソフト資産を活かしたい 

これについても、 Compact 専用の外付け5インチフロ 
ッピーデ f スクユニットを用意 U ： いますから、従来の 
68シリーズの資産を有効活用できま1； 3.5 インチと 
5インチの間でのデータのやりとりも可能。また、 CZ - 
674 C 及び CZ -6 FD 5 のスイッチ設定を変えれば、5 
インチソフトからの起動が可能になり、市販ソフトなど 
そのまま使えま1； 

■増設用5インチ•フロッピーデ(スク•ユニット ( CZ -674 C 専用） 

CZ -6 FD 5. 標準価格99,800円(税別） 



Opinion 〇 

( デ (スフ。 レ f テレビを接続したい。 : 

Compact は、従来のシリーズと比べ体積比44%と小さいため、コ 
ネクタの形状も異なっていますが、このケーブルを使用することによ 
り、テ、メスプレイテレビや RGB システムチューナーを利用できま1； 




15 型 カラー デ f スプレイテレビ(スピーカー.チルトスタンド問梱） 

CZ -614 D-TN . 標準価格135,000円(税別） 

デ f スプレイテレビ/ CZ -6 TU 用 RGB ケー•ブル 

CZ -6 CR 1. 標準価格4,500円(税別） 

テ^スプレイテレビ/ CZ -6 TU 用テレビコントロールケーブ^ 

CZ -6 CT 1. 標準価格5,500円(税別） 




















ノ、。ーソナ;レワークステーション 

X68000 CompactXVI についての 
ご意見、ご要望 I こお応えしま1； 


Opinion 4 


Ommon 6 


( メモリ環境をパワーアップしたい。） 


(数値演算プロセッサはほんとに速い?) 


00 mpact は 2 MB のメイ 
ンメモリを標準装備じひ、 
ますが、本体内で最大8 
MB まで拡張できま1； 


容量 

標準 2MB 


4MB 


周辺機器 



拡張 6MB 


8MB 


CZ-6BE2D 


r 


i 

] 

CZ-6BE2B 

r 

i 

I 

L 


CZ-6BE2BX2 


■2 MB 増設 RAM ボード CZ -6 BE 2 D 標準価格54,800円(税別) 
■2 MB 増設 RAM CZ -6 BE 2 B 標準価格54,800円(税別) 

※取りつけに関してはシャープお客様ご相談窓口にてご相談ください（取りつけ费別）。 


Opinion 〇 

液晶デ1スプ W と \ 

SX - WINDOW の関係は？ ノ 

液晶デ< スプレイ ( LC -10 C 1- H 標準価格598,000円•税別)の解像 
度は640 X 480 ドット。 Compact では、従来の X 68000 シリーズの画 
面モードにこの画面モードをプラス。解像度の制約を受けないウィン 
ドウ環境ならではの機能です■このように SX - WINDOW 環境の確 
立により、ハードウェアに依存しない快適な操作環境が実現します。 

1024 

SX-WINDOW の実画面エリア 
1024 XI024 ドット 

SX-WINDOW の通常表示エリア 
768X 512 ドット 

SX-WINDOW 上での 
液晶ディスプレイの表示エリア 

640X 480 ドット 



ご存じのように MPU 6800〇自体は複雑な計算（浮勋小数点演算） 
を単純な計算の組み合わせで行っています。 X 63000 シリーズに装 
備されている浮動小数点演算パッケージ 「FLO AT 2. X 」は、よく使 
う単純な組み合わせをまとめたもの。数値演算プロセッサは、いわばこ 
のパッケージの機能を、ハードウェアで高速に実現し、 MPU の炱 
担を軽くするもので1；アプリケーションプログラムの中には浮動小数 
点演算を必要としないものもあるため、すべてのプログラムが高速にな 
るわけではありませんが、レイトレーシングなど大 M の実数演算を 
必要とするソフトウェアの場合、飛躍的な実行速度の向上が期 
待できます。 

■数値演算プロセ付 CZ -6 BP 2 標準価格45,800円(税別） 

5S 数値演算プロセッサは CZ*6BE2D 上に装清します„ 

※取りつけに関してはシャープお客様ご相談窓口にてご相談ください（取りつけ*別）。 



XKB8000 

PERSONAL WORKSTATION-XVI 


Compoct 


本体+キーボード+マウス 

2 HD 3.5 インチ FDD タイプ CZ -674 C - H (グレー）標準価格298,000円(税別） 

14型カラーディスプレイ （ ドットピッチ0 . 28 關） 

CZ -608 D - H (グレー）標準•価格94,800円（税別） 


■お問い合わせは…電子機器事業本部システム機器営業部〒545大阪市阿倍野区長池町22番22号 0(06) 62卜122〗（大代表） ^ 

電子機器琪業本部 AVG システム事業推進室〒162東京都新宿区市谷八幡町8番地 0(03)3260-1 161(大代表） 







































SHARP 



株 it 会 ： W 〒545 大阪市阿倍野区長池町 22 番 22 号 0(06)621-1221( 大代表) 





入力から、編集、出力、複写まで、カラーの世界は、シャープです3 



SHARP IS COLOR 


INPUT 

X 68000 用ノ、。ラレルインタフェースを標準装備した 
高速コンパクト型イメージスキャナ。 

カラーイメージスキャナ JX -220 X ……標準価格168,000円(税別 ) 

春 A 4 サイズの原稿を約50秒* 1 で高速説み取り籲 CCD センサー採川。さらに中叫，脚処 
理でシャープでリアルな_像を再現♦デイザ，、。ターン指定機能* 2 や濃度補正機能 * 2 
など萵度な画像処理機能て••緻密な読み取りが可能 • 解像度200ドット/インチ(約 7.9 
ドット/ mm )。 ズーム機能で1%きざみの拡大、縮小も可能•色ずれの少ない線順次 (1 
走査)読み取り • X 68000 シリーズ用「スキャナツール」ソフトを標準装備 • プリンタとの 
接接続することによりダイレクトプリント※ 3 が可能 _ RS -232 C 
インタフェース/ X 68000 シリーズ用#用 
パラレルインタフェースを標準装備。 

* 1: A 4、2 値出力、コンピュータへの実転送時間,， 

»2:表記櫬能は JX -220 X 本体使用であり、付厲ユ 
ーティリティ使用時は異なります。 

»3:別売のパラレルインタフェースケープル （ JX - 
22 PC 棵準価格12.000円（税別)が必要です。 



OUTPUT 

3種類の制御コマンドモードを搭載。 

質感も鮮やかに再現する高品位カラーイメージジェット。 

カラーイメージジェット IO -735 X - B ••…標準価格248,000円 ( 税河 ) 


•シャープ独自の10シリーズコマンド ( G モード）に加え、 NM - 9900モード （ N モード）. 
ESC / P 24-84 C 準拠モード ( P モード)をサポート。一般文書の作成から、各褪デザイン、 
建築用パースなどの CAD 分野に対応春発色性に優れた普通紙対応の新黑インキ採 
用。淨川紙はもちろんオフイスでよく使われる:传通紙にも鮮明カラー印’; • プリントバッフ 



ァメモリ （128 KB ) の内葳で、ホストコンピュータの拘束時間 
を蛏減籲48 ノズル（各色12 ノズル)採用の高速印字。 A 4- 
1 ページを *約9〇秒でプリント(データ受信時問除 
<)• ビジネス用途に適した B 4 横用紙幅 


対応 • OHP フイルム （作川）にも鮮明プ 


リント•ノンインパクト方式ならではの静 


谢印字•インキ補允は簡队経済的 


なカートリッジ方式 


* 261X 174mm 領域 


IO -735 X-B 
対応アプリケーション 

• SX - WIND 0 W 対応ペイントツール 

Easypaint wb^gsm 

CZ -263 GW 標準価格12,800円（税別） 

• WYSIWYG を実現、ド Q - グラフィックソフト 

CANVAS E5E3 

CZ -249 GS 標準価格29,800円（税別） 

•オリジナりティを活かせるポップアップツール 

NEW Printshop nissm ver 2 .o 

CZ -221 HS 標準価格20,000円（税別） 


參マルチワープロ l 」:% W ，!1 

Multiword 

CZ -225 BS 標準価格32,000円(税別） 

• 高速カード型リレーショナルデータベース 

CARD ver2.0 

CZ -253 BS 標準価格29,800円（税別） 

參パソコン通信もできるメモリ常駐型ソフト 

Teleportion 

CZ -258 BS 標準価格22.800円（税別） 

參これからの高速通信をサポート 

Communication GSES3 ver 2 .o 

CZ -257 CS 標準価格19.800円（税別） 


資料の ご 請求•お問い合わせは コンシューマーセンター / 東日本相談室〒162東京都新宿区市 谷 八幡町8番地 S (03)3260-1161( 大代表）•西日本相談室〒545大阪市阿倍野区長池町22番22号 
S (06)621-1221( 大代表）•名古屋相談室〒454名古屋市中川区山王3丁目5番5号 S (052)332-2611( 大代表）•福岡相談室〒816福岡市博多区井相田2丁目12番1号 0(092)575-2381 










SHARP 

. 目の付けどころが、 \ 

…;;二 V て•[二…+ 


待望の SX - WIND 0 W 
開発支援ツー ノレ、 登場 0 




本体+キー ボ ード+マウス 
2 HD 3.5 インチ FDD タイプ 

CZ -674 C-H (グレー) 標準価恪298,000円（税別） 
14型カラーデイスプレイ （ ドットピッチ0 • 28mm) 
CZ -608 D - H ( グレー） 標準価格94,800円 （ 税別） 



*5,25 インチ増設用 

フロッピーディスクドライブ 

CZ - GFD 5 

ぼ朽価侪99.800円•税別 

[ 接統ケーブル M 拙〕 


•デイスブレイテレビ CZ -6 TU 川 RGB ケーブル 

CZ -6 CR 1 檔咿価侪4,5001 1 卜税別 

•デイスプレイテレビ/ CZ - GTU 川テレビコントロールケーブル 

CZ -6 CT 1 撺咿価格5.5001 ']• 税別 
參 SCSI 変換ヶーブル CZ -6 CS 1 掠準価济12,00 0 IH •税別 




CZ -288 LWD 9月発売予定 

SX - WINDOW 用のゾフト開発に必要な面発 
ツールやサンプルプログラムを装備。プログラム 
の編集、リソースの作成、コンパイル、デバッグと 
1. 、つた一連の作業を SX - WINDOW 上で効率 
よく 実行で きま 1；初めて SX - WINDOW 用のプ 
ログラムに挑戦する人にも、簡単に基本機能の 
理解が できる 33種のサンプルプログラム 付き。ま 
た 各 マネージャ解説と 関数 リファレンスの 詳細な 
マニュアル も 装備して います。 

※本ソフトのご使用に際しては、メインメモリ 4 MB 以上、 SX-WINDOW 
ver 2.0 以上 、 G compiler PRO -68 K ver 2.0 以上が必要です 



キット構成 


■開発ツール 
* sx デバッガ 

SX - WINDOW ヒで複数のプログラムを同時にデバッグ 
することができるソースコードデバッガ。 

參リソースエディタ 

SX - WINDOW 上のリソースをリゾースタイプごとの編集ウイ 
ンドゥでビジュアルに作成•編集が " f 能。 

籲リ ソース リンカ 

c コンパイラやアセンブラで作成したリソースデータフアイル 
( オブジェクトフアイル）をリンクしてリソースフアイルを作成。 

春サンプルメイク 

サンプルプログラムのコンパイル作龙を SX - WINDOW 上 
から 、 XC ver 2の MAKE . X を呼び出して、自動実行する 
簡钻メイクユーテイリテイ。 

■サンプルプログラム 
擊基礎編 (23 種） 

各マネージャの丛本的な機能のみを HH 、 た椹本勋作の理解。 


♦応用編 (4 種） 

椹礎編での基本機能を応用した簡単なァプリケーション 
の作成。 

♦実用編 (6 種) 

椹礎/応用編での機能を駆使した、実用的なァプリケー 
ションの作成。 

■その他のファイル 
_インクルードファイル 

c コンパイラとアセンブラ用の間数定義、データ定義ファイル。 

♦ライブラリファイル 

c コンパイラ用の_数ライブラリ。 

マニュァル 

• ユーザーズ マニュアル參プログラ 
マーズマニュアル籲ファンクションリ 
ファレンス鲁 ライブラリ リファレンス 




























CZ -275 MWD 8 月発売予定 

他のミュージックゾ 7 卜で演奏中の音色を、簡単に作 d 
ができるマルチタスク機能、またエデ^ット、 イメージ、ウコ 
3 つの 編谁/確認モードを 
装備。作成中の音色も50 
曲の自勋演接でリアルタ 
イムに確認、編集できま1； 

まさにミキサー感党で音創 
りが楽しめる ツールで 1； 



CZ -287 SS 標準価格12,800円（税別） 

フォントマネージャを装備して待望のアウトラインフォント { 
画面スクロール機能により、表示画面よりワイドなデス 
空間を駆使。ァプリケーシ1 
ヨンのハンドリングに便利 
なシンボルトレイやアイコン 
メンテ、パターンエディタな 
ど便利機能満攸。 

*SX-WINDOW verl ,0(CZ-259SS) お 
よび SX-WINDOW verl.1(CZ-278SS) 

をお持ちの方には有!*パージョンアップ 
を行います。 



• 多彩なサウンドクリエイトを実現する FM 音源サウンドェデ 


»ビジネスグラフチヤート 


CZ -267 BSD 標準価格38,000円（税別） 

各種 データベースで 作成した データを もとに、多 
彩なグラフが作成できま1； 3次元表示やグラフ 
の複合機能も装備。テし夕は Multiword,Press 
Conductor PRO -68 K に取り込むこともできま1； 
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► 各種ドライバ、ライブラリを追加 


CZ-285LSD 標準価格44.800円（税別） 



»有價パージョンアップ対応中。 


► 各種エディタ装備のレイアウトソフト 


CZ -266 BSD 標準価格28,000円(税別) 



※以上の PRO シリーズのソフトの動作にはメインメモリ 2MB 必要です .. 

を発光予定のソフトの画面写真は実物とは異なる場合があります 


環境。 ♦マルチタスク機能をはじめ、通信環境がさらに充実。 


二対応。 
クトップ 



CZ -272 CWD 8月発売予定 

通信環境をさらに高めたウインドウ対応の通信ソフトで1；マル 
チタスク機能により他のアプリケーションソフトを実行中でも簡 
単に通信が可能。また、ホ| 


スト局をクリックするだけの 
自動ログイン機能、初心 
者にも簡単なプログラム機 
能、最新モデム (20 種類）| 
も フル サポートしています0 
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レ変更 
:■ーブの 



>ウインドウ対応グラフィックツール。 


CZ -263 GWD 標準価格12,800円（税別） 

マウスによる简単操作、 (5 5,536色中16色の多彩な衷現、クリ 

エイテイブマインドに応えるウインドウ対応ペイントツールで1； 
同時に段数のウインドウを 
開いて編集でき、各ウインド 
ウ問でのデータ交換もで 
きま1； 


«SX-WIND0W 対応ソフトの動作には、メインメモリ 2MB および SX-WINDOW verl. 1 以上が必要です - 


• グラフィック機能搭載の本格派ワープロ 


»簡単操作の統合型表計算ソフト 


CZ-225BSD 標準価格32,000円（税別） 


CZ-286BSD 標準価格28.000円（税別） 





PressConducto 
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CHART P»-60K 


Multiword verl.l 


充実の PRO シリーズ 


SOUND 奴 ㈣ 


Easypaint 坎猶 


Communication 坎孤 


SY-WlNDOWver20 


開いてくださいゥィンドゥ、触れてくださいィンテリジェンス 

さらに拡がる 、 s X ワ 1ルド0 
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籲お問い合わせは…シャープ㈱電子櫬器事業本部 AVG システム事業 m 進室〒162東京都新宿区市谷八幡町8番地 3(03)3260-1 161(大代表)へ:ガ tr -ア〇株從« 






























































〆ぐノコンソフト自販機 


TAKERU 


© ィ I 鱗 • 


アモルファスが作りあげた強カシューティング 
ゲームツール“シューティング 68 K ” o このツー 
ルでユーザーが創り あげたゲームのコ ンテスト 
が行なわれたのは知ってるよネ/応募総数350点 
の作品の中から厳重な審査を経て選ばれたグラ 
ンプリ1作品と優秀賞2作品が TAKERU か 
ら出るそ’っ/アイデア • センス • 技術ともに秀 
でた作品たちを、ぜひその目で確かめてほしい。 


8月20日発売/ 羅¥棚(1 


« 下記の 3 作品が 1 本すつ発売されます。 

シュー テイング 68K ゲームコンテスト J は . 

マイコンベーシック . マガジン誌上で行なわれたものです。 


グランプリ 



「ヴアリストレスナルト J 「三国志一幻伝一 J S 「フェイパー•ザ_〇—ド J 









TAKERU 価格 

¥ 7,8001 

©TAITO 


TAKERU 価格 

¥ 6,8001 

©1989/1990 

マイクロキヤビン 

日月下旬 
発売予定 


ブ今サ_エ讓株式会社 


亍467名古 S 市 UHWS 苗代町？番 


TAKERU 事務局 
(052)824-2493 


秦京苒 *畊 （03)5203-7133 
大阪筲囑蜊 （06)252 4234 


通信販売 


通诂购*を二系穿の方は.ソフト？， け蚋 •氏 

の 上 TAKE RU * 棧尚まて現金■留てわ中し〆み下 > い 

代金 引 №1.1« . 坩金■留て申し込ん t いた方に；*:内 jtrnciM 
















^Vicbor 


REAL-TIME SIMULATION GAME 



発売!! 


X 68000 対応 


奪われた聖杯を取り戻せ！ 

広大な宇宙空間に展開されるロボット•ウォーズ! 

■アメリカで爆発的なロボットブームを巻き起こした話題作いよいよ登場！ 

■3 D ホリゴンの採用による迫真のバトル•アクション 

■ブレイヤ-が自らコックヒットに乗り込みロボットを操縱.リアルなロホット•シミュレーションを体験 
■共に戰うクルーとして41人の傭兵から最大3人まての僱兵の採用により•戦略性もゲームの重要な要素 
■情報収集と賞金稼ぎによってグレイトの高いメックを手にいれて.150の惑星を舞台に任務を遂行 


X 68000 対応 


発売元.. ビ〇夕-音楽産業株式会社 

通1言当社の商品をお近くのバソコンシヨッフてお黄い求めになれない場合.商品名，機檑名.住所、氏名，電話番号を明記のうえ.下 geiim まて 
販売定価フラス3%消費税分を現金塞留にてお申し込み下さい（送料焦料）〒151東京都渋谷区千駄ヶ谷 2-8-16 ヒクター音楽産業株〈通信阪売係〉 


野望が漏卷<!! 

賣癡❿健 I 威士か一職壮■我い, 

平安時代末期、新たに台頭してきた武士「源氏」と、朝廷まで 
も自己の権力の道具にした貴族「平家 j との壮絶な権力關争を、 
リアルタイム•シミュレーションで贈る話題作ついに登埸 

ブレイヤーは源賴耜か源義骚になって源氏の軍勢 
を指揮 L て平家軍と我います。平家を全減させるか、全国に 
築かれた域を制圧するか L て日本を統治 L ます。リアルタイム T 行 
われる合戰や馬迫い玫械戰忍者戰などの变化 
にとんだ4つのアクション•ゲームが、従来のシミ i レーシ 
ョン*ゲームにないトラマ性を加味 L た全く新 L いタイプの 
ゲームになっています。米国生まれの、そ L て米国で大評判 
を呼4だシネマウェア社の「ローズ•オブ•ザ•ライジング 
•サンをパージョンアップ Lt 発壳: 


馬追いのアクション 
敵の武将を倒せ！ 


敵が城を攻撃一兵たりとも城中に 
入れないよう弓で倒せ 


© 1992 VICTOR MUSICAL INDUSTRIES , INC . 


日本全体マップて 
各地の動向を把提 


忍者戦は、手裏剣との戦いだ n 


f 9.800(卿 I ) 




行軍の開始た 


合戦は兵をうまく 


配置して戦術を練れ 


h 


8 月 28 日 


















































■対応画像フォーマット•入 Hi 力機器. 

画像 ファイル 形式 PIC . GL 3 • GLX . IMG . RGB • TIFF ( Mac.TOWNS 互換） 
カラープリンター SHARP IO -735 X • SHARP CZ -8 PC 3 • SHARP CZ -8 PC 5 • 

NEC PC - PR 406 - HP DeskJet 505 
Canon BJ-IOV - ESC/P 系 • PC-PR 系 
SHARP CZ -6 PVI * NEC PC - VCI 0 I 
SHARP CZ -6 VTI 

SHARP CZ -8 NSI - SHARP JX -220 X ( 以上純正パラレルポ 
—ド対応) • EPSON GT -4000 • EPSON GT - 6000 
タブレット WACOM SD -5 I 0 C 

アニメーシヨンツール「うごく ZO 」. スクリーン 
セーバー. 画像 ユー テイリテイ 
CG デザイナー長谷川一光 


モノクロプリンタ 
ビデオプリンタ 
ビデオ取り込み 
カラースキヤナー 


サンワ-ド 

•Sunward 

T 2 I 3 市高津区下作: 


川崎市高津区下作延1043 TEL (044)855-4335 


2次元なのに3次元!? 


リンゴの模様を自動ペインテイン 
グ機能で一気に作成します。 


X 68000 がグラフィック 
ワークステーションに変身! 
マチエールは、 フ1□のデザイ 
ナー集 m がつくったブロの 
ためのペイン h ソフ h です。 
高い機能と使いやすいマ 
クスオペレーションを実現 
しました。 


光源やハイライトを言安定して 
球状に3 D 変形します。 


9月上旬発売予定 


使いやすいスキャナー入力 

スキャナ原稿台のプレビュー表示をマウスで範囲指定する簡単操作。 


高機能なプリンタ出力 

画面の任意の範囲を、最大 A 3 までの自由なサイズでプリントアウトできます。 


大画面編集も思いのままに 

512 X 512 ドット標準画面の解像度では、フィルム出力をじ T 印 
刷物にするには不足です。マチエールではメモリー増設により 
最大 2048 X 2048 ドットの画面をリアルタイムに編集できます。 


複数の画面で快適編集 

512 X 512 ドットを同時に最大 4 画面までもつことができます。（メ 
モリ 2 M バイト時は2画面まで)$会のノ、しツを作っておいたり、2 
つの画面を合成したり、クリエイティブワークの能率が大幅アッ 
プします。画面間の便利な合成機能もいろいろ用意してあります-, 


立体文字の作成も簡単 

どんな図形も簡単に立体表現することができます。 
「書体讎部 j(Zeit 社)のアウトラインフォントや、ス 
キ ヤナでとりこんだ ロゴマークな ども、 マチエー ルで 
立体文字にすれば、ビジュアル交力果も抜群です。 

ABBB 

ティザでフ;レカラーを実現 

マッハ バンドのない美しいグラデーションは、角度•増減率 
とも自由に設定可能、 4 隅の色指定もできます。 

ぼかし -3 次元表示など高度な画像処理も 1670 万色フルカ 
ラーで実現しました。 


多彩な編集機能 

コピー.クリップコピー.シエードコピー•タイルコピー.拡大.縮小 
. 変形•回転.ノ ヽしス 変形. メッ シュ自由変形.円筒 マッピング. 
球面 マッピング. 領域交換•矩形 スクロール •ミラー反転.各種 マ 
スク 機能 


専用ソフトなみの画像処理機能 

ネガ反転•デ Y フューズ.ぼかレモノクロ化•二値化.ランダムノイズ.平滑化. 
鮮銳化.輪郭抽出.レリーフ•モザイク.フレア.コントラスト補正.色変換など 


最後に、 メッシュコントロールに 
よる自由変形機能で変形すれば、 
簡単にリアルなリンゴの完成です。 


ジャギーのない高品質 

拡大•縮少•変形•パース変形•メッシュ変形など、すべて才 
-サンプリングによるジャギーのない高品質を実現しました。 


フロ仕様ペイントツ 


hyper imaqe Processor 


AK 


商標登録申請済 


7mm 

■晒 (.税別) 


マチエ 



















親切と安さの TSUIK く UIVIO 

这 ㈣ “ 




WTrmmm 

\/ OPEN / 

DEP 0!! J 3 モ 2 •街店 

ご来店ください 

0011 ( 242)3199 




ックモの日 


VIP -120 CX 

定価 ¥112,000 

SS^sIL 

m¥7MOO 




アンフイニーシステム 

MIC-68K 

定価 ¥24,800 

特価 

¥/ 9 r 900 


Canon パプルジェツトプリンタ 

BJ -10 VC + 専用プリンタ-ケ-ブル 
特価¥タタ,次%? 


9 /〇 


CZ -8 NS 1 定価 ¥ 188,000 

4?9601 I . 

特価夕,ジジジ 
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ープょりいろんなパソコン •/ どれを選ぶ？ 


ビジネスでバリバリ持ち歩く方へ 
DOS / V 対応の O ADG 仕様 SL ノー ト 
PC - 6700シリーズがお勧め/ 

PC-B781J 

定価 V 630,000 
3.5' 1.44MB FDD1 基 
80MB HDD 内蔵 



ワープロユースが 中心で更に 
DOS/V マシンのソフトを使う方へ 
「霤院 パソコン」がお勧め 

PC-WD1 

シリーズ 

定価¥330,000より 


ツクモ特価販売中/ 



HBBOOO SUPER-HD セット 

CZ-B23C-TN 

448.000 |. 

i 埋カラ - 
ディスプレイ 


ツクモは SONY MO ディスク - 
正規販売代理店です 
これが今一番の人気者/ — 

SONY 3.5 インチ 

光磁気ディスクュニツトセツト 

• RMO-S350(3.5 -光磁気ディス外•ライプ) . ¥235.000 


■ SCSI ケープル" 

• SCSI イ ンターフ；] 


-V6.900 
•V 29.800 


合計定価V271.700 

ツクモ特価販売中 / 

シヤーブ純正 「 CZ -6 M 01 j も 特価販売中 


ツクモ特価販売中/ 

一流メーカー HDD — 

XB 8000 用 

SCSI 八ードテイスク 

100 MB 

ツクモ特価 Y69rOOO 

200 MB 

ツクモ特価 y// ジ，ジジジ 

來 SCSI ポード (CZ-6BSI 定価 V 29.80 0) 


セツト特価！^グタ，ジジジ 

T S ドライブ (xb 酬〇用 ] r 
目のつけどころが 
ツクモでしよ。 

く仕様>*3.5ィンチ 2DD 2HD 2HC 


Bimmm 

PC 福 11 NS/T セツト 

• PC- 的01 NS/T (本体） 

定価 Y 288,000 

♦ 120 MB 八ードテイスク 

定価 Y 1 28,000 
計定価 ¥416,000 

'^&mooo 


-ディスクドライプ 


3 


ンビユ 


一タミュージック （ X 6 的00用） 


• CM-32L 

• SX-68M-U 

• Musicstudio Mu- 1 


Verl メ 


Y 69.000 
Y 19.800 
YI 9.800 


• CM-300 

• SX-68M-II 

• Mu-1 SUPER 


Y 58.000 
V19.800 
Y 39.800 


合計定価 Y 108^600 

ツクモ特価ジジジ 

(消黄税別途 V 2 640) 
クレジット例 （18 回払•税込） 

初回¥5.昍3十月々 ¥5.600X17 回 


合計定価 vn 7.600 

ツクモ特価 F 92,000 

(消費税別途V 2.760> 
クレジット例 （10 回払•税込） 

初回 ¥10. 919十月々 ¥10.000X9 回 


• CM'500 . — 

• SX-68M-I! 

• Mu-1 SUPER 


YII 5.000 
Y 19.800 
Y 39.800 


• CM-64 

• SX-68M-II 

• Mu-1 SUPER 


Y 129.000 
VI 9.800 
V 39.800 


合計定価 Y 1 74.600 

ツクモ特価 F /グんジジジ 

(消資税別通 V 4.230〉 
クレジット例 （15 回払•税込〉 

初回 ¥11.300+月々 ¥10.500X14 回 


含計定価 Y 188.600 

ツクモ特価¥ r 54,000 

(消費校別® V 4.620〉 
クレジット例 （18 回払•税込） 

初回 ¥10. 扣〗+月々 ¥9.800X17 回 


1 この他の組み合わせは、お問い合わせ下さい。 003-3251-9911^ 

+ Mu-1 Verl.Wi3.5< ンチのメディアはありませんのでご注意下さい。 


□ーラン F 

追加 7 T フシ ヨン機器 


ステレオマイクロモニター CS-10 
MIDI キーボード コン トローラー PC-200 


定価 YTTrOOO 
定価V对^00 


フォーマット対応の為、いろいろな 
フォーマットのメディアを読み害き 
ができます。•ユーテイリテイソフ 
卜付属（デイパイスドライバー/フ 
ォーマッター） 

※初代 X 68 K は ROM 交換が必要です。 


コンピュータアート- 

► INPUT< 


X 88 D 0 D シリーズ専用3 . 5インチフロツビ- 

TS -3 XR シリーズ 

路 rrs -3 XRi 定価 Y 44,800 

特価 F 55,5 (消費税別途 v し 074 ) 

消ィン 5 TS -3 XR 2 定価 ¥57,800 

特価 F ダグ , 印ジ ( 消費税別途れ _ 

※只今開発中。 X 68000 CompactXVI 用外付け5インチ FDD 

メモ U —ボード 


JX -220 X 

A 4 サイズカラーイメージスキャナー……定価 YT ^ rwe ~> 

T STAFF PRO-B8K Ver.3.0 

S 対応タブレットセット 

WACOM 製 

SD-510C タブレット . V98.000 

TJ-410A-2 接統ケープル……V6.000 

SP-200 スタイラスベン . V 10.000 

ッァイト Z.，STAFF PRO-68K 

Ver. 3.0.Y 58.000 

合計定価VI72,000 

►OUTPUTS 

■ IO -735 X-B 

カラーイメージジェットプリンター . 

■ BJC -82 GJ 

カラーパブルジェットプリンター…… 

■ CZ - BPC 5 -BK 

カラー熱転写プリンター . 



ツクモ特価 

\ 145,000 


•定価 

••定価 

•定価 ¥9^7800. 


■1 M 巳 増設 RAM ボード （ cz-eooc 専用） 

ツクモ特価 y /ク 

■ 1MB 増設 RAM ボード （ace pro pro 2 シリーズ用） 

ツクモ特価 VV 7, か?ク 
■2 MB 增設 RAM ボード (拡張スロット用） 

ツクモ特価 \ 33,^00 
■4 M 巳増設 RAM ボード （拡張スロット用） 

ツクモ特価 V 5 ヂ,扣〇 

※計測技研のメモリーポードも取り扱っております。価格に 
ついてはお晷ね下さい。 

パソコン通信 - 

時代は9600ボーへ.ヴ 

■モデム 9600bps MNP5 & CCITT V. 42bis 

ツクモ特価 V 69,^00 
■通信ソフトた〜みのる2 

■ ツクモ特価 V /ふひ％? 

電子文具 - 

シャープ電子マネジメント手帳 

タイムマネージメントを管理する便利ツール新 g 塌/従来の霣子シ 
ステム手格用 1C カードがそのまま使えます。次から次へと、忙しい方 
への為の強力な助っ人。大画面•大容量•手害き入力て操作効串 
向上/，;•更に、便利な名剌読み取り機 「PV •日 Rh もお勧めです。 

PV - F 1 播準価格ハ 28 ,000 ツクモ特価販売中./ 


全国とこからでも通話料無料 

通信販売のご注文は下記フ 1 J ーダイヤルへ。 

クレジ ッ ト払い 

月々 V 3 . 000以上の均等払いも通金 
なし、夏•冬ホーナス2回払いも 
受付中/ 

各種リ ー ス払し、 

くわしくは各店にお問い合わせ下 
さい。ケースに含わせてご相议に 
のります/ 

現金書留払い 

〒10卜91柬京拥千代田区神田 
郵便局払害箱135号 
ックモ通販センター Oh / X 係 

0120- 377-999 

awEtz ^ ター 03-3251-9911 

力ード払い 

通價明光て•の御利用力ード、ツクモ 
グローバルカード， VIF •カード，セン 
トラル，ジャックス 4 .供)本人櫛より 
電1»で通 RS 8 B へ お申し込み下办い 

全国代金引き換え配達 

お申,し込みは 003-3251-9911 へ 
お電話1本/ 

配逮日の指定もでさます0 

銀行振込払い 

事前に〇でお®け先をご a 輅下さい0 
三 和紐行秋葉/*支店（普）1009939 
ツクモデンキ 




ツクモは「ス -パ -X PRO SHOP 」 です。 - -1 

&: y OT □ 

九十九職㈱ 1 ハ•ソコン 義 

〒101-91東京都千代田区神田郵便局私書箱135号 - 

★商品のご注文は在庫確認の上お願いします,★表示価格には消費税は含まれておりません。 


713 Z 14°% I *°1 ^ i*5|prfcOt バソコン本店代表 

ノノ玄/ V ノー〆 003-3253-5599 

©03 碰 53-1 職麵) 

■ツクモ =2- センタ Hg S03-3251-09B7( 担当/沢栄)休毎週木昭 
■名古屋1号店 3052-263-1655( 担当/吉高)休毎週火附 

(但し9/15は営業） 

■名古靥2号店 S052-251-33 的(担当/横山)休毎週水阳 
■ツクモ札糨店0011 -241-22 的(担当/田口)休毎週木限 
■DEP0 ツクモ2關店〇01卜242-31的(担当/四条)休毎週木躍 

逆定休日か1兄日と重なる場合は営業致します。 






































































































X 68000 CompactXVI / XVI / XVI-HD 


今月の特選//特価品 


※送料¥2,000、消費税別 


■ Compact XVI さらにお安くなります。 
■ • CZ-B74C-H 

/ J|UI • CZ-608D-H 

■E *CZ-6FD5(5 FDD) 
定価 ¥492 刖〇 

p&a 超特価 M 320560 0" 

(«X68000 サービスゲーム全て付いています。） 

(モニターを CZ-606D に変更の場合¥10,000を引いて下さい） 


X 68000 -CompactXVI •ディスケグト脆•ジョイか■ド 2 ケプレゼント中.グ さらにお安くなります 0 

® セッド CZ -674 C + CZ -608 D . 定価 ¥392,800 ►特価 M 2841000 

[ J 2 回 L 24,700 L 24 回 _1 13」000丄36回し9,006回 1= 7,000「60回 T 5.9001 


X 68000- X VI ► セットでお買い上げの方に • ディスケット10枚•ジョイカード2ケプレゼント中" 
® セット： CZ-634C-TN+CZ-606D-TN ……定価 ¥447,800 ►特価 価格は TEL 下さい, 


12回] 26,200 124回]13.800 136回 I =9,600 ；[48回 IIL 500 ]60回 l =6,3 M 


(©セット： CZ-634C-TN+CZ-614D-TN ……定価 ¥503,000 ►特価 価格は TEL 下さい, 


□ 2 回 1:29,700]24回 I ]5,700 [36 回 110,800 14811 if 8.200160 [ Hi 7.100 


右記セツトでお買い上げの方にもれなぐ7レゼント// 
①「ダウンタウン熱血物語(判.咖)」 

はもちろん、さらにその上、人気の 
④ 「u-4 ズ島戦記(¥9.800)」 

〇 1 ■グラデ(ウ又11(¥9,800)_1 
办「ザ.プ u サッカー 6B (¥9,800)j 
，二/信長の野望武将風雲録(¥9.800)」 

朮 「ELLE (エル)(¥7.8咖」 

の中のいずれか2本をプレゼント// 


X 68 DD 0- XVI - H □►セットで お買い上げの方に•ディスケット川枚•ジョイカ-ド2ケプレゼント中." 
® セット： CZ-644C-TN+CZ-606D-TN ……定価 ¥597,800 ►特価 価格は TEL 下さい 


II 2回丨35,700 124回丨18,800 136回 I 13.000 148回 I 10.200 1:60回 I 8,600 


0 セット： CZ-644C-TN+CZ-614D-TN ……定価 ¥653,000 ►特価 価格は TEL 下さ L 


[12 回[39,000 [24 回] 20,60 0] 36回〔14,3001]8回 [1 U 200 |_6〇回』9,400 


※上記のモニターを、 CZ-606D (定価 ¥79,800)、CZ-6(MD (定価 ¥94,800)、02-6070(定価¥99,800)エ2-6050(定価¥115,000)、 
CZ-608D (定価 ¥94.800)、CZ-614D (定価¥135.000)、〇1>211^(定価¥148,000)に変更の場合、丁£し下さぃ。起特価で販売致します。 


X 68000 シリーズ〜 PSA スペシャルセツト 


('送料¥2,000•消費税別） 


cm スペシャルプレゼント// 

★ iawsHana には、 

上記の①をプレゼント 

★ ■如 .art には、上記の 

①+④〜 ® の中の2本をプレゼント 


ベリ価格で大奉仕中 


>ディスケット10枚、* ジョ 仂ード2個プレゼント中 


SUPER-HD 


p&a 特選 セット 

® セット: _CZ-623C-TN (単 品) . 定価 ¥498,000 ►特価 ¥ 199,000 

⑧セッ ド _CZ-623C-TN+CZ-606D . 定価 ¥577 ,800 ►特価 ¥ 254,000 

©セット: _CZ-623C-TN+CZ-608D . 定価 ¥ 592 , 800 ►特価 ¥ 267,000 

⑬ セット: _CZ-623C-TN+CZ-607D . 定価 ¥ 597 , 800 ►特価 ¥ 269,000 

⑥ セット: _CZ-623C-TN+CZ-6MD . 定価 ¥ 633 , 000 ►特価 ¥ 289,000 

©セット: _CZ-623C-TN+CU-21HD …….定価 ¥ 646 , 000 ►特価 ¥ 299,000 

igaaii p&a 特選 セット 

㊇セッド _CZ-653C (単品） . 定価¥ 285 , 000 ► 特価¥ 138,000 

⑧セッド BCZ-653C+CZ-606D . 定価 ¥ 364，800 ► 特価 ¥ 195,000 

©セッド BCZ-653CH- CZ-604D . 定価 ¥ 379，800 ► 特価 ¥ 197,000 

⑬セット： BCZ-653C + CZ-608D . 定価 ¥ 379,800 ► 特価 ¥207,000 

⑥セッド ■CZ-653C + CZ-607D . 定価 ¥ 384，800 ► 特価 ¥209,000 

②セット： _CZ-653C + CZ-614D . 定価 ¥ 420，000 ► 特価 ¥229,000 

◎セッド BCZ-653C + CU-21HD . 定価 ¥ 433 ， 000 ► 特価 ¥239,000 



X 68000 用 A - ドディスク 

プリンターが' i ^ r 0 ' 1 

餳 ① LHD-FMI00E (口 好ック） 
Mag 定価 ¥99,800 

_㈣八 超特価 TEL 下さぃ_ 
.2LHD.FM200E (□ジテック） 

定価 ¥138 細 
kP&A 起特価 TEL 下さい。 

③ HD-J 100 (システムサコム） (¥128,000). 

(送料•消費税込み ¥87, 550) … •►特価 ¥ 84,000 

④ HD-J130( システムサコム）(¥148,000) 

(送料•消費税込み ¥104, 030) •••►特価 ¥100,000 

⑤ HD-J 170( システムサコム） (¥189,000) 

(送料•消*税込み ¥121.540) … ►特価 ¥117,000 


■CZ"8PC5-BK 定価¥ 96,800►特価 糊厕 
■CZ-8PK1D". 定価¥ 97,800►韻 ¥71,000 
■CZ-8PG2 -.•.定価¥ 1M, m ►特価 価格は tel 
■CZ-8PGI •■- •定価¥130,000特刪格师し 


モテム I PSA 特選パソコンラック（消費税別）(送料無料） 


① 3 段 ¥7,900 ㊣4 段 ¥8,800 ② 5 段 ¥12,500 


■ PV-M24B5 

(AIWA) (定価 ¥39,800) 

►斗 寺価 ¥25,000 

(送料•消費税込み ¥26,780) 

■ MD-24FB5V 

(オムロン）（定価 ¥ 39,800) 

►特価 ¥25,500 

(送料•消®税込み¥ 27,295) 

■ FMMD-311G 

(富士通）（定価 ¥35, ,800) 

►特価 ¥24,800 

(送料•消費税込み ¥26,574) 



1230(H) 

X 

600(D) 

X 

650(W) 

/消費税\ 
込み 

'■¥9.064 / 


.M. 

广 


⑶ 0(H) 
X 

700(D) 

X 

640(W) 

( H ) 

'哪/ 


全植種=移動自由(キヤスタ-付) .5 段のみ=キ-ボ-ド 可能、縣コ-ド付 (2.5m)(2P) 


.本広告の掲載の商品の価格については、消費税は含まれておりません。#営業時間=平日 AM 10:00 へ PM 7:00、 日祭 AM 1 C ):00〜 PM 6:00 


P & A ならではの 


新品パソコン 


《業界 Nal の" PSA メンテナンスサポート》 

① 業界最長の新品パソコン5年保証 

( ※ モニター •プリン ター 3 年間保証.グ※一部商品は除きます >) 
㊣ 中古パソコンの1年間保証 
(モニター •プリンター6ヶ月間保証） 

② 初期不良交換期間3ヶ月 

(※新品商品に限らせていただきます） 

④永久買取保証 
©配達の指定 OK // 

⑮夜間配送も OK // 

は阳6:00〜 PM 8:00 の間※一部地域は除きます)） 


増設メモリー&数値演算ブ a セツサ 計測 技研 


1 PRKII-02(2M) ……定価 ¥ 55,000 ► 44 WiV 39,800 

2 PRKII-04(4M) ……定価 ¥ 90,000 67,000 

3 PRKII-06(6M) ……定価 ¥ 125.000 ►特価 ¥ 92,500 

4 PRK1I-08(8M) ……‘4：価 V 160.000 ►特価 ¥119,000 

5 PRKII-12(2M) ……定価¥ 85.000 ►特価 ¥ 631000 


BPRKII-I4(4M) .…定価 ¥120,000►特価 ¥ 89,500 

7 PRKIM6(6M ).. 定価 ¥ ISS, 000►特価 ¥114,500 

8 PRKI!-18(8M ) …定価 ¥ 190,000►特価 ¥141,000 

9 MC-68881RC ……定価 ¥ 38,000►特価 ¥ 27,000 


I I 

I 


カラーイメージジェット 

■ IO -735 X -巳 

定価 ¥ 248,000 

特価 ¥152,000 

(送料•消费税込み ¥157,590) 


■SX-68M [I (MIDI) 


(送料•消費税込み¥14, 420)1 


: I；™ ■ 娜。 。 

特価 

¥36,500 

(送料 •消费 税込み ¥38,110) 


_HGS-68( スキャナ） 
(HAL 研)定価 ¥39,800 

特価 ¥24,500 

(送料•消*税 ¥ 26,265) 


① 翌月一括払い手数料無料(ご利用下さぃ。） 

㊣ 業界 Nal の低金利 

② 月々の支払いは¥1，□□□より 

④9ヶ月先からのスキップ払い OK // 

©日4回までの分割、ボーナス併用 OK // 
©カレッジクレジット 
⑦ステップアップクレジット 
⑬ボーナスだけで10回払い OK // 

⑬現金一括払い〇«ガ 

(※商品•金額ご確認の上、銀行振込•現金害留にてご入金下さい。） 


8 / 18 - 9/17 


|X 68000 メモリボード (I / 〇 • data ) (送料 ¥5〇〇) 

,① SH-6BE1-1M(600CE 用）定価 ¥25,000 

I (送料•消費税込み ¥18.952) •特価¥17,900 

② PIO-6BE1-A 定価 ¥25,000 
(送料•消費税込み ¥ 16, 583 ) •.特価 ¥15,600 

⑧ PIO-6BE2-2M 定価 ¥ 50,000 

(送料.消費税込み¥ 32, 239) •.特価 ¥30,800 

④ PIO-6BE4-4M 定価 ¥ 88,000 

(送料•消費税込み ¥ 55,620 )- 特優 ¥53,500 


FDD (5 インチ X 2 基） 

■ CZ-6FD5 

(シャープ )（ 定価 ¥99,800) 

P&A 起持価 // 
TE し下さい 0 


注目//:冬のポ I ナスー括払い手数料(金利)無料 ( 5 










































































































































♦Z.s STAFF PRO 68 K Vor3.0( ッアイト） 

♦Z s TRIPHONY デジタルクラフト（ッアイト） 

.テラッッォ（ハミングパード） . 

♦マジックパレット（ミュージカルプラン） . 

♦ G ツール（ザインソフト〉 . 

♦た一みのる 2(SF»S> . 

♦Mu-1 SuDor. 

♦サイクロン EXPF?ESSc»68 

♦ KAMIKAZE (サムシンググッド〉 

♦C-TRACE68 Vor3.0( キヤスト） . 

♦G68K Vor.2 PRO. 

^C&Professional Pack (マイクロウェアジヤノ《ン〉 . 

♦Final Ver3.2( エーエスビー〉 

♦CZ-213MSD MUSIC PRO 68 K . 

♦CZ-214MSD SOUND PRO 68 K 
♦CZ-215MSO Sampling PRO 68 K 
♦CZ-220BSD DATA PRO 68 K 
♦C2-224LSD The 權袋 Vor2.0 

♦ CZ-225BSO Multiword Vor 1.1. 

_CZ-243BSD CYBERNOTE PRO 68 K . 

♦CZ-247MSD MUSIC PRO 68 K MIDI] 

♦CZ-249GSD CANVAS PRO 68 K 

‘CZ-251BSD Hyper word. 

♦CZ-253 日 SD CARD PRO 68 K Vor2.0 

♦CZ-257CSD Communication PRO 68 K Ver2.0 . 

•CZ-258 日 SD Toloportion PRO 68 K . 

♦CZ-261MSD MUSIC studic PRO 68 K Vor2.0 . 

♦CZ-263GWD Easypaint SX-68K . 

♦CZ-265HSD New Print Shop Vor2.0. 

‘CZ-266BSD Press Conductor PRO 68 K - 
•CZ-284SSD OS-9/X 68000 Vor2.4 

♦CZ-285 し SD C-Compiler PRO 68 K Ver2 . t . 

♦CZ-286BSD BUSINESS PRO 68 K Popular 

♦CZ-287SS SX-WINDOW Vor2.0 . 

☆ゲームソフト 25%OFF OK •グ（一部ソフト除く） 


定価 V 58.000 ►特価 Y 36,500 
価 '/39.800 ► 特価 V27,000 
•.定価 V 1 9 • 400 ►轉 硕 13,600 
-定価 V= 19.800 ►特偭 VI4,200 
• + 定価 V28.000 18,600 
… 定偭 VI7.800 ►特価 VI3,000 
… 定価 ¥39. 800 ►鴇価 V28,500 
定価 ¥98.000 ►特価 ¥69.000 
■■定価 V 68.000 ►特 fflbY 43,800 
+ •定価 V98.000 68,500 
••定価 V 22.000 価 Y1 7,300 

… 定価 ¥58.000 ►鴇他 V39,800 
••定価 V38 • 000 ► W 価 V29,000 
■•定価 VI8.800 ►特価 ¥13,200 
••定価 VI5.800 価 VI1.300 
■■定価 7.800 価 VI2.500 
««bV 58.000 価 V40,000 

■•定価 V 9.900 ►待 価 V 7,400 
'•定価 V32.000 ►栲価 ¥23,000 
••定価 9.800 ►WKAjVI 5,000 
■.定価 V28.800 ► tOfdBV 20.500 
■'定価 V29.800 ► W 価 ¥22,000 
■定価 V39.800 ► t# 価 V29,400 
•■: 3 ?価 V29.800 価 V22,700 
•■定価 V 丨 9.800 ► 恃 f® VI5,300 
定価 V22.800 ►拎価 yi 6,900 
••定価 V 28.800 ► 特《 6¥2 1,200 
■ + 定価 V 丨 2.800 ► W®V 9.800 
… ； i ： 価 V 20 • 000 ► 価 V15,400 
定価 V28.800 ►轔価 ¥22,000 
•■定価 ¥ 35.800 ► KI 儀 Y 25,600 
it-fffiV 44.800 ► KHasV 32,500 
定価 V 28.000 ►” fflfi¥20,500 
•■定価 VI2.800 ►_ 価 ¥ 9.800 


$CZ-8NS1. 定価 V 188 . 000 ►•特価 ¥1331000 

C|)CZ-6VT1. 定価¥ 69.800 ►特価 ¥ 49,500 

念 CZ-6TU. 定価 Y 33.100 ►特価 ¥ 23,900 

®BF-68PRO. 定価 ¥ 19.800 ►•特価 ¥ 14,400 

® CZ -8 NM 3. 定価 Y 9.800 ►特価 Y 7,200 

cfcz-8NT1. 定価 ¥ 13.800 ►特価 ¥ 10,000 

0)CZ-6BE2A. 定価 y 59.800 ►•特価 ¥ 421800 

CDCZ-6BE2B. 定価¥ 54.800 ►特価 ¥ 39,300 

C9)CZ-6BE2D. 定価 ¥ 54.800 ►•特価 ¥ 39,300 

13CZ-6BF1 . 定価 Y 49.800 ►特価 ¥ 35,800 

CJ^CZ-6BP1. 定価¥ 79.800 ►特価 ¥ 57,000 

(TJCZ-6BM1. 定価¥ 26.800 ►•特価 ¥ 19,300 

I3C2-6EB1 . 定価 Y 88.000 ►特価 ¥ 63,000 

UAN-S100. 定価¥ 36.600 ►特価 ¥ 26,300 

1SCZ-6SD1. 定価¥ 44.800 ►特価 ¥ 32,500 

ISCZ-6BN1. 定価¥ 29.800 ►特価 ¥ 21,500 

ir ； cZ-6BV1. 定価¥ 21.000 ►特価 ¥ 15,200 

⑭ CZ-6BC1. 定価¥ 79.800 ►特価 ¥ 57,000 

(JICZ-6BG 1 . 定価 Y 59.800 ►特価 ¥ 43,000 

对 CZ-6BU1. 定価¥ 39.800 ►特価 ¥ 28,500 

2ICZ-6PV1 . 定価 V 198 . 000 ►•特価 Y 142,000 

22CZ-6BS1. 定価¥ 29.800 ►特価 ¥ 21,500 

2ICZ-8NJ2. 定価 Y 23.800 ►•特価 y 17,500 

MCZ-6BL2. 定価 ¥ 298. 000 ► 特価 ¥214,000 

C2SJX-100S. 定価 Y 89.800 ►特価 ¥ 44,000 

C2SJX-220X 定価 ¥ 168 . 000 ►特価 ¥ 121,000 

$t)IO-735XB . 定価 Y 248. 000 ► 特価¥154,000 

愈 LC-10C1H. 定価 ¥598. 000 ►特価 ¥459,000 

@CZ-6CS1(674C 用） . 定価 ¥ 12.000 ►特価 ¥ 8,900 


!翳_?下 ち 03-3651-1884 鼪謂， 

■下取り•買取りで、お急ぎの方は、直接当社に来店、または宅急便にてお送り下さい。 


買取り価格…完動品•箱 マニュアル 付属品付の価格です。 


籲下取りの場合……価格は常に変動していますので査定額をお電話で確認して下さ 
い 〇 ( 差額は、 P & A 超低金利クレジットをご利用下さい〇 ) 

•買取りの場合……現品が着き次第、2日以内に買取り金額を連絡し、振込み、又は 
書留でお送り致します。 

•近郊の方は、 P&A 本店まで、直接お持ち下さい。即金にて、¥1,000,000までお支払い致します> 


• 最新の在庫情報 • 価格はお霣話にてお問い合せください .. 

• 貢い取りのみ、または、中古品どうしの交換も致します j 羊しくは電括にて、お問い合せ下さい。 

• 価格は変動する堪合もございますので、ご注文の際には必ず在庫をご確認下さい 
• 本商品の w 載の価格については、消費税は、含まれておりません。 

鲁現金書留及び货行振込でお申し込みの方 U 、 上記商品の*4金に3?6加算の上でお申し込み下さい。 RUtt 、 お電話で fe •問い合せ下さい。 


>定休日/毎週水曜日 



•CZ-634C ¥170,000 

•CZ-644C ¥230,000 

•CZ-604C ¥100,000 

•CZ-623C ¥138,000 

•CZ-603C ……… 〜¥ 85,000 

•CZ-613C ¥105,000 

•CZ-653C. ¥ 75,000 
•CZ-663C ………〜¥ 90,000 


•CZ-602C ¥75,000 

•CZ-612C ¥85,000 

•CZ-652C ¥55,000 

•CZ-662C ¥75,000 

•CZ-611C ¥68,000 

•CZ-601C ¥45,000 

•CZ-600C . ¥45,000 


注 

目 

!! 

冬 

の 

ボ 


新品 

下取り 

CZ -634 C 

モニターセツト 

CZ -644 C 

モニターセット 

モデル 

UX 20 セット 

モデル 

CX 20 セット 

9801 DA 2 

CZ -623 C 

モニターセット 

150,000 

270,000 

70,000 

160,000 

130,000 

CZ -613 C 

モニターセット 

190,000 

290,000 

100,000 

190,000 

160,000 

CZ -652 C 

モニターセット 

230,000 

340,000 

150,000 

240,000 

220,000 

CZ -604 C 

モニターセット 

180,000 

290,000 

100,000 

190,000 

160,000 

CZ -600 C 

モニターセット 

230,000 

340,000 

150,000 

240,000 

220,000 


〔現金一括でお申し込みの方〕 

•商品名およびお客様の住所•氏名•電話番号をご記入の上、代金を当社まで、現金 
書留でお送りください。(プリンター•フロッピーの場合、本体使用機種名を明記のこと） 
〔銀行振込でお申し込みの方〕 

•銀行振込ご希望の方は必ずお振込みの前にお電話にてお客様のご住所•お名前 • 
商品名等をお知らせください。 

(電信扱いでお振込み下さい。） 

〔クレジットでお申し込みの方〕 

參電話にてお申し込みください。クレジット申し込み用紙をお送りいたしますので、ご記入 
の上、当社までお送りください。 

•現金特別価格でクレジットが利用できます。残金のみに金利がかかります> 

•1 回〜 84 回払いまで出来ま 1 •。但し、 1 回のお支払い額は ¥1000 円以上 c * 

超低金利クレジット率 



■ 

i 

I 

i 

I 

3 

f . 

* 

% 

い 

1 

を 

I 


回数 

3 

6 

10 

12 

15 

24 

36 

48 

60 

72 

手数料 

3.0 

4.0 

5.5 

5.5 

8.5 

11.5 

16.0 

21.0 

27.0 

33.0 


マイコン 

専門 

ショップ 


RsA 


株式会社ピー.アンド.エー ? S ： oo ~ P M7 ：oo 

〒124東京都葛飾区新小岩 2 丁目1番地19号 日祭: AM10:00 〜 PM6:00 

©03-3651-0148 (代)蹈_41 


《便利な超低金利クレジットをご利用下さい》 

•月々 Y 1.000 円から 0K. グ•ホーナス払い 0K (夏冬 10 回まで 0K) 
•支払い回数丨回〜 84 回•お支払いは、 8 ヶ月先からても OK' 


〔振込先〕住友銀行新小岩支店 
普通預金1451576株ピ-•アンド •；!- 


中古•高価現金買取り下取り OK /7 


通信販売 お申し込みの ご 


下取り交換差額表 


周辺機器 コーナー （送料 ¥500 •消費税別) 


買取り価格 


•お近くの方は、お立寄下さい。専門係員が説明いたします。 

* 本体単品でも受付します ^ 詳しくは、お電話にてお問合せ下さい。 

• ビジネスソフト定価の 15% 引き 0 K .グ TEL 下さい。 

_ 現金窨留及び銀行振込で お申し込みの方は、 上記 商品の 料金に 3 %加算の上でお申し込み下さ 
い g 羊し くは、 お霣 ■ 舌でお問い 合せ 下さい,， 

X68000 用ソフトコーナー(送料1ヶ〜5ヶまで¥500•消費税別） 


_ _ . _ _ _ _ _^二—— 

PSA 特選=今月の中古特選品 


秋葉原 っ^ィ|超特価セ _ ル 

でぉなじみの力 ミ ，へ/でご奉仕ガ 





春価格は流通事情により変動致しますので、銀行振込•書留等の送付前に、あらかじめお電話にてご確認下さい 0 


























































































































•ROCHDALE 




L 二 - 


変換効率の良さで定評の高い “ FIXER Ver 4.0” I ，~ 

«. llmm ■ .% «_ _•>■■•■■ > ^ m^rn J | 丄- ■.■«•_■ 一 ■一 1^ /' ll : \ a «'» 


X 咖 WJ 版がキーアサイン、 FP コール対応により 、 M "1,§^ ： ,#： 

555ワ:齐?よ?？，プ V ケーシヨンで 1!: J 纖 


御使用いただけるよ5になりました。 


(*i.Wallas 


Wallasey 〇 ； ft- 

，:璋義 






























MAGAZINE 


パソコン選びの総合テスト情報誌 


miymj 


特集1 


9月号! 


|毎月18日発売 
I定価640円(税込) 


目的別システム構築術 

PC -9800完全武装 


JAPANESE EDITION ビジネスからホビーまで、 pc - 9801 fa 、 pc - 9801 ns / t をマルチに使いこなす 

特集2 



PC - 9800 + DOS / V、Mac 

これで解決!異機種間データ共有法 


►低価格カラーインクジェットプリンタ DeskJet 505J 
►Windows 用ディスクユーティリティ Norton Desktop 
►HDD 容量を倍加する圧縮ツール DISKXII 




C 言語技術情報誌 c マガジン 


Q RJS . 定価980円(税込） 
毎月18日発売 


監修:石田晴久 



^ 提携 : COMPUTER LANGUAGE 誌 

特集 porland C++ Ver.3,0 研究 

:.レプロローグ Turbo C から Borland C ++ へ 


DOS/V ユーザ必読 

PO9801 フォーマツト 
を IBM 互換機で読む 


好評連載 


実践 c プログラミング入門 
C++ 入門講座 • Try The C+ + 
新 MS-DOS プログラミング入門 
COMPUTER LANGUAGE 誌提携記事 


Part I 

Part II 

Part HI 
.PartIV 




Who’s Miuding the Store ? Referevce Counting in C + + 


Bq ++ の機能 
C 言語としての BC++ 、 C+ + としての BC++ 
APPLICATION FRAMEWORKS 
Turbo Vision、ObjectWindows 
新しい統合環境 (Turbo C for Windows) 

BC+ 十の今後の展開 (BC++3.1) 

• 1.2 M 2 HD 読み込みデバイスドライバ 「 JAPAN 2 HD 」 

• メニュープログラム 「GASj 
• テキスト整形プログラム 「 Efin 」 

• アウトラインプロセッサ 「 Ofin 」 

* 本誌掲載ソースプログラムほか 


SOFT 

BANK 


ソフトバンク出版事業部 

亍108東京都港区高輪 2-19-13 NS 高輪ビル 
TEL : 03-5488-1360 



























月刊 PC 10月篇刊 


モノが主役の、まったく新しいノ \°ソコン誌です。 









面白くない. 






SOFT 

BAIMK 


「 PC 」 では、投稿を募集します! 


新 パソコン 情報誌 pc は、 パソコン ユーザー參加型メディアです> 
あなたの生の声を、広く全国の パソコン ユーザーに伝えます D 


実際にノぐノコン関連製品を使ってみて、肌で感じた製品の良かった点、ガッカリした 


点を書いて、他のパソコンユーザーに教えてあげてください。 


秋葉原通信、ハードやソフトのオリジナル活用法、サボートの不平不満、長期稼働マシ 
ン自’ I 曼 etc . …。さまざまなコーナーを設けて、あなたの原稿をお待ちじ r います。 


I 破格の原稿料てお応えします！ 1 

■ 採用分の投稿には原稿料をお支払いいたします。投稿は ■ 
原稿用紙でもフロッピー ( DOS フォーマット)でも0 K 。ただ ■ 

|し原稿は400字詰で7枚までとさせていただきます， 

■ 宛先は 

〒丨08東京都港区高輪 2-19- 13 NS 高輪ビル 



ソフトバンク ㈱ 出版事業部 「月刊 PC 」 投稿係 j 

■■■■■■■■ 国 〆 


ソフト/\ンク株式会社 

出版事業部〒108東京都港区高輪 2-19-13 NS 高輪ビル 
TEL 03-5488-1360 FAX 03-5488- I 364 
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HE SOFTOUCH 


nt 

iiiii 

8 月 28 日に「ポピュラス IIj が発売される0 
前作のようにハマる人は多発するのだろう 
か？ ヱグザクトの 「Etoile Princesse 」 が 
9月以降まで発売が延期されてしまったの 
は、ちょっと残念。 



対戦型格闘ゲーム「デスブレイド」がX 68000 
に移植されることになった。 

プレイヤーはまず，8人の闘士のなかから自 
分の好きなキャラクターを選び出し，次々に現 
れる敵を倒していく。 

レバーを使って奥行きのあるステージを歩き 
回り，小技ポタンと大技ポタンで攻擊できる。 
基本的には小技ポタンでパンチ，大技ボタンで 
キックということになっているが，もちろんポ 
タンとレバーの組み合わせでいろいろな技をか 


けることができる。エルボースマッシュ，ポデ 
イスラム，ロープ振り，アバランシュ ホー ルド， 
アイリッシュホイップ，スープレックス，ネッ 
クブリーカー，パックドロップなどなど。 

そして，これらの技のほかに，必殺技を出す 
チャンスも訪れる。体カゲージの下に 0K のサイ 
ンが出たら，そのタイミング。逃さず攻擊すれ 
ば，スゴぃ技が出せるぞ。 

X 68000用 5〃2HD 版 価格未定 

SPS 00245(45)5777 



うまいのはゲーム会社の格闘モノ！ 


1 . ファイナルファイト 2 T 

2 .グラディウス II I I 

3. OVERTAKE 9 T 

4. 出たな!!ツインビー I0t 

5. 三國志 III 5 

6 . ジェノサイド2 - t 

7. ふしぎの海のナディア ー T 

8 . スターウォーズ 4 i 

9. シム アース 71 

10. 大戦略 11厂90 - T 


暑さが続く昨今ですが，皆様おかわりありま 
せんか。今月も皆様からいただいたおハガキを 
集計し，上位10作品を発表してまいります。 

さて，「ファイナルファイト j が 「G II」こと 
「グラディウスII」をかわして首位浮上。あっと 
いう間に，かなりの得票差をつけるまでになっ 
てしまいました。 

「ファイナルファイト」は出来のよさも評判で 
すが，2人同時プレイが面白いという方が多い 
ようです。基本的には協カプレイですが，何か 
の拍子に相手側のキャラクターにダメージを与 


えたりすると，もうたいへん。殴り合いにまで 
発展することもありそうです。アーケードゲー 
ムではもったいなくてできませんでしたが。格 
闘モノとしては意外に簡単な操作性も人気の要 
因のひとつ。おまけの CD と，エンベロープも評 
判がよろしいようで。 

面白くなくなる一方の，実際の FI レースを尻 
目に（この号が出るころにはもうマンセルがチ 
ヤンピオンなのでは？）， FI ゲームの 「OVER 
TAKE」 の人気は加熱気味。画面のセンスには読 
者からも 0K が出ていますから，あとは動きがど 
こまで磨けるかで人気が決まりそう。 

今月は「出たな!！ツインビー/ジェノサイド 
2」といったソフトがもちなおしています。原 
因はわかりません。 

「ふしぎの海のナディア」も発売時期が決定し 
てジワジワ人気が出てきました。ひさしくアド 
ベンチヤーが上位に来ていないので，ちょっと 
期待していたいですね。 

個人的には「ポピユラスII」の前人気があん 
まり盛り上がってないのが少し心配ですが，来 
月の巻き返しを待ちますか。では，今月はこん 
なところで。しばしさようなら。 （浦） 


20 Oh ! X 1992. 9. 





















iX=WIN001Ii#wh 

待望の SX - WINDOW 開発キットが発売される。 
内容は SX - WINDOW 基本システムー式， SX デバッ 
ガ，リソースエディタなどのツール， SX 用ライ 
ブラリ，サンプルプログラムという構成。これ 
により，ソースプログラムのエディタから，コ 
ンパイル，実行，デバッグまでの一連の処理が 
すべてウィンドウ上で統合されることになる。 

SX デバッガはソースコードデバッグに対応 
し，マルチウィンドウを生かして，レジスタ内 
容，スタック，ワークエリアなど，さまざまな 
情報を一覧することができる。マルチタスクな 
ので，実行中のプログラムのワークをリアルタ 
イムに確認することも可能。リソースエディタ 
では各種リソースタイプ別に専用のエディタが 
用意されている。 

ディスク5枚組，噂ではマニュアル総量2000 
ページともいわれ ， C compiler PRO -68 K 以上の 
大型パッケージになることは間違いない。 

X 68000用 3.5/5〃2 HD 版5枚組 価格未定 


シヤ ー ノ 


303(3260)1161 
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グラディウス II グッズ当選者発表 

グラディウス n の発売記念として実施された， 

“I LOVE GRADIUS H キャンペーン”のオリジナル 
グッズ当選者が決定した。豪華ネームプレート 
を獲得したのは以下の m 名の方々。 

(栃木県)片岡誠鈴木英明（長野県)加山真一 
(東京都)前田哲也（神奈川県)春日英己武井 
真悟（愛知県)増田光宏（兵庫県)阿南昌弘 
塩路英樹（佐賀県）山田大作 （敬称略） 

なお，2000名に贈られるロゴ入りスポーツタ 
オルは到着するまでのお楽しみとなる。 
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SOFTWARE INFORMATION 





光栄からまたまたシミュレーシヨンゲームが 
発売される。とはいっても，今度出るのはビジ 
ネスシミユレーシヨンゲームというやつで，名 
前は「リーデイングカンパニー」。 

プレイヤーはもちろん会社社長。そして，そ 
の会社は，独自の規格をもつビデオデッキを生 
産している。ライバル企業は II 社，競合する規 
格は3つあり，このなかで提携を結んだり，妨 
害工作をしたりしながら，トップの座を獲得し 
なければならない。 

ビジネスゲームとはいえ，特に高度な知識な 



どが要求されることはなく，誰にでもゲームが 
楽しめるようになっている。 

X 68000用 3.5/5"2 HD 版 12,800円（税別） 

光栄 0045(561)6861 

(画面写真は PC-9801 版のものです） 


，通 


1990年7月号で紹介した，アクティブロール 
プレイングゲーム「サーク」の続編が移植され 
る。邪悪な怪物バドゥーを倒し，平和な日々を 
過ごしていた主人公ラトク•力一卜が再び旅に 


出る。今度は母の目を治す薬を探しに。 

で，もちろん取りにいって，簡単に手に入る 
わけはなく，数々のイベントに巻き込まれてし 
まい，めでたくゲームが成立するのであった。 

X 68000用 3.5/5"2 HD 版 価格未定 

ブラザーエ業 ( TAKERU ) ©052(824)2493 



舞イス 8H ) 息 

••ナンシーよリ緊急連絡”というセリフで有名 
なこのゲームは，そのとおりに緊急連絡が入る 
ところから始まる。犯人の車の特徴を確認した 
ら，あとはハイウェイをひたすら走る。目的の ブラザーエ業 ( TAKERU ) 0052(824)2493 


車がいたら，ひたすら体当たりをかまし，強引 
に停車させる。なにしろ，自分が警官なんだか 
ら，スピード違反をしようと，犯人の車を壊そ 
うと，おかまいなしなのである。 

X 68000用 3.5/5"2 HD 版2枚組7,800円(税別） 
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[データ集計協力店](順不同) 
九十九電機本店 
j&p (渋谷/町田） 

P&A 


1992箄3罔の周阖売 5 0上げぺス M 0 


POINT 

タイトル 

発売元 

発売 0 

869 

三國志 l 

光栄 

’K/5/28 

253 

シムアース 

イマジニア 

， 92/5/22 

246 

太間立志伝 

光栄 

'92/5/10 

116 

グラディウス n 

コナミ 

-92/2/7 

103 

スターウォーズ 

ビクター音楽産業 

’91/12/17 

75 

ウルティマ VI 

ポニーキャニオン 

’91/6/19 

68 

出たな!！ツインビー 

コナミ 

’9V12/B 

41 

エイリアンシンドローム 

轚波新聞社 

'9E/3/E5 

34 

SX-WINDOW ver . E.O 

シャープ 

-M/3/24 

27 

レミンクス 

イマジニア 

’92/4/17 


•* やはり，「三國志 III 」がダントツでトップ 
" の座についた。 

「三國志 III 」は，ベストセラーとなった“三 
.. 國志”シリーズの最新作である。小説や劇 
.. 画にもなっている中国の古書をもとにゲー 
•. 厶化しているだけに，シリーズを通して， 

• • ダイナミックでドラマチックな仕上がりを 
*• 見せてくれる。 

'* システムもシリーズを重ねるごとに大幅 
.. な修正が加えられ，光栄の力の入れ具合を 
.. 感じさせる。“信長”，そしてこの“三國志” 

.. は光栄の大黒柱なのである。 

•• しかし，ジャンルでゲームを区切るのは 

•• いいことではないとわかってはいるが， X 
•• 68000ユーザーの大々的な支持を得るタイ 

プのゲーム，とは少しいいがたいのは事実 
である。それを跳ね返してのこの結果はか 
.. なり立派なことなのではないだろうか。 

.. 2位には「シム アース」 がズレ込んでき 

•- たが，数字的には丨位とずいぶん差をっけ 

• • られてしまった。 

" SX-WINDOW ( ver . l . 丨以上）を持ってい 

" て， 2 M バイト（あるいはそれ以上）のメ 

モリを持っていなければ遊べないという条 
.. 件があることはあるが，わりと多くのユー 
.. ザーがこれを達していると思われるのであ 
•• まり問題はないはず。もうひとふんばりす 
•• ることができるだろうか。 

'* で，3位には I 位の「三國志 III 」と同じ 

_• く光栄の「太閤立志伝」が入って，「シムア 

—ス j をサンドイッチ。ここまではシミュ 


レーションゲームが占領している。 .. 

4位と5位には「グラディウス II 」「スタ .. 
ーウォーズ」という老舗どころが腰をすえ .. 
ている。 •• 

6位には初登場の「ウルティマ VI 」が上が •• 
ってきた。 •• 

海外では，「ウルティマ vn 」 が発売され *' 
ているようだが，人気はいかがなものな の .. 
であろうか。 .. 

APPLEII のゲームとして出発した“ウル.. 
ティマ”シリーズも，いまでは旧 M PC で真っ •• 
先に発売されるようになり， VGA を 使用し” 
た美しいグラフィックを売り物としている。 ” 

また，本編とは別に，システムは同じで " 
キャラクターや舞台設定を変えたシリーズ .. 
や，「ウルテイマアンダーワールド」とい .. 
う 「ダンジョン•マスター」タイプのゲー .. 
ムも発売されている。 •. 

新しいものが出ているとはいえ，少し元 •• 
気がない"ウィザードリィ”に対して，昔 " 
からの好敵手“ウルティマ”シリーズは， " 
タイトル数だけを見るとまだまだ元気とい .. 
ったところだろうか。 .. 

7位から10位までは，「出たな!！ツインビ .. 
—」「エイリアンシン ドローム」 「 SX-WIN 
DOWver .2.0」 「レミングス」といったお 馴染 •• 
みのメンバーが続く。 PCHNT を見ていると， *' 
全体的に元気がないことが感じられるのは " 
否めない。協力店の皆さんも，ひたすら「フ .. 
ァイナルファイ ト」 に期待しているようだ .. 
が，はたしてどうなるだろうか。 •• 
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体に属性や条件判定，動きを与えると， 「Virtual 
Reality Studio」 の仮想空間はゲーム世界に早変 
わりする。最近流行のパーチャルリアリティ。 
デー タグローブなんてものは使っていないけど, 
手軽に仮想現実感が楽しめる。 

最初に付•属のチュートリアルビデオを見た印 
象は，「面白そうなソフト」。そして実際に遊ん 
でみると，「とても面白いソフト」だった。この 
ビデオは，「このソフトの創造性を制限するのは 
あなたの想像力だけだ」というような意味の， 
挑戦的とも受け取れるナレーシヨンで締めく く 
られている。そう，受け身の姿勢ではこのソフ 
卜は使いこなせないといえる。 

こういうソフトを作って売ってしまう西洋人 
にはやはりかなわない。「何かの役に立つんです 
か？」「全然。でも，面白いじやないですか」。 
それでいいのだ。 (A.T.) 

発売元 DOMARK (NTSC 版） 


ウワサのソフトウェア（海外編） - 

VlPtyil __鉍 S __ 

また一本取られた。 「Virtual Reality Studio」 で 
ある。なんて素敵なおもちゃだろう。 

地面がある。3枚の板をコの字形に置く。こ 
れは壁だ。その上に四角錐を置く。これは屋根 
になる。言葉だとうまく伝わらないのがもどか 
しい。板や四角錐を「置いた」のである。まず 
壁の上に屋根を持ってきて，次は下にそろそろ 
と降ろす。壁の上に触れたところで，もうそれ 
より下へはいかなくなる。もちろん，めりこん 
だりはしない（干渉チェックね）。こうしてでき 
た部屋に入っていく （いわゆるウォーク スル 
一)。奥までくると， コツン と音がして，それ 以 
上前へ進めない。壁につっかえたのだ。 

「Virtual Reality Studio」 のオブジェクトは本物 
の積み木以上に積み木である。伸ばしたり縮め 
たり，積み上げたり色を塗ったり動かしたり。 


冷静になって見てみると，干渉チェックもご 
く簡単なものだし，技術的にものすごいことを 
やっているというわけではない。もっとも，表 
示されている3次元の物体をマウスで直接クリ 
ックできるというのは，なにげないけれどたい 
したものだ。だが，それ以上にすごいのはデザ 
インと割り切りである。厳密さをとりあえず棚 
上げしてでも，リアルタイムで動作する環境を 
作り上げた。事実，それらしく動いている。そ 
こがこのプログラムの偉さである。 

3次元のモデラと根本的に違うのは，モデリ 
ングとレンダリングの区別がないところである。 
あらゆる操作は即座に目の前の仮想空間に反映 
する。将来，計算機の性能が鬼のように上がっ 
たら， CG システムはリアルタイムで写実的なレ 
ンダリングを行う本物の仮想現実空間になる。 

積み木細工して遊ぶだけではない。本来は簡 
単な アドベンチャーゲームを 作る ツール だ。物 


ウワサのソフトウェア（海外編）, 

◎UY SPY 

カナダに READY SOFT というメーカーがある。 
この会社は AMIGA の世界では2つの製品，いや， 
シリーズで有名である。 

ひとつは“ A-MAX” シリーズ。これはソフトウ 
ェアだけではなく，パッケージにはハードウェ 
アも含まれている。で，何をするかというと， 
Macintosh Plus を エミユ レートする。 Macintosh の 
I28KROM が必要，というところがミソ。 

さて，もうひとつのシリーズのほうが今回の 
主役。これはゲームなのだが，いわゆるフルタ 
イムフルスクリ_ン アニメーショ ン型アクシ ョ 
ンゲームとでもいえばいいのだろうか。 

ひと昔のゲー厶センターに，レーザーデ ィス 
クを使ったアクションゲームがあったのを覚え 
ているだろうか。画面にはアニメーションが流 
れていて，その場面に従ってタイミングよく， 
決められた方向にレバーを入れたり，ボタンを 
押さなければならないというアレだ。「サンダー 
ストーム」などが有名なのかな。それを バソコ 
ン（結構いろいろな機種で発売されている），し 
かもフロッピーべースでもできるようにしてし 
まったというシリーズなのである。 

READY SOFT ではすでに，中世の騎士が主役 
の 「Dragon’s Lair」 シリーズを3作，スペースオ 
ペラの 「Space Ace」 を2作，発売している。 

しかし，このテのゲームは面白いことは面白 
いのだが，プレイヤーは決められた入力を探す 
ことのみを要求されるので，アクションゲーム 



というよりは，記憶ゲームになってしまいがち 
である。実は人のプレイを見ているほうが面白 
いということもある。 

そこで READY SOFT も考えた（か，どうかは知 
らないが）。その結果がこの 「GUY SPY」 のよう 
なシリーズなのではないだろうか。 

まず，アニメーションが流れるのは同じ。し 
かし，ここではキー入力をする必要はない。ス 
卜—リーが進行していくのを見ていればいい。 

では，プレイヤーはいつ，何をするかという 
と，アニメーションの合間に簡単なアクション 
ゲームがいくつも挿入されているのだ。アニメ 
ーション場面とのつながりはグラフィック的に 
も，ストーリー•的にもまあまあ自然である。 

「オペ レーショ ンウルフ」のようなところもあ 
れば， スキー で滑らされるところもあるし，ピ 
ラミッドの中をさまよわされることもある。決 
められたキー入力などはなく，その場で素早く 



判断して，操作しなければならない。 

全体的な完成度はまだまだという感じだが， 
いままでの自社製品とは違う，何か新しいもの 
を作ろうという姿勢は見える。人気シリーズに 
アグラをかいていてはいけないのだ。 

発売元 READY SOFT 
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⑩ファイナルフアイト 


正義の拳を真っ赤に染めろ 

世紀末の街，メトロシティ。幕力集団マッドギアにさらわ 
れた人質ジェシカを救うために，3人の男たちが立ち上が 
Yaegaki Naohi つた。ガイ，コーデイー，ハガーが繰り広げるストリート 

八重垣那智 ファイト0手強い相手を必殺技でうちのめせ！ 



誰が決めたのかは定かでないが，男は常 
に強くなくてはいけないらしい。なぜとい 
われても困ってしまうが，とにかく強い男 
というのは，性別を問わず羨望の対象であ 
ったことは間違いない。そして，世の中の 
多くの筋肉ショボショボな人々の願望を満 
たすために，現実的で科学的なトレーニン 
グとか，楽に筋肉を鍛える怪しい器具や食 
品，それに非現実的なゲームや映画といっ 
たようなさまざまな解決法 （ ？ ） が生み出さ 
れてきた。なかでも誰でも簡単にヒーロー 
になることのできるゲームは，格好の疑似 
体験として親しまれてきたのである。 

熱き血潮の系譜 •>•>•>•>*•»•>•>♦ 

そういった汗臭い格闘モノを得意とする 
カプコンが，ついに X 68000 ゲー ム界に参入 
し，その第1弾！：して不朽の名作とも呼べ 
る「ファイナルファイト」を移植してきた 
のである。 

またいつもの昔話で恐縮だが，私が初め 
てこのゲームを発見した t きには，まだ， 
「ストリートファイター’89」という名前で 
あった。それは「テトリス」の大ブームが 
起こった，1989年の秋の AM ショウでのこ 
とて''ある。 

その！：きは，「グラディウス III 」 や 「 R - 
TYPEII 」 とい っ た 話題作の シューティン 
グ ゲームが 目白押しで， この 格闘 ゲームに 



XB 80 DD 用 5"2 H □版2枚組9,800円(税別） 
カプコン Q 03 (3340)071 B 


はほとんど注目しなかったので記憶がない。 
いまから思えば，なぜこのような名作を見 
逃したのか，はなはだ謎である。 

しかし，「ファイナルファイ！し C 
我々の前に姿を現したこのゲームは，格闘 
ゲームのそれまでの常識を覆すほどの，驚 
異的な存在感に輝いていた。まさに，この 
「ファイナルファイト」は格闘ゲームの革命 
児！：して，世のプレイヤーを魅了したので 
ある。 

素 if - く スムーズな キャラクタ ーの 動き， 
シンプルな操作，数多くの敵のバ リエーシ 
ヨン，個性的なボスキャラ，そして絶妙な 
「難しさ」。どれをとっても新鮮であり，パ 
ンチやキックを出すだけで自分が強くなっ 
たかのような錯覚に陥る不思議な魔力をも 
ったゲームであったのだ。 

このなかでも，素早いキャラクターの操 
作感というのは特筆すベきことである。連 
射のかぎりパンチが繰り出さ 
れ，連続技も自動で鮮やかに 
決まる。敵に囲まれたら無敵 
の必殺技を炸裂させれば大逆 
転も可能だ。それまでの格闘 
ゲームが，間合いやタイミン 
ダを重視して正確にヒットさ 
せなければならなかったのに 
対し，鬼のような連射で近づ 
いてくる敵を次々と倒せるの 
である。 

このシステムが',いかにエ 
ボックメイキングであったか 


は，これを追従した多くの「もどき」ゲー 
ムが，この点をこぞって真似をしているこ 
とで，よ,くわかるのではないかと思う。 

闘し、の聖書 

それでは，具体的にゲームの紹介に入る 
ことにしよう。ゲームの内容は奥行きのあ 
る正統派格闘タイプで，基本的に上下のラ 
インが合っているとき，左右のみに攻撃で 
きる。 

左右から現れる敵をなぎ倒して進み，さ 
まざまな悪の巣窟での闘いをくぐり抜けて 
ボスを倒せば，そのエリアはクリアという 
展開になってぉり，全6エリアをクリアす 
ればエンディングという構成である。 

「ガイ」「コー ディ」 「ハガー」の3人から 
選ぶプレイヤーは，最大2人同時に闘うこ 
とが可能だ。どれも8方向に移動でき，ボ 
タン2つで攻撃とジャンプを行うようにな 




ガイの特殊技，三角跳びだ 


スカウターで相手の体力を見切って闘え 
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I 面ボスのダムンドは高みの見物。口笛で部下を呼ぶ 



ちょっとひと休み。でも倒さずには進めない 

っている。両方のボタンを同時に押すとそ 
れぞれ違った必殺技が使えるが，一定量の 
体力を消耗するので乱用しないように注意 
が必要である。 

ゲーム中に敵の攻撃を受けると，画面上 
に示された自分の#:カゲージが減少してい 
き，すべて赤色になるとプレイヤーをひと 
り失うことになる。 

すべてのプレイヤーを失うと ゲーム オー 
バーだが， X 68000 版では9回までなら継続 
プレイもできるようになっている。最初は 
ちょっと少なく感じるかもしれない力 5 '，逆 
に多すぎるのも考えものである。継続した 
回数はスコアの1の位でわかるので，あと 


何回できるかがプレイ中でも確認できるよ 
うになっているのは，ちょっと便利な配處 
といえょう。 

嵐の前に誓え 

このようにオリジナルの緻密さを，踏襲 
している X 68000 版の「ファイナルファイ 
卜」であるが，もちろん画面や音といった 
演出面の移植もしっかりなされている。 

画面は 384 x 256 のモードにすれば，本物 
とほとんど同じ画面比で楽しめるし，ちょ 
っとクセのあるサウンドも忠実な移植だ。 
逆に PCM 音などは， X 68000 版のほうがク 
リァな感じを受けた。 MIDI にも対応してい 
るので，まずまずの合格点といったところ 
だろうか0オリジナルのサウンドは，特別 
付録の 「スペシャル CD 」 にも入っているの 
で，聴き比べてみることをお勧めする。 

ゲームの設定変更も，タイトルからオプ 
ションモードに入ることで簡単にできるよ 
うになっている0難易度やプレイヤー数な 
ども変えられるので，幅広く遊ぶことがで 
きる0ちなみにデフオルトでセットされて 
いるデータが，オリジナルの標準なので， 


いかにオリジナルが厳しかったか，ちよっ 
と体験してみることもいいだろう。 

ほかにも MIDI の選択，画面モードの切り 
替えや，ジョイスティックとキーボードの 
切り替えなどもこのモードで行う。さらに 
コンフイギユレ ー シヨンモ ードに入ること 

で，各操作の割り当てを変更することも可 
能になっているのはありがたい。 

また，今回の「ファイナルファイト j は 
ハ ー ドデイ スクにインストー ルす ることが 
できることも特徴に挙げていいだろう。多 
少 0 S の知識が必要だが，基礎的な知識のレ 
ベルでもそんなに難しいようには感じなか 
ったので大丈夫だと思われる。 

あと，ちょっと気になることは「要2 M 
バイト」のソフトであることだろうか。 

だからといって完全オンメモリなわけで 
もなく，一部ではエリアの途中でアクセス 
したりもするのはいただけない。そういっ 
たところには，もう少し配慮がほしかった 
ところであろう。 

幽信を闘志に変えろ •»•>•>•»♦*•»•> 

それではゲームを始めてみよう。いちば 



理不尽に強いソドム。無敵のタックルには注意 
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悪徳警官エディの拳銃乱射 S 連発にはかなわない 



レツドベレーの ロ レント。棒の直擎をくらうと痛い 



ん最初はキャラクターの選択である。まあ 
100パーセント趣味で選んでもかまわない 
のだが，初心者は誰を選べばいいのかわか 
らないかもしれない。各キャラクターの紹 
介を兼ねて，その問題に答えてみよう。 
•ガイ 

忍#の血を引く格闘家で日本人という設 
定は，この際どうでもいいだろう。スピー 
ドに長け，機敏な動きからの連続技が得意 
である。動きや技の使い分けを覚えるには 
適しているかもしれない。ただ パワ ーが弱 
いので，後半はかなりきついことが予想さ 
れる。独自の技に壁を使った「三角飛び蹴 
り」がある。 



2つ目の ポー ナスステージはガラス板割り 

參コーディ 

マーシャルアーツの 達人で，ナイフを持 
つて連統攻撃ができるのが特徴。スピード 
やパワーのバランスも取れており，きつち 
りと攻略すれば確実なプレイが兄込める。 
ナイフの使い方が t にかくカギになる。 
參ハガー 

パワーは随一だがスピードに欠けるのが 
離点。ほかの2人とは使い勝手が異なるか 
もしれない。独自の技に パイル ドライバー 
があるが，どちらかというと連続 パンチ か 
らのバックドロップのほうが利用価値は高 
い。なぜなら，バックドロップ中は無敵だ 
からである。敵を連続で殴りながらバック 


ドロップをかければ，集団の敵に挟まれた 
場合でも有利に戦えるのは大きな利点だろ 
ラ。 

こうしてみると別に初心者だから，誰が 
いいということではなく，重要なのはその 
キャラクターを使いこなすことであろう。 
説明書には細かい技の出し方が出ていない 
ので，蛇足ながらいくつかの有用な技を説 
明しておくことにする。 

パンチから レバーを 上 か 下に入れておく 
t 「投げ」，敵のそばで敵のほうに レバーを 
入れると「つかみ J , つかみから レバーを 入 
れずに 攻擊 すれば 「折檻」， さらに レバーを 
入れて攻撃すれば「投げ」，ジャンプ中に下 
レバ _+攻皡で「プレス」，という感じであ 
る。ちよっとマスターするのに手間取るか 
もしれないが，1つひとつ fig 実にモノにし 
ていけば，しだいに先に進める自分に気づ 
くだろぅ。 

力尽吉て i 闘え 

ここでやっと具体的な面の紹介だが，い 
つもどおりあまり詳しくは述べないで，簡 
単にすませることにする。具体的な攻略の 



一 _ _ _ . ^ ». ->• --一-^ - 一 , 




»r v— 

'• 管 . yr-w ▼令 

威カバツグンのパイルドライバー。スクリューはしないけど 
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ゆでダコのようなアビゲイル。投げをくらうと涙が出るぞ 




















































シヤンデリアは落とせる。ポーナスはしっかりいただこう 


屋上庭園での死闘。ボスまではまだ遠い 


要素が少ないことは勘弁してもらいたい。 

ェ! J ア1スラ厶 


いと，銃を乱射されて悲惨なことになるの 
で注意しよう。 


ゆえの問題点がないわけではない。ケチを 
つけるようだが，気になったので書いてお 


まさに街のゴミ溜め，スラムからゲーム 
はスタートする。全体的にそうだが，敵が 
画面外から突撃してくる場所は，一度痛い 
目にあったら必ず忘れないことである。皮 
ジャンと軍服を着た奴は，後々ライバルに 
なるので，動きを見切っておきたい。 
エリア2地下鉄 

地下鉄に乗る前は，屈指の猛攻にさらさ 
れるので，敵の出現する場所を覚えておこ 
う。ボスのソドムは，真上や真下にはタツ 
クルできないことをうまく利用すること0 
この而までノーミスで抜けられれば，かな 
りの実力が備わったと思っていいだろう。 
エリア3ウェストサイド 


酒場から地下ブロレスを経て，悪徳警官 
のボスと対決する。替官が吐き捨てたガム 
は必ず拾うこと。追い詰めて一気に倒さな 



エ 1 J ァ4工場 

1 P のプレイヤーは最初に上下に動かな 
ければ，3本目の唢•射炎からは安金地帯に 
なっている。 エレべ ータでは隅で闘ってい 
れ ばいい が，ボスの ロレン トの卑怯な攻撃 
には，てこずること必至。 

エリア5港 

なかなか厳しいエリアである。敵を小出 
しにしていると時間がなくなるので，落ち 
ているアイテムを利用して，無駄な時間を 
減らすようにしよう。ボスのアビゲイルは 
登場のときに先制攻嘴をかけて，少しでも 
有利に闘うといい。 

エ 1 J ア6アップタウン 
随所で敵の集中攻幣がある。特に軍人の 
ナイフ攻撃には，細心の注意を払いたい。 
屋上に上がって建物に入り直してからが， 

本 S の最終面といえるかもしれない。最後 
のボスを倒し，感動のエンディングを見る 
ことがはたしてできるのだろうか？ 

繊細な格闘家 •>•>•>•>•>•>♦•>•>•>•> 

とまあ，ざっと眺めた程度では，この移 
植の出来は高いといってもいいだろう。操 
作感覚は再現されているし，幽而の印象も 
忠実である。しかし，やはり移植であるが 

俺より強い奴 I ; 

この原稿を書いていて，カプコンの特徴って 
なんだろうと考えてみたが，カプコンのゲーム 
に共通する要素に，自分ではあまり気づくこと 
はできなかった。思い余って，マニアの伊漉見 
氏に聞いてみると，「100万点以上で残機が増え 
ない」という意味不明の答えが返ってきた。出 
るゲームの半分以上が体力制だといっても，あ 
くまで主張するので，カプコンの特徴は入れ込 
んだ筋金入りのマニアがいっぱいいることだと 


こぅ。 

ひとつはキヤラクターの数の制限である。 
画面に敵が最大4人までしか登場しないこ 
とで，オリジナルで培ったパターンが通用 
しないことがあるのは，残念なことである。 
出てこれなかった敵は，途中で空きができ 
ると現れたりするので，ちょっと調子が狂 
ってしまう感じがした。また道中の樽や隙 
害物も若干少ないので，なにか損をした気 
分になったのだが，どんなものだろう力、 
もうひとつは効果音の問題である。別な 
音が鳴ると前の音が消されてしまうので， 
無音でボスにタックルされたり，音もなく 
ドラム缶に櫟かれたりするのは，ちょっと 
いただけない。特定の場面である種の効果 
音を制限して，納得いくょうにしてほしか 
っ た 力す， これは赘沢な悩みなのかもしれな 

い0 

こういった細かい不満はあるが，全体的 
に見れば，本格的な格闘ゲームが ついに X 
68000に移植されたということで，高く評価 
できるといえるだろう。非常に奥の深いゲ 
ームなので，買ったからにはぜひ極めてほ 
しい。近代格闘ゲームの，いまだ起えられ 
ていない頂点であり，究極である世界を， 
堪能してほしいと思うのだ。 

:会いにいく 

気がついた。世の中って深いなぁ，うんうん。 

総合評価 〇_5 _10 

ゲーム性 ★★★★★★★女 

技術 ★★★★★★女 

サウンド ★★★★★★ 

グラフィック ★★★★★★★★ 

爽快感 ★★★★★★★★女 

Oh! My God! ★★★★★★★★★★ 
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1HE SOFTOUCH 


•ライジングサン 


平家討伐道中膝栗毛 


Kageyama Hiroaki 

影山裕昭 


このゲームは，シネマウェア社で発売されていた 「Lord of 
the Rising Sun 」 をバージョンアップして，日本向けにア 
レンジしたものだそうだ。基本システムはアメリカ生まれ 
というわけだが，はたしてどんなもんだろうか。 



この「ライジングサン」は，プレイヤー 
が源氏一族の大将となって平家を倒し，日 
本のすベての城を占領して全国統一を H 指 

す，リアルタイムシミュレーシヨンウオー 
ゲームである。 

プレイヤーは源氏一族の長を演じるわけ 
だが，最初に源頼朝か源義経かの選択を迫 
られる。ご存じのとぉり賴朝は鎌倉幕府を 
開いた人で，義経-(幼名牛若丸）はその弟。 
壇の浦で平家を滅ぼしたことで知られる。 

どちらを選ぶのも自由だが，どうせなら 
義経で遊んでみたい。義経は自害こそした 
ものの，賴朝に殺されたようなものだから 
だ。あなたが源平討魔伝を遊んでいたなら， 
ヒョ ー ヒョ ー叫ぶ義経を殺して幾度となく 
ギョエーと 叫ばせていたに違いない。いま 
こそ義経にいい思いをさせてあげるのだ。 
義経となり全国統一前に頼朝を殺してしま 
え。義経も浮かばれる。世は戦国，身内同 
土の殺し合いもめずらしくない時代だ。 

ザッザッザッ， 

このゲームではターンの概念はなく， 基 
本 的にリアルタイムでゲー ムが進行する。 
ゲームを始めると，画面上に 全国マップの 
一部が表示される。これが戦略画面であり， 
「ライジングサン」の基本となる画面であ 
る0操作は フルマウスオペレーション 〇ス 
クロール させて，九州から東北までを戦略 
画面上で見ることができる。 



X 68000 用 5"2 H □版 9.800円(税別) 

ビクター音楽産業 ©03(3423)7901 


戦略画面では19の城，都市や却のある場 
所（これらを拠点と呼ぶ)，および武将のい 
る位置を確認することができる。武将の移 
動はすべて戦略画面で指示をする。移動は 
城から城，都市から城，といったように拠 
点から拠点への移動である。 

指示方法は移動させたい武将の上にカー 
ソルを合わせて左クリック。すると力ーソ 
ルの下の武将が白〈光る。ドラッグしたま 
ま移動先にカーソルを持っていき，そこが 
移動先として認められれば力ーソルの下が 
白く光るので，マウスから手を離せばすぐ 
さま移動を始めるようになっている。街道 
に沿ってトコトコと移動する姿は愉快だ。 

しかし，いったん，指示を与えたあとは 
目的地に達するまで行き先を変更すること 
ができなくなる。これは結構きつい仕様だ 
がしかたがない。 

パラメータ 地獄はない 

パラメータ地獄なんて言葉を使ったが， 
歴史シミュレーシヨンもの！：いうと，パラ 
メータがズラズラッと並んでいるという印 
象が強い。しかし， r ライジングサン」では 
数 ii 化されたパラメータはひとつもない。 
プレイヤーが知ることのできるパラメータ 
は武将の兵力と士気の2つだけ。 

これは戦略画面で，調べたい武将の上で 
マウスを右クリックすると，ウインドウに 
棒グラフで表示されるようになっている。 

ちなみに武将の移動を実行すると距離に比 



戦略画面ではほかの武将の行動が表示される 


例して兵士の士気が低下する。士気を高め 
るには城，都市や寺といった拠点で何もし 
ないでジーッとしていればいい。 

戦略画面上では見れないが，武将の技 ; a 
レベルな どを表示する スキルウインドウと 
いうものもある。ここでは武将の統率力， 
剣術などが0 ~ 6の範囲で表される。統率 
力なら軍配の数，剣術なら剣の数 t いったふ 
うに，数字ではなくビジュアルで表示され 
るあたりは，実に親しみやすい設計になっ 
ている。 

ゥォゥォゥォ,遭適た’ 

移動途中に，源氏一族以外の武将と出会 
うと遭遇イベントが発生する。画面は戦略 
画面から遭遇画面に切り替わり，合戦を決 
意するか，回避するか，連合を組むか，と 
いったな かから コマンドを 選択する。 ここ 
ではリアルタイムではなく，ゆっくりとコ 
マンドを 選択する こ とができる。 

争いを避けようとしても，必ずしも避け 
られない場合もある。もし合戦を決意すれ 
ば，そのまま合戦画面に移行する。 

また，配下の武将が移動中にほかの陣営 
と遭遇した場合は，画面下にその旨メッセ 
ージが表示される。このとき，自分で選択 
することもできるが，選択しなければ配下 
の武将の判断で合戦の決意，回避などの行 
Ji 力が自動的に決定する。勝手に決められて 
は困る，という場合以外は，わざわざ選択 
するために遭遇画面に移行させることもな 



おもち やの 兵隊を見ているような合戦 
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い。手間がかかるだけだ。配下の武将の判 
断で合戦になったときは，戦力や武将の技 
量を比較したうえ，戦闘結果が画面下に表 
示されるようになって いる。 

カキンカキンカキン,合戦だ 

合戦を決意すると画面は合戦画面へと移 
行する。ここでは兵力に応じて，画面左上 
にプレイヤーの兵士，右下に相手の兵士が 
表示される。マウスを左クリックすると戦 
闘開始の合図を知らす角笛が響き渡り，両 
軍の兵士が一斉に敵陣目がけて移動を開始。 
突撃じゃ〜。 

ちっちゃな兵士が刀を振り回して移動す 
るさまは，緊迫感があるどころか，見てい 
て楽しい。画面中央で刀が交わり，刀と刀 
がぶ つかり 合う音が鳴り響く。ここでプレ 
イ ヤーが できるのは， カーソルで 兵士 もし 
くは弓兵の移動する方向を決めることだけ。 

合戦の結果，敵を倒し，そのときに カー 
ソルを馬に乘った敵大将に合わせて左クリ 
ックしていると馬追いに入ることができる。 

馬追いは斜め スクロールの アクシ ョンゲ 
ームである。白馬に乗った自軍の大将をマ 
ウスで上下左右に操り，障害物を避けなが 
ら敵大将を追っていく。 マウスの 両ク リッ 
クでは，太刀を振って敵兵を切り倒せる。 

斬鉄剣ではないので間違っても松は切り倒 
せない。運よく敵大将と出会い，見事切り 
倒せば敵大将を殺すことができる。気分は 
もう暴れん坊将軍である（ウソ）。 



攻城戦はひとりで敵の城に乗り込む 


敵の城の大手門から侵入し，入り組んだ内 
部を主殿を目指して進んでいく。4方向ス 
クロールで 先が見えないから，どこが 主 殿 
なのかはわからない。袋小路もある。とき 
どき現れる敵兵を斬り倒すと制限時間が増 
え，やられると制限時間が減る。いちおう 
アクション ゲームの ノリである 力す， そんな 
にむずかしいことはない。 

なんとなくアクション RPG のノリで，や 
や現実性に欠けている気もする。出てくる 
敵兵の数も少ないし，どうせならチャンバ 
ラのようなノリカすほしかったなあ。 

逆にむずかしいのが防城戦である。防城 
戦は城に入り込んでくる敵兵を弓で射るァ 
クションゲームである。敵はそんなに素早 
く動いているわけではないのだが，敵に矢 
を当てることはむずかしい。おそらく，お 
祭りなんかにあるライフルでヌイグルミを 
倒すゲームよりむずかしい。城に関しては 
「攻めるは易し，守るは難し」だ。 



しかし，こちらが使わなくても，相手が 
忍者を送り込んでくることは ある。 ゲーム 
中に突然，戦略画面がフヱードアウトした 
ら，その合図。ここでもバリバリのア クシ 
ョンゲームが 侍っている。 マウスで 刀を動 
かして，忍者の投げてくる手逛剣を弾き落 
と すのだ。マジで手に汗握る緊張感が 味わ 
える。なんといっても突然だし，手裏剣を 
いくつか体に受ければ殺されて しま うの だ。 

敵の 手裏剣を 一定数 弾き 落とす と，味方 
の兵が駆けつけて忍者を 倒してくれる。味 
方が忍者を倒せば，忍者を送り込んできた 
敵大将がハラキリである。「ライ ジング サ 
ン」の アクションシーンの なかでいちばん 
盛り上がるといってもいいね。 

まとめじみると 

結局「ライジングサン」というゲームは， 


ピユンピユンピユン,攻城戦,防城戦だ ♦ 

城を攻めて落城させることと，奪った城 
を敵の攻撃から守ることが「ライジングサ 
ン」での最重要事項である。自分の領土は 
なく領土間の境界線もない。どんな武将で 
も九州から東北まで自由に移動することが 
できるのである。 

こちらが城を奪い取る場合，その城に武 
将がいなければ無条件に城を占領すること 
ができるが，敵がいれば攻城戦になる。攻 
城戦は制限時間つきの迷路ゲームの感覚だ。 



シユツシユツシユツ,忍者た、、 •、か、、、 

私の名前を見て，祖先は忍者だという人 
がたまにいるが，さてどうなんでしょう。 
そんなことをいう人は忍者赤影のファンだ 
ったに違いない。「ライジングサン」では忍 
者を使って，対立する武将を暗殺する作戦 
もとれる。しかし，その成功率は低く，失 
敗すればハラキリがあなたを侍っている。 
当然ゲームオーバーである。忍者はなるベ 
く使わないほうがいいだろう。 


リ アルタイ ムシ ミユ レー シヨンにアクシヨ 
ンゲームをミックスして，両方の美味しい 
部分をプレイヤーに味わってもらおうとい 
う志の高いゲームを目指したものである。 

ゲーム開始直後から次々といろんな武将 
に攻められて，じっくり考えている時間は 
ないが，退屈せずに楽しめていい。後半に 
なって源氏と平家の2大勢力になると，城 
の取り合いが激しくなってゲームがますま 
す面白くなってくる。城が集中攻擊を浴び 
てるときなんてのはドキドキもんだよ。 


XBBOOO を生かしています 


X 68000ではメモリを2 M バイト実装してい 
るユーザーが増えてきた。そんなわけで，ゲー 
ムソフトも大容董メモリに対応してきている。 
メモリ上に一括口ードしてディスクアクセス回 
数を減らすとか，ディスク交換を減らすとかね。 

「ライジングサン」では2 M バイト以上の RAM 
を積んでいる X 68000で遊んだ場合は，ディスク 
交換の手間が省略でき快適である。しかし，欲 
をいえばハードディスクにインストールできる 
ようにしてほしい。 

また馬の嘶きをはじめ，随所で AD PCM による 


効果音が使用され，臨場感を高めるのにひと役 
買っている。マウス標準装備ならではのフルマ 
ウスオペレーションもうれしい。マウスによる 
操作は快適で操作性はいい部類に入る。 


総合評価 
戦略性 
操作性 
グラフィック 
効果音 
忍者の襲来 


★★★★★★★★ 

★★★★★★★★ 

★★★★★★★★ 

★★★★★★★★ 

★★★★★★★★★ 
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春ヨーロッパ戦線 


欧州戦酬 

第2二:; 


犬な一し 


Kaneko Shunichi 

金子俊一 


次世界大戦の戦禍に巻き込まれたヨーロッパを舞台に， 
連合軍，あるいは枢軸軍を指揮し，勝利へと導く。そんな 
シミユレー シヨン ゲームが光栄から発売された。人間的要 
素が重視されているのが，光栄らしいところかな。 



第2次世界大戦を題材にしたシミュレー 
シヨンゲームが またもや登場した 0 光栄と 
しては「提督の決断」に続くもので ， WWII 
ゲームと呼ぶそうな。 

太平洋が舞台だった前回に比べ，今回は 
ヨーロッパ大陸が舞台となり，戦車を操る 
のがメインとなった。同様のテーマを扱っ 
たソフトとしてはシステムソフトの「ブリ 
ッツクリーク」がある。 

私は軍団長 •>•>•>•>•>♦•>•>•>•>•> 

プレイヤーは4個師団を任されている軍 
団長である。軍団長の部下は6将軍。その 
下に作戦参謀，情報参謀に師団長が4人と 

いうぐあい。 

このゲームには 将軍が10人ぐ らいいて， 
その中から軍団長，参謀などを選ぶことに 
なる。それぞれに光栄お得意の パラメータ 
があって，指揮能力，魅力，体力などが並 
んで いる。 

1個師団には4個連隊+ 2個戦 I 翊団+1 
W I :兵団+1個補給団の計8部隊が編成さ 
れる。連隊/戦闘団は戦関を目的とした部隊 
で，連隊には6個大隊，戦闘団には4個大 
隊まで配備できる。エ兵団は地雷の設置や 
橋を架けるなどの工作を担当し，4個大隊 
まで配備できる。補給団は補給隊と修理隊 
を合わせて4個大隊まで配備できる。 

地図上では大隊は表示されずに，連隊や 



XB8000 用 3.5/5"2HD 版撇組12,800円(税別） 


光栄 


0045(561)6861 


エ兵団などのひとまとまりで表示される。 

つまるところ，軍団長を頂点にしたツリ 
一構造の軍団が浮かび上がってくる。その 
数たるや，最大で160大隊ということになる 
のだ。 

補給関係では，補給ルートを断たれると 
補給が受けられな〈なっている。持久戦も 
考虛した戦いができるようになったわけだ。 

丄兵団やら修理隊などは，なかなか憎い 
ところに巨 I をつ けたと思う。橋がなければ 
架ければ いいし， 敵に有利な橋なら壊せば 
いい。戦場では当たり前だよね。また，壊 
れた兵器は捨てるばかりがすべてではない。 
思いだすなあ，マチルダさんを 3 

作戦を命ずる 

作戦は年代ごとに6つあり，枢軸軍（ド 
イツ）か連合軍（イギリス&フランス）を 
選んで戦うことになる0 2人プレイもある 
ので，友達と争うこともできる。また，こ 
の 6 つの 作戦を通しで行うシナリオモード 
という やつ もあるが，シナリオモードでは 
枢軸軍しか選べない。 

それぞれの作戦は軍上層部から命令を受 
けるかたちになる。都市占領か都市防衛が 
作戦のすべて。中間管理職はつらいやね。 

しかし，いくらなんでも160もの大隊にい 
ちいち指示を出すというのは現実離れした 
行動である。ってことで，面倒だったら師 
団ごと師団-長に任せてしまえる。ひ 
とつの師団に4つまで作* I を伝えら 
れるが，作戦に優先順位がないのは 
ちょっと使えない。また，予想され 
ることだが，結構おバカなので，あ 
まり期侍はしないほうがよい。 

別に面倒臭くないなら自分ですベ 
て指示するのも一興なのだろうが， 

なにせ160大隊ですぜ，旦那。実際 
の戦場だってそんなことはやらない 
よね。バカな部下をもった上官の気 
持ちも体験できると考えたほうがよ 
さそうだね，こりや。 


ところで，似たような システム を取って 
いる（元祖？）「銀河英雄伝説」では，独立 
部隊というものが存在していた。どの梢^軍 
にも属さない部隊なので， プレーヤー がす旨 
示する必要があったが，この ヨーロッパ 戦 
線ではすべての大隊はどこかの連隊やら補 
給団やらに入ってしまう。つまり，どこか 
の師団に所属することになる。4つの師団 
をすベて師団長に任せてしまうと， プレー 
ヤーは侍つだけになってしまうのだ。はっ 

き り いってヒマ。 

任せ方も時間単位 （1 〜24時間）で全面 
委任というかたちになる。途中で指示を変 
えたくても中断はできない。任せるといっ 
た以上，将軍に二言はないのである。 

ついでにいわせて もらえば，時間と いう 
概念を導入したのならば，すべての大隊が 
同時に移動/攻幣してほしいし，補給中に敵 
の攻撃があったら，補給が中断されるとか 
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のリアルさがほしい。いまだに各部隊ごと 
に移動などがシリアルに行われるのは失格 
だと思う。ボード ゲームのレベルを 抜けて 
いないではないか。あーダサダサ。 

戦闘シーンはクォータービュー •>» 

あれ？まるで先月の「三國志 III 」の夕 

イトルのようじやないか。そう，この「ヨ 
ー ロッノ 、。戦線」でも戦闘 シ ー ンにクォ ータ 
ービューを採用したのだ。 

しかし，このクォータービューも普通の 
HEX 戦のようなもの。見た目がよくなって 
いるだけである。せっかく クォ ータービュ 
一を採用したのだから，いままでにはなか 
ったような演出もほしくなる。たとえば， 
戦車の流れ弾によって建物が破壊されると 
か，火事が発生して町力 5 '焼けてしまうなど 
である。不可能とはいわせないぞ。天下の 
コウ•シブサワなんだから，そのくらい思 
いつかない のかなあ。 

文句はそのくらいにして，この戦関シー 
ンでは10ターン以内なら何度でも命令が出 
せる。部隊によっては1ターンで何度も攻 
撃できるのもいれば，準備不足で攻撃でき 
ないものすらいる。これではターンという 
概念には当てはまらないのではないだろう 
か。ここでも時間を導入すればよかったの 
にね。 

師団長に任せた部隊だと，自分で指示で 
きないので，ボ〜っとクォータービューを 
眺めることになる力 ? ，これまたエライ I 時間 
がかかる。結局，戦闘は見ないモードとい 
うやつで遊ぶのが快適だったりして，なか 
なか意味なしなんだな，これ力す。 

移植に関して •>•»•>•»•>•>•>*•>•»•* 

X 68000 のマーヶットなんて国民機に比 
ベれば微々たるものなのかもしれない。し 
かし，10万人のューザーがいるいまとなっ 
ては，ソフトを出してもらえるだけで素直 
に喜ぶような奇特な人は少なくなっている 
はずだ。 

光栄のゲームは国民機から X 68000 に移 



これがウワサのクォータービュー 



町を占領。お決まりのグラフィック 
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将軍を選ぶところ。ロンメルもいる 


植される場合がほとんどだろう。完全なベ 
夕 移植ではないとはいえ， ューザーを 納得 
させるような移植ができているかといえば, 
疑問符を出さざるをえない状況である。こ 
のことは，ゲームを買った人ならば誰しも 
が認める点であろう。 

そこで， X 68000 ユーザーとして希错など 
を述べてみたい。 

まず最低限の事項として，ディスクの管 
理が挙げられる。 X 68000 にはオートイジェ 
クトの機能がついている。まさか光栄の開 
発の人が知らないことはないだ'ろう。また， 
プログラムでイジェタトさせることが簡単 
なのも有名だ。つてことで，ディスクの入 
れ替えのときはイジェクトしてほしい。い 
や，イジェクトしなければならない。 

また， X 68000 のディスタドライブがイン 
テリジェント方式というこ！：は周知の事実。 
ディスク挿入の認識くらいはオチャノ コサ 
イサイなのである。ディスクを入れ替えた 
あ！：にクリックさせたり，リターンキーを 
叩かせるのは邪道以外の何者でもない。 

また， X 68000 には広大無比なグラフィッ 
ク RAM が搭載されている。国 K 機との兼 
ね合いで,テキスト RAM の16色しか使わ 
ないのは我慢しよう。しかし，グラフィッ 
ク RAM を遊ばせておくのは許せない。こ 
のゲームでもほとんど使用していないこと 
を確認した。キャッシュメモリにでもすれ 
ばいいのに。無理なら RAM ディスクでも 
結構。メモリの増設に対しても同様。細か 


いところでのデイスクアクセスが多すぎる。 

以上のことが無謀な注文かどうかは，ほ 
かに市販されている X 68000 用のソフトを 
見れば一目瞭然。いろいろな制約のなかで 
移植しているのだろうが，これらは敁低限 
のたしなみで，技術力や開発時間/‘則とは 
関係ない レベルの 話だと思う。もちろん， 
ほかのソフトハウスも肝に銘じてほしい事 
項である。こういったところで手を抜〈と， 
不思識とほかのアラが bl 立ってくるから， 
とっても損でしょ。 

禁断の李とめ •、令 

もし，あなたが熱烈な光栄の信奉 ti •で， 
我慢強くて，戦車系の シミュレーション ゲ 
ームをやり たいというならこの ゲームは 勧 
められる。この3つの条件をひとつでも外 
している人では，たぶん納得いかないので 
はないだろうか。 

シミュレーションゲームで ある以上，あ 
る程度の我慢強さは必要である。よって残 
る2点に着目すると，戦車系のシミュレー 
ションでなくてもいいのなら，「三志 III 」 
を買ったほうがいい（他社製品じやないか 
ら許してね）。光栄の信奉者でなければ，「ブ 
リッツクリーク」のほうがよくできている 
と断言する。 

光栄からは，諸手をあげて喜べるような， 
もっと素晴らしいゲームと出合えることを 
期侍したい。それを作るだけの力を持った 
ソフ ト ハウス だと私は信じている。 


ぼかにもいわせて 


大地図と中地図という2種類の地図があるが， 
大地図では細かすぎて情報が得られないし，中 
地図のスクロールは精神衛生上よろしくない。 
また，いつでもスクロールできるわけでもない。 
せめてスクロールバーくらいあれば。 

今回の音楽担当者は，「ルパン三世」などでお 
馴染みの大野雄二氏である。坂本教授といい， 
大野雄二氏といい，超綦華なキャストは光栄の 


MIDI 対応にしていただきたい。 FM 音源だって頑 
張り方しだいで結構いい音が出るんだけどね。 
とりあえず， X 68000 は MIDI の普及率も高いので 
あるから。 

総合評価 〇 5 10 

システム ★★★★★★ 

グラフィック ★★★★★★★ 


特権だろうか。次は久石讓氏だったりして。 ミュージック ★★★★★女 

で，肝心の音楽はというと，どうも音楽性の サウンドエフェクト ★★★★★★女 

高さを音色で壊しているようなので，ぜひとも ディスクイジヱクト ★ 
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トンューティング 68 K GAMES 


燃えるツールで輝く星々 


Ishibumi Akira 

伊漩見あきら 


少し前に， アモルファスの 「シューテイング 68 K 」 を使った 
作品のコンテストが行われた。そして，その受賞作が TA 
KERU で発売される。グランプリは単独で，優秀作は2本セ 
ットとなっているけど，どっちを買うのが得なのかなあ。 


ゲームを遊んだことがあるなら，誰しも 
必ず，こんなゲームで遊びたいなあという 
アイデアのひとつやふたつはもっているは 
ずだ。それを実現できるかどうかはともか 
く，夢は大きいほう力 n 、 い。 

最近面白いゲームが少ないと嘆く私など 
も，そんな夢を集めたコンテストが行われ 
るとなれば，燃え上がらせてくれそうなゲ 
ームが現れるのではないかと期侍する，今 
日この頃である。 

作れや作れのコンテスト 令 

さて，「シューテイング 68 K 」 というソフ 
卜を知っているだろうか。電源オンで即起 
動， マウス ひとつで楽々 ゲームが 作れてし 
まう，縦スクロールシューテイングゲーム 
の コン ストラクシ ヨン ツールだ0本誌では 

昨年 (1991 年）の7月号で，横内氏による克 
明な レビューが なされているので，忘れて 
しまったり，知らなかった人はそちらも参 
照するといいだろう。 

結局これは ツールで あるから，買って モ 
ノを作るのが身上ということになる。だが， 
モノを作るということは，並々ならぬ根気 
と努力が必要であることは，あえて書くま 
でもないことだ。 
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ヴァリストレスナルトの丨面。まだ簡単 


ヴアリストレスナルト（グランプリ作品） 

三國志一幻伝 一, フェイ八’一•ザ•ロード(優秀賞） 
XB 8000用 3.5/5〃2 H □版2枚組各3,000円(税込） 
ブラザーエ業 ( TAKERU ) ^052(824)2493 


そこで，そんな努力と忍耐の備わった全 
国の「シューテイング 68 K 」 フアンのため 
の，フアンに よる向 作データのコンテスト 
が行ゎれたのでぁる。’ 

多数の応募作のなかから敝正な抽選，じ 
ゃなくて審査が行われ，栄えあるグランプ 
リ1作と優秀賞2作が選ばれた。そして， 
これらをそのまま埋もれさせてしまうのは 
もったいないと，この3作品がこのほどブ 
ラザーエ業の TAKERU で発売されること 
が決定した。 

グランプリは単独で，優秀作は2本セッ 
卜でのパッケージとなる。もちろん，これ 
らは「シューティング 68 K 」 を必要とせず， 
単独で遊ぶことが可能になっている。では， 
さっそくそれぞれの解説をしていこう。 

さすがの貫禄,クランプ U 一'、.、 

まずはグランプリの紹介からいこう。題 
名は 「ヴア リスト レスナルト」 という 作品 
だ。自機が戦闘機という，最もオーソドッ 
クスなタイプの仕上がりを見せている。 
「シューテイング 68 K 」 というツールは， 
基本的にゲームのシステムが変更できない 
ので，そんなに鋭いモノではないだろう t , 
半分も期侍しないで起動してみたのだが， 
正直いってこれにはかなり®かされた。思 
わずグランプリに納得してしまったほどの 
完成度を，この作品はもっているといえる 
だろう。 

すべての作品に共通する，基本的な ゲー 
ムの内容を最初に簡潔に説明しておくこと 
にする。原則的には空中を飛ぶ自機で戦う， 
縦 スクロールのシュー テイング ゲームであ 
る。各面の最後に登場するボスを倒せばクリ 
アとなり，最終面をクリアすればめでたく 
エンデ ィングとなる仕組みだ。 パワー アッ 
プは，特定のアイテムで特定の機能が得ら 
れるタイプしか選べず，ミスをしてもその 
場から ゲーム が継続するという システム も 
固定だ。 

そんな制約のなかで，「ヴァリ ストレス ナ 



ルト」はいかにグランプリたるべき作品に 
なりえたのかを細かく見ていくことにしよ 
1 〇 

最初に気づいたのは，その背景の美しさ 
である。色彩感覚も含めて，ここまで緻密 
に書き込む努力は，想像するだけでもたい 
へんだったろうと思われる。全体的に「出 
たな!！ツインビー」のようなイメー ジがあ 
るが，丸写しというわけではなく，独自の 
感覚として処理され ている ので気持ちがい 
い。遠虛せずにいろいろなものからオイシ 
イところを盗むのも（人聞きは悪いが)，い 
い作品を作るうえでは，意外にポイントに 
なるのかもしれない。スプライトのキャラ 
クター も，水準以上の立派な レベルを 保っ 
ていて，全体的な画面の印象は，非常にき 
れいな仕上がりだ。 

力作のテクを見切れ •>•>•»♦•»♦♦ 

2番目に挙げるのは，音楽がかなり凝っ 
ているということである 0 全曲オリジナル 
で構成されているのはもちろん，さらには， 
システムの 弱い部分を カバーす る工夫も見 
受けられる。 

「シューテイング 68 K 」 では，背景スクロ 
ールの設定によっては， OPM フアイルの演 
奏のテンポが遅くなるという症状が'現れる 
ときがある。それはこの ゲームに おいても 
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ハツとさせられる美しさ。質感に注目 


32 Oh! X 1992. 9. 








例外ではないので，この作品では 81亡卜」ば 
それを見越して BGM のテンポを 
速めに設定することで，それを回 
避している。休符で演奏開始の夕 
イミングを合わせてみたり，いろ 
いろと細かいところにまで気が配 
られているのにも注意したい。 

そのほか，敵の動きやアイデア 
などにも，なかなか光るものがあ 
った。このツールでは，決まりき 
つ た敵の動きや攻撃しか設定でき 
ず，状況で判断するような動きや顔，まさに中国の龍/ご 
攻撃ができないなかで，かなりの 
バリエーションを 確保しているのは， セン 
ス t 努力の組み合わせによるものだろう。 

なかでも姿を消して攻撃してくるボスは， 

ツールの 機能をうま 〈使っていて，ハッと 
させてくれるところが憎い。 

また，最終面のあとにスタッフロールが 
あるのだが，これはわざわざ1面分のデー 
夕を使っていて，敵の代わりに文字を出す 
ことで実現している。こういったツールを 
知りつくしたかのような演出を見ることで， 

この作品の完成度を確かめられるといって 
いいだろう。 

個人的にいわせてもらえば，5面と6面 
はちよっとむずかしすぎるということぐら 
いが難点で，さすがグランプリというとこ 
ろではないだろう力’。 



空駆ける口ードは虫と戦う 


追し、越せ負けるな，優秀作 •、•、•、•、•令 

残る2本の優秀作であるが，やはりグ 
ランプリよりは見劣りがするものになって 
いるのは，しかたがないだろう。またグラ 
ンプリが正統派だったので，逆にちょっと 
毛色の変わった意欲作が選ばれているとい 
う印象もある。 

ひとつめは「三國志一幻伝一」という作 
品であるが，これはかなり異色の部類に入 
る作品で，タイトルと内容のギヤツプで思 
いっきり笑わせてくれる。写真を見るとわ 
かるが，自機は玄徳の四角い顔で，敵もす 


ベて四角い顔である。 シミュレーション ゲ 
—ムに 出てくるままの格好でシューテイン 
グをやらせるというセンスには驚嘆したが， 
全体的に見ると詰めが甘く，粗さが目につ 
くのが，やや残念だ。 

途中から舞台が宇宙になってしまうなど 
の荒唐無稽な展開ではなく，あくまで中華 
歴史ロマン路線を追求すれば，異様な存在 
感を与えたかもしれない。それほど この セ 
ンス はす ごい。 しいていえば音楽をオリジ 
ナルに する（ぜひ中華風にしてほしい）とか， 
敵の攻撃の設定をもう少し詰めてほしいな 
どの注文はあるが，アイデアものとして異 
色の輝きを保っているのは事実だ。 

もうひとつの作品は，「フェイバー.ザ- 
口 ー ド」 t いう作品である。こちらのほう 
は，騎士が空を駆け悪魔を倒すという，ア 
リガチな RPG のような世界でシューテイ 
ングをさせるものである。「ドラゴンスピリ 
ット」などと同じようなジャンルといえる。 
これはまさに無難な作りで，難易度も含め 
てそこそこ遊べるものになっている。中盤 
の，巨大な敵の体の上を背景として場面が 
展開していくところなどは，なかなかいい 
アイデアだ。可もなく不可もなくといった 
ような印象が，こぢんまりとま t まってい 
て，好感を得たのだろうと思われる。 

この作品も音楽は標準のものを使ってい 


るのだが，こちらはあまり雰囲気を損ねて 
いない。しかしやはりオリジナルの音楽が 
あれば，もっと印象はよくなると断言して 

もいいだろう。 

ツールの 限界と作品 

というわけで，各作品に固有の長所や短 
所を見てきたのだが，これらの作品すベて 
に共通の問題点がいくつか見受けられる。 
つまり，ツールとしての「シューテイング 
68 K 」 の限界の ことだ。ショッ トの発射の 
優先順位のクセのため，連射をする！:斜め 
や横の攻撃が出なくなったり，途中でディ 
スタを入れ替える必要に迫られる （2 ドラ 
イブなのに）ことである。 

ューザー側の工夫で苋服できるようなも 
のなら逃げ道はあるかもしれないが，こう 
いったシステム上の問題点は，本体のバー 
ジョンアップによって対応してもらわなけ 
れば，どうしようもない。 

しかも，今回のコンテストの作品によっ 
て， ツールと しての欠点や求められる機能 
がハッキリ示されたのではないだろうか。 
その貴重な情報をもとに，より親しみやす 
い ツールと しての成長を希望したい。 

誰もがゲームを作る喜びを味わえるため 
に……。作ることの先には必ず何かがある 
のだから。 



負けずに作ってみるのがスジか？ 


とりあえず，これらの作品を見れば，「シュー 
ティング 68 K 」 がどれだけの機能をもち，どう 
やればどうなるかもわかるハズだ。ある意味， 
このツールで作品を作る人への教科書になるの 
かもしれない。ツール本体のエディタを使って， 
いろいろ解析してみることを勧める。持ってい 
ても宝の持ち腐れになっている人は，これを機 
に発奮してはいかがなものかと思う。 

ちなみに，自分でこのツールを使ったらどん 
なゲームができるか考えてみて，ふっと浮かん 
だアイデアは，自機の弾を出ないようにしてし 
まい，上から見た力ーレースにしてしまうとい 


うものだった（ログインのヨコスカウォーズを 
使ったゲームに似たものがあった気はする が)。 
ひまができたらやってみたいような 気 もす る。 
シューティング以外にも応用性がきくとしたら， 
それはそれでこのテのツールの興味深い面白い 
可能性を示す こと なのかもしれない。 

総合評価 〇 _ 5 10 

ヴァリストレスナルト ★★★★★★★女 

三 國志一幻伝 一 ★★★★★女 

フェイバー•ザ.ロード ★★★★★女 
自分で作りたくなる ★★★★★★女 
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今回はレミングスです。派手なゲームでは 
ないのでパッと盛り上がったわけではない 
けれど，じわじわと人気が上がってきたゲ 
ームです0それだけに固定フアンも多いよ 
うです。 



レミンクス 


►なかなか解けないので長持ちするから。 
トラップにひっかかるのを見ているのがい 
い。 金井英樹 (21) 神奈川県 

►はまる！ （ AMIGA とほとんど同じだっ 
たから）でもサンプリングが少なく音が薄 
い。 金村厚男 （18) 広島県 

►レミングたちを集団自殺させると，気分 
はまさに「たまや〜」である。 

加藤洋介 (25) 埼玉県 
►手軽に遊べてよろしい。久しぶりに頭を 
使った気がするゲームだ。 

西方茂樹 (23) 茨城県 
►レミングたちがかわいいキャラで，動き 
もすばらしくきれいだったから！あの小 
さいレミングたち力 ? ，ちょこまかと動いて 
リアルだ！ 村上政幸 (18) 愛知県 

► 1面力 5 '短く手軽に楽しめる。しかし，パ 

スワードを打ち込むのはちょっと . 。 

田下昌充 (20) 神奈川県 
►一見，こまごましてわかりにくいゲーム 
と思うが，一度やると奥の*深さがすごく， 
キャラ1人ひとりに愛着がわいてくる。 

辰己真章 (18) 兵庫県 
►画面はシンプルなわりにのめり込んでし 
まう。やっぱりおもしろい。 

林寿弥 (19) 三重県 

►あっ，コラコラそっちに行くんじゃ一な 

い！ 白井崇文 (22) 神奈川県 

► Oh ! No . ポンッ！ . やみつきにな 

る。なかなか全面終わらないから。 

藤井実 (21) 千葉県 

► 3 人ぐらいで頭をひねくりまわしてやる 

のが，とってもナイス！ ロードランナー 
を思わせるようなレミングたちのグラフィ 
ック。 越智亮 (19) 大阪府 

► 面が進むとディスプレイ以外視界に入ら 
なくなるほどのめり込める。 

三輪祐一 (21) 愛知県 





ME 4:2 


►シューティングのへ夕な私には，このテ 
のソフトしかない！ 

岩田勝彦 (19) 岐阜県 
►レミングたちの愛らしい動きに愛着がわ 
くからだよ 一。 高橋昌弘 (20) 愛知県 

►なんといってもかわいいキャラクター， 
細かい動き。一度やると誰でもはまってし 
まうゲームだと思う！ 

和田映二 (21) 滋賀県 
►シューティングもいいけど，頭も使わな 
いと腐りますからあ……〇レミングたちが 


にくたらしいほどかわいい。 

羽生知浩 (19) 北海道 

►マニュアルの パ スワ ー ドメモ帳を ひとつ 
ずつ埋めていくという行動は，ラジオ体操に 
出てカードにハンコを押してもらう行為に 
通じるものがある。実に楽しくてしかたが 
ない。 松本拓司 （18) 埼玉県 

►いままでのゲームとは，どこかひと味違 
う新しさがあるゲームだ。 


安田稔 (24) 埼玉県 
►パワー モンガーより頭を使う！タイム 
ォーバー や集団自殺のときの悲痛な叫び声 
がたまらない（その声が聞きた〈て思わず 
殺レミングをやってしまう……)〇 

市川徳明 （18) 東京都 
►解けなかった面を解いたときの喜びとそ 
の快感を知ってほしいから。命を守る大切 
さを知ってほしいから（笑)。 

小杉貴秀 (15) 新潟県 

►スターウォーズといいレミングスといい， 
一度やってみると買いたくなりますね。 

田高浩一 (25) 東京都 

►ゲームは，このレミングスのように創造 
性があるほうがいい。シューテイングゲー 
ムには r 波壊しかないように思えてつまら 
ないから。 香村潤一郎 (22) 沖縄県 

►昔はまった「チャンピオンシップ.口一 
ドランナー」 を思い出させてくれた。 

堀越小千雄 (21) 東京都 

►あの“ ムー ミン”（に出てきた ニョロニョ 
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AFTER REVIEW 


口）を思い出させる。 

根津正博 (26) 福島県 
►レミ ングスやっと終わりました 。 May 
hem の29面がいちばんたいへんだったか 
な？ やり方はわかっているのに，タイミ 
ングがむずかしい面が多くて。最終面は 
“We all fall down ” レミ ング100匹を期侍 
していたのですが違いましたね。お年を召 
した方に頭の柔軟体操としていかがです 
か？ 中内英裕 (28) 栃木県 

►ポーズをすればじっくり考えることがで 
きるので，ロードランナーが苦手な私でも 
できたから。 片平正二 (17) 福島県 

►1 日中ヒマをつぶせてあきさせない。で 
も疲れてしまうけど。 

北才す進二郎 (30) 滋賀県 
►アイデアがいいから0レミンク、'たちの動 
きもユー モ ラスなこと！ パズル としても 
とてもおもしろい。北内啓 (20) 京都府 
►久しぶりに頭の体操ができるゲームだ。 
やり 始めると必ず ハマる。 

後迫浩一 (31) 東京都 
►文句なくおもしろいです。ただ，キャラ 
クターが小さいので，ゲームをしたあと目 
が痛くなるのが難点ですね。 

竹鶴敏夫 (18) 広島県 

► 土木関係者（土木工学科）からひと言。 
あの不自然な橋がよい。 

小海昌伸 (18) 新潟県 
►ゲームが苦手な人でもけっこう遊べる 
(これは自分のことだったりする）。 

濱崎健一 (28) 広島県 

► BLOCKER がかわいそすぎる〜。謙虚な 
姿勢のレミングたちがよい。 

上池宏幸 (17) 滋賀県 
►これは対戦がおもしろい。ポピュラスと 
はまた違った陰険な (!?) 闘いが楽しめます。 

金丸勉 (20) 滋賀県 
►最近買ってハマってます。ちょっとした 
ヒマにできるから（でもハマるから結局 

…… )0 小川靖浩 (20) 東京都 

► 8ドット，4色，8ドット，4色，8ド 

ット，4色，8ドッ . 。 

岩浅裕一 (16) 神奈川県 
►レミン ダスは悲壮な ゲームで ある。私の 
友達は，大量に殺して喜んでいたが，あの 
声が夜中に私を苦しめる……。 

小沼健太郎 (15) 千葉県 

►このゲームは， パズル ゲームにしてはも 
のすごくおもしろいと思う。 

羽深修 (16) 秋田県 
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►イマジニアのゲームはハズ レがないと思 
っているから。植木正幸 (23) 神奈川県 
►とにかくムキになる。こんなにムキにな 
ったのはポピュラス以来だ。 

海野弘之 (24) 大阪府 
►いまわのきわのレミングたちが放つ花火 
が，このゲームを推すすべての理由です。 

西崎貴博 (17) 北海道 
►はっきりいって，ポピュラスの比ではな 
い！ 対戦にハマりまくりました。 

宮原大 (19) 岡山県 

►キャラクターの動きがたいへんユニーク 
で，かつよくできて いるゲーム だと思うか 

ら。 浅見喜代司 （21) 群馬県 


発売中のソフト 


★ファイナルファイト カプコン 

X 68000 用 5〃2 HD 版9,800円（税別） 

★リーデイングカンパニー 光栄 

X 68000 用 3.5/5"2 HD 版 12,800円（税別） 

★ヴェルスナーグ戦乱 ファミリーソフト 

X 68000 用 3.5/5"2 HD 版9,800円（税別） 

★シューテイング 68 K GAMES (ヴァリストレスナルト） 

ブラザーエ業 ( TAKERU ) 
X 68000 用 3.5/5〃2 HD 版3,000円（税込） 

★シューテイング 68 K GAMES (三国志一幻伝一，フヱイバー. 
ザ•口-ド） ブラザーエ業 ( TAKERU ) 

X 68000 用 3.5/5"2 HD 版3,000円（税込） 


新作情報 


★ポピュラス II 
X 68000 用 

★エトワールプリンセス 


イマジニア 

5〃2 HD 版価格未定 
ェグザクト 


X 68000 用 


5〃2 HD 版価格未定 

★ ドラゴンスレイヤー英雄伝説 SPS 

X 68000 用 


5"2 HD 版価格未定 

★デスブレイド 


SPS 

X 68000 用 


5〃2 HD 版価格未定 

★フアルディア 


M . N . M ソフトウェア 

X 68000 用 


5"2 HD 版価格未定 

★究極タイガー 


金子製作所 

X 68000 用 


5"2 HD 版価格未定 

★ェアバスター 


金子製作所 

X 68000 用 


5"2 HD 版価格未定 

★バーン ウェルト 


グローディア 

X 68000 用 


5"2 HD 版価格未定 

★エアーマネジメント 

光栄 

X 68000 用 


5"2 HD 版 11,800円(税別) 

★ライフ • イズ • 

ミュ 

ージック 光栄 

X 68000 用 


3.5/5〃2 HD 版価格未定 

★沈黙の艦隊 


ジー • エー • エ厶 

X 68000 用 

3.5/5〃2 HD 版 12,800円(税別) 

★ネクタリス 


システムソフト 

X 68000 用 

5"2 HD 版予価7,800円(税別） 

★OVERTAKE (仮） 

ズーム 

X 68000 用 


5"2 HD 版価格未定 

★ふしぎの海のナディア ガイナツクス 

X 68000 用 

3.5/5〃2 HD 版 14,800円(税別) 

★キャッスルズ 


ビクター音楽産業 

X 68000 用 


5"2 HD 版9,800円(税別） 

★ライジングサン 


ビクター音楽産業 

X 68000 用 


5"2 HD 版9,800円(税別） 

★ウエルトリス 


BPS 

X 68000 用 


5"2 HD 版7,800円(税別) 

★サーク II 


ブラザーエ業 ( TAKERU ) 


X 68000 用 

★チェイス H . Q . 

X 68000 用 
★餓狼伝説 
X 68000 用 
★サバッシュ II 

X 68000 用 


3.5/5"2 HD 版8,800円（税別） 
ブラザーエ業 ( TAKERU ) 
3.5/5〃2 HD 版7,800円(税込） 
ホームデータ 
5"2 HD 版予価8,500円（税別） 

ヒッパロスの風 
ポプコムソフ ト/グロー ディア 
5"2 HD 版 12,800円(税別) 
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_ 多機能 グラフィックツール_ 

MAHER を使5(後編) 


、 Kawahara Youi 川原由唯 



MATIER は質感重視の 2D 処理，高機能エデ 
イット& 3 D 処理という “HIGH TEC& 
HIGH TOUCH” を実現した新しいグラフイ 
ックツールです。 


TUBE の季節！されど蒸し熱いなか 
に中嶋美智代の新譜を流してさらに頭をク 
ラクラさせながらこの原稿を書いている今 
日はまだ梅雨明け前であったりする （7 月19 
日現在•東京)。ああ，夏だね。 

ホ 本 ホ 

久しぶりに手放しで誉めまくれる ツール 
に出合えた。その名を マチエール ( MATIER ) 
という。たぶん，材質や質感といった意味 
の，（一般には)芸術用語。英語でいうとこ 
ろの material と同義と思う。辞書に載って 
ないから自信はないが，たぶんフランス語 
だろう （ Mati 6 re の男性形？）〇 
先月号の紹介記事 • 前編では，中野氏が 
全体的な機能と環境について紹介されてい 



たので，今回は実践編ということで，ちょ 
っとしたサンプルなどを載せながら，具体 
的な特徴を紹介してみよう。 

CG っていったい 

さて，皆さんが‘‘ CG ” t 聞いてまず思いつ 
くモノって，どんな感じのものでしょう。 
カーグラフィクスなんて10年前のギャグい 
ってる奴はその辺にうっちやっといて，大 
半は 「アニメ （セル画）調の 絵」 や 「レイ 
ト レーシング」 のような 3 D CG を思い浮か 
ベ るん じ やないかな。 セルアニメは オタク 
文化の代表格だから，我々のような最先端 
ヲタクに絵を描かせれば，それがラムちゃ 
んにケイトーしてしまうのはもっともなこ 
とだし， 3 D CG はコンピュータがなかった 
らまず絶対に生まれなかったんだから，思 
いっくのは当然だね。 

「 CG やってます」 t 自己紹介なんかしたら 



「アカデミックな方なんですねえ」な一ん 
て評判になってしまうようなところも，一 
般にはあったりする（実はそれが乱馬の絵 
でも)。 

いずれにしても，新しい文化，デジタル 
な触感を持ったアートの代表として 「CGj 
という言葉は存在するように思う。 

最近になって，人並みの市民権をそれな 
りに確立してきてからは， CD ジャケット 
や，広告関連のアイキャッチングイラスト 
など，ちょっと先行きたいお サレ 業界のス 
テイタス的利用が増えてきてはいるが，で 
もそこいら辺での利用って，たいていは取 
り込み写真の加工品であるとか（レタッチ 
などともいう。これがたいてい Macintosh 
使ってるんだなあ），ただ‘‘コンピュータを 
使った”ということが意味を持つコンピュ 
ータ自身の広告などでしかなかったように 
感じる。純粋な CG ってものの定義がどんな 
もんかは知らんが，取り込み画の加工品で 



さまざまなペンで作られたブラシによる表現の違い 
を見てほしい。それぞれ右側が基本となるブラシパ 
夕ーン，左側の犬が応用例だ。順に， 

オーソドックスな透明水彩風 
ちよつと透明度を下げた不透明水彩風 
細いベンでストロークを強調した色鉛筆風 
透明度を上げた淡い水墨画風 
ランダムなベタ塗りストロークの油絵風 
といった感じ。ブラシの設定は簡単でもっと多彩な 
表現も可能だ 
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メッシュ変形の効果 



毛筆モードは難しい。フラクタルペンはもっと難しい 



プラシを使った草原の表現。しかし，ファイルサイズは 400 K パイトを超えた. 

ままでの ツールが， 既存の画材の束縛から 
抜け切れて いない t いうこともいえると思 
う。「水彩風」「油彩風」であ-るとか，「パス 
テル風」とか，すでにある画法の雰囲気を 
描くことができる ツールが よいもののよう 
な 評価をされがちだ。でも決してそういう 
ツールがいいツールなんじゃない よ ね。 CG 
だからこそできる表現を持った ツールが， 

実は侍ち望まれている昨今なわけだ。 

そういった意味では，この新製品 「MA 
TIER 」 は，両方の要求を満たしてくれるか 
なり優れたヤツだ。色変換やトランスフォ 
ームといった CG 特有の機能はもちろん，い 
ままでの CG ツールでは表現することが難 
しかった「タッチ j を簡単に出すことがで 
きるのだから。僕が知る限りでは ，X 68000 
の6万色モード使用のツールでこういった 
微妙な筆使いをシミュレートできるものは 
いままでなかった。 2 D CG の新たな時代の 
幕開けだ！ 


いろんなペンがついておトク 

もうついていて当たり前の機能は紹介し 
ても無駄だからしない。おいしくて強くな 
るなる機能だけピックアップするぞ。 

まず紹介したいのがさまざまなペン先だ。 
とにかく MATIER はペン先のバリエーシ 
ヨンが豊富，というか，組み合わせること 
で無限のパターンを生み出すことができる。 
この組み合わせがあまりに多くて覚えきれ 
ないくらいだ。特に魅力的なのがブラシ。 
ブラシといっても，ただのエアブラシでは 
ない。ブラされるのが選択されているペン 
なのた^そのペンってのがうねうねだった 
りくによくによだったりふわふわだったり 
ぽちぽちだったり（説明になっとらん），あ 
あ，言葉では表現しにくいのだ。百読は一 
見にしかず。画面写真を見ておくれ。これ 
だけで MATIER の凄さがわかると思う。 


はイマイチ CG としては認めたくないな 
……ってな気がする。 

しかも安っぽい作品が多いゆえ，コンピ 
ユータグ ラフィックの 「アート」としての 
認知度は一般には低いようだ。個展を開い 
たりする作家も徐々に現れ出したが，絶対 
数からしてまだまだ少ない。実際，評価に 
値する作品はほとんどない，特に二次元作 
品においては（と，いいきってしまっても 
あんまり罪悪感を感じないのが困ってしま 
ぅ） 。 

さて， CG ， CG と簡単にいっているが ， CG 
っていったいどんなモノだろう。ど一いう 
わけか，たいていの CG って，ひと目で CG だ' 
ということがわかってしまうよね。 

なぜだろう。いままでの CG の特徴とし 
て，輪郭線がはっきりしている。ベタ塗り 
が多い。原色が多く使われる傾向がある。 
つやつやしてる。てかてかしてる。ぬるぬ 
るしてる . 云々。 

いささか抽象的な言葉が多いけど，実際 
に CG の特徴を抽出すれば，上記のような表 
現でいい表すのが簡単だよね。これが好き 
だという人もいれば，「硬」い，「冷」たい， 
からキライだという人もいる。 

対して普通の絵画の特徴ってなんだろ 
う？ 画法によるところも多いけれど，画 
家の個性を表すいちばん重要なファクター 
はやはり「タッチ」だといえないかな（逆 
にいうと，大量生産流れ作業型テレビアニ 
メがなぜ セル アニメを採用しているかとい 
えば， セル 画が個性の出やすい「タッチ」を 
最小限に抑えられる画法だからだろう）。 

そう， CG と一般の絵を分け隔てているも 
っとも重要な点が「タッチ」なのだ。油絵 
や水彩の温かみというのは，筆やペンの夕 
ッチによるところが大きい。 

自然画対応 

筆やペンのタッチを表現することのでき 
る CG ツールは，現在では，まだ少ない。ベ 
夕塗りが綺麗にできる CG だったからこそ， 
特にパソコンではアニメ調の絵が流行った 
んだと思う0ツールの限界が大きな要因で 
あったはずだ。決して両マニアの相関が高 
かったという理由だけではない（それもあ 
るけど）。 

また，話はちょっと飛躍するけれど，い 
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基本の絵に 




さまざまな処理を組み合わせて画像を合成してみた。まず，グラデーション 
スプラッターブラシという特殊効果で，画面全体に4点グラデーションの色 
でブラシをかける。ストロークの長い油絵調の元絵はメッシユ変形で簡単に 
ゴッホ，ムンク風にできる。次にスキャナから取り込んだ布地でシヱイドコ 
ピーを行う。バンプマッピング風の質感が出る。そして，大本となる絵の背 
景をマスク指定し，裏画面との合成を行う。透明度は56%で合成されている。 
MATIER は豊富な裏画面（ただし 4 M バイト以上）と賢いマスク機能による画像 
合成や豊富なエフヱクタによるフォトレタッチ処理に力を発揮する 


マスクをかける 


正直なところ，これを使いこなすのはち 
ょっと大変だなって気がするが，機能の使 
い方自体に難しいところはないし（エディ 
ター発)，これだけの重そうな処理を，不思 
議なくらい気持ちのいい速度でこなしてい 
る。十分実用レベルだ。うれしい。 

フラクタルペン（などといっているが， 
要するに「にじみペン j である）もある。 
中心部が濃いめ，周辺部が薄めに，ランダ 
ムな広がりをするペンだ。分岐数などパラ 
メータ調整で太さ （？） を調節することもで 
きる。フラクタルというだけあって，粗い 
紙の繊維に絵の具がにじんでいくような跡 
が得られる。水彩っぽい表現が可能だ。 

水彩といえば，忘れてはならない機能が 
ある。それが透明ペン （？） だ。これはすで 
に画面上にある色の上を，水をつけた筆で 


こするような効果をだせる。また，透明色 
だけではなくて，色の着いた絵の具でこす 
ることも可能だし，パステル画のように紙 
の上に載っている絵の具をこすって周りに 
広げるような効果もできる。にじみペンの 
後処理版 t 考えてもいい。これも実にオイ 
シイ機能。ほしかったんだ，こういうの。 

特殊機能 

特殊機能にもなかなか面白くて使える機 
能がつまっている。特にメッシュ トランス 
フォームは 圧巻。いままでの ツールで も卜 
ランスフォーム 機能を備えていたものは あ 
ったが， せいぜい 台形変形く らいに しか使 
えなかったよね。ところが MATIER のそれ 
は， 矩形領域の要所に制御点を設定して， 


その制御点の移動によって，ちゃあんと間 
を補間して滑らかに変形してくれるのだ！ 
う〜む，楽しい。これぞ CG の醍醐味ってや 
つよね。これからのお見合い写真には必需 
品かもしれない機能（うそ）。 

あと，ランダムノイズを入れる処理。こ 
れも面白い。画像の圧縮率は悪くなるが， 
アニメ調のベタ絵に入れるとざらっとした 
自然画調の雰囲気になる。使える。 

平滑化 • 鮮鋭化，輪郭抽出 •レリーフ • 
モザイク.フレアなどの， Z ’ s - EX でお馴染 
みの機能も デフォルト で搭載。 

拡大.縮小.ネガ•ポジ'.アンフォーカ 
スは，もはやついていて当たり前，だがそ 
れぞれがオーバーサンプリングによるデジ 
ヤギーを行っているので，非常に高品位な 
結果が得られる。グラデーションはディザ 
設定可能でマッハバンドのない美しい仕上 
がり。 

あと，前回に紹介されていた球体をフォ 
ンシヱーディングで描く機能や，もっこし 
機能。これを見てたら，昔流行った T シヤ 
ツなんかに塗ってドライヤーで熱風を当て 
St 「もこもこもこ」と膨らむアレを思い 
出してしまった。ま，使い方によっては面 
白いやね。球体フォンシェーディングは， 
あらかじめ裏画面に転送しておいた絵を球 



これは Z ’ S - EX で描いた雲…… メッシュ変形でこんなに表情が出る 


38 Oh ! X 1992. 9. 






































状にマッピングすること S ) できる。水晶玉 
みたいだ。 

弘法だって筆選び 

いまどきの CG 絵描きは，2，3種類のツ 
ールを使い分けるのが当たり前になってき 
ている。ひとつのソフトで自分に必要な機 
能をすべて備えているものなんて（自作で 
もしない限り）ありえないし，限られた環 
境下では，それぞれのソフトの得意なとこ 
ろを組み合わせて使うのが効率的だからだ。 
僕自身，これからは MATIERtZ ’ s の両方 

を使っていくつもりだ。はっきりいってこ 
いつには1忽れた。 

MATIER は，とにかくアーテイスト寄り 
の設計がなされたツールだ。したがってア 
ニメ調の絵を描く絵描きが MATIER を選 
ぶのはあまり意味がないことかもしれない 
(ツールに流されてみたい，使われてみたい 
ってなら，ちよっかい出してみるのも経験 
だけど）。タイリングペイントがない分，ア 
ニメ絵は不得手。微妙な筆遣い，一筆入魂 
の絵師が使って初めて意味を成すツール 
……，おおげさかもしれないけど，本当に 
そんなふうにいってしまいたいところがあ 
る。「俺のマウスさばきはニッポンいちや」 
いうちょっと自信過剰気味の人なら，悪い 
ことはいわない。買いなさい。これ使わな 
きゃ損だよ，絶対。いままで Z ’ s を使ってい 
て不満があった人もぜひ一度お試しを。ひ 
よっとしたらあなたのよきパートナーとな 
ってくれるかも。 

「買い」なんだけど 

「凄い，凄すぎる」。あまりの多機能ゆえ 
に，紹介できなかった機能も多く存在する。 
しかも筆者が普段，ガキっぽい絵しか描い 
ていないもので，力及ばず，チヤチなサン 



エフェクト&エディット 機能の競演。モザイク処理には「タイル化」というオプションがある。 
なにかと思えば……，文字どおりタイル壁画に変換してしまうのだ。自由変形などを見ても，変 
形画像は美しい。オーバーサンプリングの効果が十分に表れている 



Hit 








のグラフィックツールの代表としての地位 


プル画しか描くことができなかった。今回 
はツールを前にしてなる」という気 
分を本気で実感し f しまっ 1：。 使いこなせ 
るようになるには ; ±だまだ+ 業が必要 よ 
うだ。人生 是修槊よのお,， 

とにかく， m |【' ikr の特笨 す/' き点は 
「タツチ」である はかに 4而|'|い M ■舞効求 
が山盛りなのだ 妒， あ まりに も.夕 _ヂが沾 
ぃのでそれば*】 I ) 


• ればか!! 


それにしても，豊富なタッチ!:特殊効果 
のおかげさんで仕上がった絵の圧縮率の悪 
いことひどいこ！:。この調子だと PIC フォ 
1:!% マットで 400 K バイト超えるの U ：-'i 
たり 前の時代が 1 ;るかもね。 

面目に ||^ ER を馆 こなせる絵師 
■が 叫れ出 したその！： S は，； ブ : ロアマ問わず 
16800 ( KJG 界もなかな か いむ: 

るこ と…だ身'う。やがて， MATIIER が X 68000 


を確立（絶対に確立するだろうけど）した 
ら，画像フォーマットの標準が現在の PIC 



から， 自组 g に強い JPEG フォーマットの 
よう；^ のに 变わっているかも。5年目に 
し .ます I す面白くなってきた X 68000 
く ゎく 






































■■ DqGA CG アニメーシヨン講座 ver .2.50 


(第1回) 


打倒 TORN ADO への第一歩(前編） 

プロジェクトチーム 加 GA 第 1 回目ということで，お試しシステムのデータを利用して，非常に簡 
かまたゆたか 単なアニメーシヨンを作ってみましょう。マニュアルをまだ入手してい 

ない方でもできるように，すべての操作を具体的に記載しました。さあ, 
7月号の付録ディスクを取り出して，あなたも CGA アーチスト！ 


はじめに 

今回から始まるこの連載は，本年の7月号の付録ディ 
スクとして配布した 「 D 6 GA CGA システム」を用いて， 
皆さんが CG アニメーシヨン作品を制作できるようにな 
ることを目的としています。 D 6 GACGA システムや当チ 
ームの解説は7月号をご覧ください。また，7月号を持 
っていない方.のために， CGA システムの入手方法につい 
ては次ページの コラムに まとめてあります。 

さて，マニュアルの申し込み用紙の裏の自由記入欄を 
拝見すると，連載は，初心者でもわかるような初歩の初 
歩からやってほしいという声が多いようですので，当分 
の間はマニュアルの 「 CGA 大学編/教養課程」並の内容に 
したいと思います。 

制作の手順は，可能なかぎり具体的に解説しますので， 
とりあえず書いてあるとおりに実行してみてください。 
そして，そのあといろいろ試行錯誤することで，テクニ 
ックを磨いてください。パワーユーザーには少しものた 
りないかもしれませんが，楽をするためのテクニックや 
面白い表現方法なども盛り込んでいきますのでお見逃し 
なく。 

また，2 力 月遅れのペースで“補習”の コーナー も設 
けようと思いますので，わかりにくかった点や疑問など 
がありましたら， D 6 GA プロジエクトルーム内 「 CGA 講 
座補習係 j までお手紙ください。 

今回の目標 

芸術祭のグランプリ作品 「 TORNADO 」 はご觜になり 
ましたか？ 7月号では，写真がたくさん掲載されまし 
たが，やはり静止画では，実際の作品のスピード感，迫 
力，感動は伝わりにくいものです。 

ところで，制作者である文月凉さんは授賞式で，“私が 
特別なのではなく， X 68000 t CGA システム があれば，誰 
にでもこういった作品ができるってことを知ってもらい 
たい” t 語っていましたが，さて，これは本当でしょう 
か？ 誰にでも，つまり，まったくの初心者でも 「TOR 
NADO 」 はできるのでしようか？ 

“なにむちゃをいってるんだ。 CG の知識も経験もないド 
初心者の自分にできるわけないだろ。文月さんは単に謙 
遜しているだけだ” t 思う方も多いでしょう。本当に， 


ただの社交辞令？ 

この問題の結論は先送りにして，実際に皆さんに数力 
ットの CGA を制作していただきましょう。まず，今回の 
前編で FFE と AUTO だけを使って，視点だけが動く非常 
に簡単なアニメーションを制作します。画質を向上させ 
る方法も習得しましょう。 

題材は 「 TORNADO 」 に対抗して， 「お 試し システム j 
のサンプルデータの F 1 を使います。 

そして次回の後編では，複数の物体が動くカットを制 
作して，最後に「お試しシステム」のデモ画像と一緒に， 
連続アニメーションとして作品風にまとめます。 

連載1回 111 から，いきなり 「 TORNADO 」 とタメを張 
ろうというこの企画はちょっと無謀ですかね。でも書い 
てある！:おりに実行すれば，必ず誰でもできるはずです。 

とりあえず1カツト制作してみる 

以下の解説は，フロッピーディスクで CGA システムを 
使用している t 想定しています。ハードディスタで使用 
している場合はドライブ名などが異なってきますので， 
ご注意ください。 

〇準備 

概要：制作に入る前に，必要なものを揃えます。 

操作： 1) 7月号付録ディスクから解凍した， 

お試し システム 
CGA システム 
を用意する 

2) データディスク用にフォーマットずみのブラ 
ンクディスクを用意する 

解説：このレクチャーには，およそ30分の時間を要しま 
すので，そのくらいの時間も用意してください。フォー 
マッ トの方法もわからないという初心者の方は， CGA シ 
ステムのマニュアルの 「 CGA 大学編/教養課程/ノソコン 
基礎概論」の単位を習得してから，再チャレンジしてく 
ださい。 

〇 PES を終了する 

概要： CGA システムのウィンドウシステム型のメニュ 
一である PES を終了し， コマンド ライ ン から操作できる 
ようにします。 

操作： 1) ドライブ0に 「 CGA システム」を入れ，ドライ 
ブ1にデータディスクを入れて， 「 OPT .1」 を押し 
たまま電源を入れる 
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-> CGA システムが起動して， PES の初期画面にな 
る（図1> 

2) マウスの右ボタンを押す 

— ポップアップメニューが出る（図 2) 

3) 右ボタンを押したまま，ポップアップメニュ 
一の いちばん下の「終了」に マウスカーソルを 持 
っていって，ボタンを離す（図 3) 

— CGA システムが終了し， 「 B >」 と表示される 
解説：安心してください。 PES を終了しても， CGA シス 
テムを使うことはできます。 PES は，各 コマンドの 実行 
などがマウスひとつで楽々操作できるため，初心者にと 
って便利なッールですが， PES の使い方を一から解説し 
ていると，それだけで連載が1回終わってしまいます。 
ですから，今回は PES を使わずに コマン ドライ ン から 
CGA システムを実行します。 PES の使い方は 「 CGA 大学 
編/教德課程/ PES 基礎概論」をご覧ください。 

〇データディスクの作成 

概要：「お試しシステム」から必要なデータファイルを 
コピーします。 

操作： 1) ドライブ〇の 「CGA シス テム」を「お試し シス 
テム」と取り替える 

2) 「 B >」 のあとに，キーボードから， 

copy a :¥ test 2¥ object ¥ tyrl .* 

と入力し，リターンキーを押す 


—以下のように表示される 

a :¥ test 2¥ object¥TYRL _ATR 

a :¥ test 2¥ object¥TYRL .DOC 

a :¥ test 2¥ object¥TYRL .PIC 

a :¥ test 2¥ object¥TYRL .SUF 


4 個のファイルをコピーしま しすこ 
3) 「 B >」 のあとに，キーボードから， 

copy a :¥ test 2¥ background ¥ jimen . * 

と入力し，リターンキーを押す 
— 以下のように表示される 

a :¥ test 2¥ background¥JIMEN .ATR 

a :¥ test 2¥ background¥JIMEN .SUF 

2個のファイルをコピーしました 
解説： 「 TYRL 」 というのは，「お試しシステム」に入つ 
ていた F 1 のデータで， 「 JIMEN 」 は背景用のデータで 
す。ここでは6つのファイルをコピーしています力 5 ',今 
回は 「 TYRL . DOC 」 と 「 TYRL . PIC 」 は使用しません。 
〇 FFE を起動する 

概要： モーション デザイ ンツール FFE を起動します。 
操作： 1) ドライブ〇の「お試しシステム」を 「 CGA シス 
テム」に戻す 
2) 「 B >」 のあとに， 

FFE 

と入力し，リターンキーを押す 
— FFE が起動し，初期画面が現れる（図 4) 

〇物体設定 

概要：「丁 YRL 」 を呼び出し，移動せずにそのまま原点 
に置きます。 

操作： 1) メッセージパネルの「4)物体設定」を左ク 
リックする 


—物体設定のメニューが出る 

1) 追加 

2) 変更 

3) 削除 

4) 終了 

2) 「1)追加」を左クリックする 

形状 ファイルの 入カモードになり，2 つの 形状 
データが 表示され る 
TYRL.SUF 
JIMEN.SUF 

3) 「 TYRL . SUF 」 を左クリックする 

—「データ読み込み中」「処理実行」などが表 
示される 

図1初期画面 図2ポップアップ メニュー 




図3 



図4 FFE 初期画面 



CGA システムの入手方法 


そんな人がたくさんいるとは思いませんが， 7月号をたまたま買い忘れたと 
か，今月号から Oh ! X を読み始めたという方のために， CGA システムを再配布しま 
す。 

7月号を持っていないということは，当チームのことも， CGA システムのこと 
も知らないでしょう。簡単に解説すると，当チームは，プロのソフトハウスで 
はなく，阪大，京大のコンピュータクラブを中心にした， CG アニメーションの 
共同開発チームです。そして，そこで開発された一連の CG アニメーション制作 
プログラムが， CGA システムです。 

ということで，別に売って儲けようという意図はなく，当チームの主旨に賛 
同するアマチュアの方にかぎって，実費（大部分がマニュアル代）+カンパで配 
布しているわけです。配布は，非常に手間がかかって，当チームの負担になっ 
ていますので，あまりむちやをいわないようにご協力お願いいたします。 

〇 申し込み期間 

1992年8月 I 日〜9月30日 

〇 内容 

CGA システムディスク 丨枚 

丨冊 

マニュアル （800 ページ） 

〇* 用 

実費 （2, 000円）+カンパ （ I 口 1,000円，丨 口 以上） 

〇 申し込み方法 

住所，氏名（フリガナも），電話番号を明記のうえ， 「 CGA システム（ディスク+ 
マニュアル）がほしい」と書いて，プロジェクトルームに送る。後ほど，こち 
らから振り込み用紙などを送ります。 

〇 申し込み先 

〒533大阪市東淀川区淡路5 — 17 — 2 102号 

プロジェクトチーム D 6 GA 「めんどうくさい CGA システム配布係」 
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その後， F 1 が黄色で表示される（図 5) ので，まずフレーム No . を設定します。 

4) 「作画」を左クリックする 操作： 1) メッセージパネルの「5)フレーム No . 設定」 


—右上に完成予想図が表示される 

5) 「決定」を左クリックする 

—左側の2つの図面の F 1 が水色に変わる（図 6) 

メッセージパネルが物体設定のメニューに戻る 

6) 「4)終了」を左クリックする 
— メインメニューに 戻る 

解説：物体を追加すると，まず原点(0,0,0)に表示されま 
す。通常は追加すると同時に位置も設定しますが，今回 
はこのまま原点に置いています。位置の変更や複数の物 
体を設置する方法は次回で解説します。 

〇 フレーム No . の変更 

概要：最初はこの位置，何秒後はこの位置……というふ 
うに，時間と位置を交互に指定して動きを設定します。 
時間はフレーム単位で設定します （ 1秒は20フレーム） 


を左クリックする 
—フレーム No . 設定状態になる 
ナンバー： 1 

決 定 
削 除 
中 止 

ナンバーの「1」が反転して，入力可能状態であ 
ることを示している 

2) キーボードから「20」を入力し，リターンを 
押す 

-> 「この フレームは まだ設定しておりません。新 
しく設定することができます」と表示され，「決定」 
が反転する 

3) リターンキーを 押す 


図5 TYRL 読み込み直後 


図6物体設定決定 


図7 フレーム 数 





画姬11ぁ回ゃ回ゃ回ゃ冏 gA 


こ一んにちは，柚姫です。今日は大阪市内の 
大きなお寺でお茶の会があって，そのお手伝い 
に行ってきました。300人近くのお客さんが入れ 
代わり立ち代わりにやってこられるので，もう 
た一いへん。姫も最後のほうにお点前をしたの 
ですが，めっちゃくちゃ緊張しちゃいました。 
こんなに大きな会は初めて。手が 震えて， 抹茶 
の粉がうまくすくえなくって…… 。 

だいたいお茶席っていうと，長い正座がつき 
ものなんですが，これには暗い過去があるんで 
すよね。 

ずっと前の会のときのこと，お点前がすんだ 

のでしまおうと立ったつもりが，立てない . , 

なんか足元が変。あれれ，なんかおかしい。ふ 
と見ると左の足の甲が下を向いている。と，思 
ったとたんに後ろ向きに転んで ， ひぇ〜。 

姫は立ち上がって，そのまま何事もなかった 
かのようにしずしずと部屋を出ました。だけど， 
お客さんは必死で笑いを嚙み殺しているし。は， 
恥ずかしかったよ〜。 

今回は「専門課程/第1限 
AT 闩基礎実習」だ〜 

この コラムは， マニュアルの 「 CGA 大学 編」 に 
沿って勉強す る 予定でしたが， こつこつやるの 
が苦手な姫は，いきなり飛び級してしまいまし 
た。だけどいいのかな（ちょっと不安な姫）。 

え一っと， PES を立ち上げて，あっ，フロッピ 
一をフォーマットしとくの忘れた。 PES の中で 
フォーマットできないかなぁ，う一ん。うろう 
ろ，うろうろ。で，できない，ぐすぐす （ Human 68 
k に戻る姬。でも，最近はもうフォーマットが 躊 
躇しないでできるようになったので，ちょっと 


うれしい）。 

で，また PES に 戻って。 それからコマンドウィ 
ンドウで ATR を選択する（適当にマニュアルを 
斜め読みしながら始める無謀な姫)。 え一 と，形 
状ファイルウィンドウから 「 JETKI . SUF 」 を指定 
すればいいのね。あれ？ 物体が な一い。 

そり や， フォーマットしたディスクには，な 
一んにもないのは当たり前？ そうかな 一。 そ 
ういわれればそんな 気 もする。でも，どうやっ 
たら物体が出てくるのかな （ちゃんと 読まない 
ですぐに人に頼る姫。しかし世間の風は冷たい 


そっか，お試しディスクの中から，ジェット 
機と地面の形状データをコピーしておかないと 
だめなんだ。ぐすぐす（また Human 68 k に戻る 
姫)。そうだ。コピーしてる間に，明日使う花火 
を買いにいってきま一す。明日，お客さん（女 
の子）がたくさん来るっていっていたから，い 
まから楽しみ。いっしよに花火ができたらいい 
な （ ATR を起動する前に，すでに現実逃避してい 
る姫，原稿は間に合うのかな？）。 

マッチヤマチにて 

ほかのスタッフの 人たちと一緒に，松屋町ま 
で花火を買い出しにいく。え一 っ， こんなにた 
くさん g えるんですか一。や，安い！さすが 
浪速の商人は違う。ほくほく （妙に感動してい 
る姫，でも姫は生まれたときから大阪人）。原稿 
はあがってないけど，すでに幸せ〜！ 

いとしこいしの JETKI.SUF 

や一っと，戻ってきました。それで何をする 
んだっけ。すでに，心は花火とともに遥か彼方 


に飛び去っている姫。あ〜した天気にな〜れ。 
そうだ，そうだ。 「 JETKI . SUFj を読み込みなが 
ら， ATR を起動するんだ。 

なんで一。どうして形状ファイルウィンドウ 
に何にも出てこないのよ。ちゃんとコピーした 
のに。わかんないよ。花火に心を移した私が悪 
かった。あれはほんの出来心。帰ってきてくれ 
— ， 「 JETKI . SUF 」 や一い（気分はすっかり妻に逃 
げられた夫のよう）。 

またまた Human 68 k を行ったり来たり。だけ 
ど，物体は出てこない。う〜ん，どうやらなん 
か違うみたい。明日にしよ一かなっと。全然解 
決になってないなあ。 

(そこへ神の声が…… ） なんだ，なんだ？ PES 
を起動したドライブが違うって？ カレントド 
ライブを変更したらいいのか（神の声：ちゃん 
と マニュアルを 読め〜）。 あっ， 「 JETKI.SUFj 
だ。やった一。感激，うるうる。 

ATR を起動できたら，あとは色なんかを変え 
ていくだけ。前にもやったことあるから，簡単， 
簡単。とりあえずマニュアルどおりに変えてみ 
よっかな。 

ということで，今月は，アトリビュートのデ 
一夕を変更するとこで終わ〜り（それは最後の 
数行だけという気もする）。 

今月の諸注意 

姫のようにならないように， 

1 ) マニュアルはちゃんと読みましょう 

2) PES を使用するときは，カレントドライブ 
に注意しましょう 

3) 長時間の正座には気をつけよう 
じや，またね〜。 
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4 メインメニューに民る 

現在のフレーム数の表示が，「20」となっている（図 

7) 


作 画 
決 定 
中 止 


DoGA 


解説：フレーム No . が20， つまり 1秒後の設定を行おう 
としているわけです。現在のフレーム No . は，常に図7の 
位置に表示されています。ところで， FFE の作者である 
三保君は仕様だというのですが，なぜかこの「フレーム 
No . 設定」ではマウスが使えません。「決定」を左クリッ 
クしても無視されます。「削除」や「中止」の場合，カー 
ソルキーで選択して，リターンキーで実行してください。 
〇視点の変更 
概要： 

フレーム No •が20のときの視点を設定。 (1000,0,0) にあ 
った視点を（-400,800,60 0) に変更します。物体の位置は， 
今回は変更しません。 

操作： 1) 「3)視点設定」を左クリックする 
視点設定状態になる 

視点 注目点 
X 座標1000 
Y 座標 
Z 座標 
画面回転 
画角 


( X 座標の「1000」が反転表示されている） 

2) キーボードから「-400」と入力し，リターン 
キーを押す 

— X 座標が「-400」となる 
Y 座標の入力状態になる 

3) キーボードから「800」と入力し，リターンキ 
一を押す 

— Y 座標が「800」となり， Z 座標の入力状態にな 
る 

4) キーボードから「600」と入力し，リターンキ 
一を 押す 

— Z 座標が「600」となる 

5) 「決定」を左クリックする 
— 完成予想図が変化する（図 8) 

メインメニューに戻る 

解説：各図面での X ， Y ， Z 軸の向きは，図9のように 
なっています。視点，視線は常時，赤と紫の直線で表示 
されています（図10)。 

今回は視点を動かしましたが，同時に注目点を変更す 
ることももちろんできます。 


度 

度 


読者によ3ほっとけないほっとこらむ 


この コーナー は「柚姫の明るい悩み相談室」 

のあとを継いで，読者の皆さんから寄せられた 
ご意見，ご感想，質問など，ホットな生の声を 
紹介します。 

はじめまして，うさ子と申します。現在，某 
S 社で OL をしています。数年前に阪大コンピュ 
—タクラブに在籍していたというだけの理由で， 
なぜかこのコーナーを担当することとなりまし 
た。だけど正直いって，まともに CG に取り組ん 
だこともなく，横からちゃちゃを入れている程 
度だったりして。未熟者ですが，よろしくお願 
いいたします。 

さて，今回はマニュアル申し込み用紙の自由 
記入欄から紹介いたします。 

くお試しシステムの感想> 

「素晴らしいアニメにびっくりしています」 
「このようなデータを作成する人は，“神”か"超 
ヒマ人”のどちらか？」 

「前評判は聞いていましたが，本当にここまで 
動くとは。感動しました j 
「タケルの データ 集よりよかった」 

うさ子：このようなおほめ （？） の言葉を多数 
いただき，スタッフの苦労も報われるというも 
のです。 CGA システムのほうも使えるようにな 
ったら，また感想を送ってくださいね。 

<質問です> 

「7月号の付録ディスクには，誌面で紹介され 
ていた RENCON . X や EXPOINT . X などが入ってい 
ないようですが」 

うさ子：あらあら，マニュアルもよく読まない 
うちに， CGA システムを展開してしまいました 
ね。付録ディスクから，フロッピーディスク版 
の CGA システムを作ると，ディスク容量の問題 
ですベてのツールを収められません。 

ハードディスクにインストールすれば，すべ 


てのプログラムが使えます。ただし，ハードデ 
イスクにインストールしても， PES のメニュー 
には表示されません。コマンドラインから起動 
する必要があります。 

どうしてこのようにしたかというと，ハード 
ディスクを持っていない方や， PES を使用する 
方は初心者なので，あまリむずかしいツールを 
入れても使えないんじゃないかと思ったんです。 
でも，コプロセッサを持っているから ， RENDX 
VI . X は使いたいという方もいらっしゃるかもし 
れませんね。 

どうしても，すべてのツールを フロッピー デ 
ィス クで使用したいのでしたら，新しいデ ィス 
クを用意して， 

LHA E DOGACGA 3 B : 

として，展開してください。 

くクレームです〉 

r X 68000 XVI のユーザーですが， 16 MHz の場 
合，アニメーションの画面が乱れてしまいます。 
10 MHz のときは大丈夫でした。乱れないように 
する方法はないでしょうか？」 

うさ子：う一ん，こちらの X 68000 XVI ではちゃ 
んと動きます。そこでシャープさんに問い合わ 
せてみました。 

「実験してみたところ，確かに正常に動く X 
68000 XVI とそうでない X 68000 XVI があります。 
どうやら，初期ロットでは動かないようです。 
しかし，ハード的に問題になるような点は思い 
当たりません。原因は不明です」 

うさ子：ということです。こちらではちゃんと 
動くので，プログラムも直しようがありません。 
いまのところ残念ながら， 10 MHz にして，我慢し 
てご使用いただくしかなさそうです。また新た 
な情報を入手しましたら，誌面上でお知らせい 
たします。ごめんなさい。 


<マニュアルについて> 

「郵便受けに2つ折りで入れられないように， 
ちゃんと“ 2つ折り厳禁”と書いてくださいね」 
「マニュアルは，ドキュメントファイルをつけ 
て，ユーザーにプリントさせれば簡単では」 
うさ子：甘いですね〜。あのマニュアルを2つ 
折りにできる郵便屋さんがいるとしたら，相当 
の腕力の持ち主ですよ。マニュアルは一太郎の 
ファイルで，ディスク3枚分あります。テキス 
トファイルで配布しても図が入らないし，プリ 
ントアウトの紙代やトナー代は丨枚7円ぐらい 
だから，7 (円） X 800 (ページ）=5,600円ぐら 
いかな。ねっ，多少手間がかかっても，こちら 
で印刷したほうがいいでしょ。 

<重箱の隅に間違い発見> 

「 CGA システムを Oh ! FM につけるとは大胆です 
ね。でも，うれしいです」 

うさ子： 「 Oh ! FM 」 は，現在 「 Oh!FM TOWNSj 
となっています（そういう問題じゃない？）。こ 
うした突拍子もない間違いを見つけると，つい 
つい披露したくなる悪いクセがありますので， 
ご注意ください。 

く肉体カンパ> 

「僕は実費の2,000円だけしか送らないことに 
します。カンパ分は僕の兄がスタッフとして働 
きます。マリオ古本の弟より」 

うさ子：遠慮せずに，あなたも阪大に入学して 
D 6 GA の一員となり，あなたの体でカンパをして 
くださることを期待しております。受験，がん 
ばってくださいね。 

以上，ほんの一部しかご紹介できなくて残念 
ですが，さまざまなご意見，ご声援を多数いた 
だきまして，本当にありがとうございました。 
今後とも，どんなことでも結構ですから，お便 
りお待ちしています。 
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〇 データ出力 

概要：作ったモーシヨンデータをセーブします。 
操作： 1) 「6)ファイル」を左クリックする 
— FILE 操作ができる状態になる 
SAVE 
LOAD 
中止 

(「 SAVE 」 が反転表示されている） 

2) 「 SAVE 」 を左クリックする 
—ファイル出力の状態になる 

どちらのファイルで出力しますか？ 

フレームソース 

( FSC ) 

フレームフアイル 

( FRM ) 

中止 

(「フレームソース」が反転表示されてい 

3) 「フレームソース」を左クリックする 
-> ファイル名入力状態になる 

図日視点設定決定 図9軸の正負 


4) 「 fla 」 と入力し，リターンキーを押す 
ディスクをアクセスし，初期メニューに戻る 
解説：出カファィル名は，5文字以内なら別に何でもか 

まいません。フレームソースとフレームファイルの違い 
については，「教養課程 / CGA システム基礎概論」をご覧 
ください。別にどちらで出力しても結果は同じなのです 
が, 「 AUTO 」 使用時に差が出ますので，とりあえずフレ 
ームソースでセーブしてください。 

OFFE の終了 

概要： FFE を終了します。 

操作： 1) 「7)終了」を左クリックする 
―•画面がクリアされ，コマンドライン 「 B >」 に戻る 

〇 AUTO の実行 

概要：いま作ったモーションデータをもとに，アニメー 
ションを制作します。作画からアニメーションまで，す 
ベて 「 AUTO 」 というツールが自動的に行ってくれま 
る） す0作画枚数は20フレームで，作画時間はおよそ10分， 

X 68000 XVI のコプロセッサ付きなら2,3分でしよう。 
操作： 1)「 B 〉」 のあとに，キーボードから， 

図10視線と視野 
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第5回アマチュア CGA コンテスト 
作品韉 

〇 CGA コンテストとは？ 

もうすっかり定着した 「 CGA コンテスト」。と 
いっても連載第丨回目だから，ちゃんと説明し 
ないといけないんでしょうね。 

このコンテストは，"アマチュア CGA 作品の発 
表の場を設け，質的向上を促進する"という趣 
旨で，毎年開催されています。毎年，数多くの 
傑作が発表されてます。 「 TORNADO 」 の文月さん 
や，「響子 in CG わ〜るど」の寺尾さんも，このコ 
ンテストの出身です。 

このコンテストは当チームが主催しています 
が， D 6 GACGA システムにこだわらず，どんな機 
種，どんなソフトでもかまいません。昨年のグ 
ランプリ受赏作「猿蟹合戦」は AMIGA で制作され 
ています。だだし，単一の静止画や，プロの方 
が業務用の機材を用いて作った作品などは応募 
することはできません。 

締め切りは12月31日。応募希望者は当事務局 
までご連絡ください。詳しい応募要項をお送り 
いたします。 

〇 1カット，4カット部門新設のお知らせ 
皆さんの作品発表場として始まった CGA コン 
テストも毎年レベルが上がり，もう常人の參加 
する余地がなくなりつつあるとまでいわれるよ 
うになりました。そこで，今回から新しく， I 
カット部門，4カット部門を設立する予定です。 
1カット部門： I カット（タイトル含まず），15 
秒以内， BGM なし 


CGA コンテスト 
事務局より 


4カット部門： 4カット（タイトル含まず），30 
秒以内 

I カット部門は作品性などもあまり問わず， 

とりあえずこんなカットを作ってみたから見て 
ほしいというような初心者のための部門です。 
また，4カット部門は一般部門に応募するほど 
のパワーはないが， CGA コン テス トには參加し 
てみたいという方のための部門です。4カット 
あれば作品性も出せますし，うまくすれば映像 
短歌というべき面白いジャンルになるのではな 
いでしようか。 

この2部門についてはあまり厳しい審査はせ 
ず，できるだけ多くの方の作品を入選させる方 
針です。そして，コンテストの上映会やビデオ 
の中で，ラッシュフィルム的に上映します。こ 
の部門は賞金が出るわけではありませんが，発 
表の場として，積極的に活用してください。 

応募方法は基本的に通常の作品と同じですが, 
ビデオテープではなくフロッピーディスクで送 
つてください。 

コンテストビデオ配布終了のお知らせ 

〇 ビデオはちゃんと届きました？ 

遅れに遅れた「第4回 CGA コンテス ト入選作 


品集」ビデオの配布が終了しました。待ちに 待 
たれた皆さん，ごめんなさい。 CGA システムの マ 
ニュアルを申 し込んだ方は マニュアルを 見て， 
遅れたわけを納得してください。 

さて，以前「愚か者め」のコーナーで 指名 手 
配したなかで， まだ連絡がない 方が いらっしゃ 
います。とにかく，申し込んだのにまだ届いて 
いないという方がいらっしゃいましたら，至急 
プロジェクト ルーム 内「ビデオが届かん，なぜ 
だろう係 j (担当： マリ オ古本， 遊び人 松井）ま 
で ご連絡く ださい。 

〇 最後の愚か者め 

— . 4月21日に新宿郵便局から申し込んだ，名 
なし住所なし 

二. 5月18日に広島郵政研修所前から申し込ん 
だ，名なし住所なし 

三. 5月29日に 電信 振り込みにて3,000円 振り込 
んだあと，加入者 負担で 振り込んだ ことに気が 
ついて，6月 I 日に なって その分の210円をわざ 
わざ振り込んだのはいいけど，両方とも住所を 
軎 いていないヤマグ チヒロ シさん 

〇 宛名，梱包作業要員募集中 

なお，コン テストの ビデオ配布 サービスは， 

当チームにとって大きな負担となるので， 今回 
をもって終了させていただきます。といっても， 
みんな許してくれないだろうなあとい うことで, 
来年の配布に向けて，宛名書き，梱包作業 要員 
を 募集し ます。 

なお，アルバイト料，交通費な どいっさい 出 
ません。プロ ジ ヱ クト ルームへの 交通の便のい 
い 方，ご連絡ください。 
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auto fla.fsc 

と入力し，リターンキーを押す 
— いろいろ表示される力 5 '，無視しておくと10分後 
にアニメーションが始まる 

2) 「 ESC 」 キーを押して終了する 
解説：作画時間は，コプロの有無，周波数 （10 MHz /16 
MHz ) によって異なります。このままでは画質がかなり 
悪いですが，画質の改善方法はあとですぐ解説しますの 
でご安心を。逆に，モーションデザインのチェックだけ 
をする場合，ワイヤーフレームでもっと高速に作画させ 
ることもできます。 

wireview /v fla.frm *.sui 
とすると， 30 秒程度でアニメーションを表示します。 

〇 画質の改善 

概要： 「 AUTO 」 実行時に オプションをつけ， 画質を よ 
くしてアニメーションさせます。 作画時間 は50 分， X 
68000 XVI のコプロ 付きなら 10 分程度です。 

操作： 1)「 B >」 のあとに，キーボードから， 
auto fla.fsc / a 3 /g /d 
と入力し，リターンキーを押す 
—基本的に， 「 AUTO の実行」と同様だが，作画が 
終わったときに，「動画 F 1 A について， 出カファイ 
ル名は？」と表示され て 止まる。この場合，何も 
考えずに，リターンキーを押せばよい 
解説： オプ ション について 
/ a 3 画質をよくするオプション 

輪郭のギザギザがぼやけて少なくなる。理論的には， 
「/ a 」 の後ろの数字が大きいと作画スピードが遅く，そ 
の分画質がいいはずだが，実際は4以上にしても画質の 
差はない。だから，通常は2か3にする。 

/ g 曲面にするオプション 

曲面も直面の集まりだが，直面の継ぎ目の色の変化を 
なくして，なめらかな曲面のように見せる。とはいって 
も，全部の面が曲面になるわけではなく，形状デザイン 
時に，あらかじめ指定しておかなくてはいけない。なお， 
マッピングをするときも，このオプションをつける。 

/ d 色数を減らすオプション 

7 a 3” や “/ g ” オプションをつけると，1画面中の色 
数がどんどん多くなってしまう。アニメーション実行時 
の色数には制限がある（制限を外す方法もある）ので， 
アニメーションを実行する前に，色数を減らすプログラ 
ム 「 CRD 」 を実行する。 

ほかに 512 X 512 の解像度の アニメ ーションもあります 
が，スピード （ 1秒間の枚数）が遅くなるので，やめて 
おいたほうがよいでしょう。 

まだ，画質が不満だという方もいらっしゃるでしょう 
が，最終的に VTR に録画することを考えると，これ以上 
の画質はあまり意味がありません。 

おわりに 

いかがでした？ 操作手順どおり実行するのは，結構 
面倒だと思いますが，ほとんどの操作が見ればわかる程 
度のことなので，慣れればこの程度の アニメ ーシヨンは 


サクサク作れるでしよう。 

今回制作したアニメーションを見て，“「お試しシステ 
ム」と変わらないじゃないか”と思ったかもしれません 
が，連載もまだ1回目ということでお許しください。 

とはいっても，「お試しシステム」とは大きく違う点が 
あります。それは，すでにあるデータを流用したのでは 
なく，モーションデザインを自分で行ったという点です。 

“CGA システム なんて，自分にも使えるんだろう力*’’と 
不安に思っていた方も，安心されたでしよう。 

来月は FFE を さ らに使い込んで背景をつけ，複数の車 
を走らせます。今月解説した FFE の使い方は完全にマス 
ターしておいてください。 

さて，たくさんの マニュアルの 申し込みをいただき， 
誠にありがとうございました。在庫の山を抱えるとか， 
発送処理が追いつかないといったトラブルもなく，現在 
のところ順調に発送されています。正しく申し込んだ方 
は，遅くても9月初めまでには到着すると思います。正 
しく申し込んでいない方は，それなりに遅れます。 

申し込み用紙の自由記入欄にご意見，ご感想をざっし 
りと書いてくださった皆さん，ありがとうございます。 

“どうせこんなところは読んでないだろうが……’’と書 
いていた方もいらっしゃいますが，私やうさ子をはじめ， 
数人のスタッフはすべての申し込み用紙に目を通してい 
ます。よく読んで今後の参考にさせていただきます。 

CGA マガジン編集部よ D 


D 6 GACGA マガジン（仮称）とは，皆さんから送られたデ 
一夕をディスクにまとめ，マウスひとつで作画，アニメー 
ションを実行できるようにしたデータ集です。 

すでに， 

「ディスクマガジンに非常に期待している」 

「ディスクマガジンについての詳しい情報を」 

「送りたいデータがあるが，どうすればよいのか？ j 
といった問い合わせを多くいただいています。 

発表方法など，詳しいことはまだ決まっておりません。 

とりあえず，年内発表を目標にシステムを開発している段 
階です。第一，皆さんからデータが送られてこなければ， 
発表しようがありません。 

ということで，まず，データを募集します。 

•形状データ，フレームソースと，実行用のバッチフアイ 
ル 

• 形状データだけでもいい（こちらで適当に動きをつけま 
す） 

•アトリビュート名などはちゃんと整理するか，詳しいド 
キュメントをつけてください（こちらで修正するときに必 
要） 

• 著作権に引っかかるようなものは不可 
作品はフロッピーディスクに収めて，下記の宛先まで宅 
配便か，普通郵便で送ってください。フロッピーディスク 
のケースに入れて発送すれば，途中で壊れることはまずな 
いでしよう。 

なお，賞金などはいっさいありません。また，データ集 
として多くの方に自由に使ってもらうため，著作権を放棄， 
あるいは D 6 GA に委任していただく必要があります。あらか 
じめ，ご了承ください。 

P . S . 大石さん，“第2次世界大戦機シリーズ"は任せまし 
た。 

〇 応募先 

〒533大阪市東淀川区淡路5 — 17- 2 102号 

プロジ x クトチーム D 6 GA 「 CGA マガジン編集部」 
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[第23回] 


Communication SX_68K, 

そして FIXER 


Ogikubo Kei 荻窪圭 


SX - WINDOW にもよ 5 やくアプリケー 
シヨンが揃ってきました。そして，今度は 
通信ソフトが登場。パソコン通信には不可 
決なものだけど，使い勝手はど *5 でしょ5 
か。新しい FIXE 闩もちらりと紹介します。 


とうとう入ってしまったのだよ。 NTT の 
テレジョーズとかいうアヤしげなやつに 0 
NTT もいろいろと考えるものだ。 

しかし，そもそも NTT の料金体系で許せ 
ないのは，隣接区域，そのまた隣接区域と， 
指数関数的に高くなってい〈ことで，たと 
えば市内だと3分10円だけど，その隣にな 
ると，10円で半分以下しかかけられず，さ 
らにその隣になると，38秒だか30秒だかで 
10円という法外さ。これがどんどん進んで， 
最後には 4.5 秒で10円だかになる。これはお 
そろしいことである。 

宅急便だって（どう考えても，電話回線 
内を音声が流れてい〈より，車に荷物積ん 
で走ったほうが，距離の影響は出るはずな 
のだが）ここまであこぎな料金体系ではな 
い。そもそも，あの料金体系は交換機が手 
動でいろんな人の手をわずらわさねば遠く 
へつなぐことができない時代の名残であっ 
て，自動化された現在，これだけ価格差を 
つける意味がどこにあるのか。 

値下げ，値下げと声を高らかに，深夜が 
どうとか，遠隔地がどうとかといっている 
が，あんなもん小手先である。 

数年前，それまで0423という市外局番の 
ところに住んでいた私は03っていう市外局 
番のところへ引っ越した。電車でほんの 
15〜20分ほどの距離だ。なのに，月々の電 
話代は確実に1/3に減った。前はちょっと通 
信しただけで，簡単に20,000円とか30,000 
円になっていたのに，いまは毎日通信して 
も10,000円前後ですんでいる。電話を使う 
時間はむしろ増えているのに，だ。 

効果が大きそうに見える遠距離に気をと 
られて，近距離市外通話を野放しにしては 
いけないのだ。 

そういうわけで，話は戻ってテレジョー 
ズとやらである。ずいぶん前からやってい 
るので，知っている人も多いかと思う力 ? ， 
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とりあえず説明する。 

2,000円，3,000円，4,000円，5,000円の 
4 コースが あり，5,000円 コース だとボトル 

1本サービス . ちゃうちゃう。えつと， 

4つのコースがある。たとえば，2,000円コ 
ースだと自動的に250円割りり I きになる。さ 
らに，2,000円を超えた場合，3,000円まで 


引きになる。 

じゃあ，なんで2,000円コースかっていう 


る(割り引かれた250円を加えて2,000円ね) 
からである。8,000円コースだと，自動的に 
1，150円割り引きになる。が，電話をまった 


ないのだ。 

しかも，夜10時から翌朝8時だけが対象。 


なシステム0テレジョーズがなかったら 


に払った総金額 （ m 話料金が定額に満たな 
かった分）の差額を知りたいものである。 
後者のほうが多かったら，許せんぞ。 

さて ， Communication SX -6 BK 


信ソフトには2種類のコンセプトがあるこ 


ることを主目的とした （ UNIX の端末にな 


信ソフトに対して，だ。 

1) オンラインの状態を快適に過ごすため 


のソフト 

2) ログをあとで読み返す人のためのソフト 
である 

たとえば，前者であれば，広大なバック 
スクロ ールバツフアやレスポンスの高速性, 
簡単な操作が重要になるが，自動運転のた 
めのマクロはそれほど高度でなくてかまわ 


いおう。 

後者であれば，バックスクロ ールバッフ 


のマクロが重要になる。マクロが優秀であ 
ればあるほどユーザーはアクセス操作をパ 
ソコンに任せ，通信終了後，エディタなど 


だけだから自信はないけど)。迅速な反応。 
バックスクロールバッファを見ながらの通 


は 512 K バイト確保している）。フアンクショ 


ルバッファから文字を切り出して送信。通 
信しながらのチヤイルドプロセス。 

一方，バッチ处理指向の例が Communi 
cation PRO -68 K 。 こいつでマクロを組ん 
で， AUTOEXEC . BAT で自動実行するよ 
うにし， X 68000 のタイマー機能を使って， 


すべてハードディスクに落とす’’という自 


くつかメッセージを書き，アップロードし 


て，勝手にアクセスし勝手にダウンロード 
しておいてくれる，のだそうだ。自分でや 


くしなかったとしても，8,000 — 1,150= でゆっくり処理をすればいいわけだ。こち 
6,850円は必ずとられるのである。1力月期 らをバッチ処理指向！:呼ぶこ t にする。 

限のプリペイド方式なわけだ。毎月絶対に オンライン指向の例が MuTerm。Telec 

6,850円以上電話するって人以外は得をし om - MIKI もそうだと思う（ちょっと触った 


コンピュータ化したとはいえ，なん！;面倒 信。メモリにもよるが，巨大なバッファ（私 


NTT に入るはずだった総金額（割り引き ンキーの文字列登録。オート〇グインしか 
分）と，テレジョーズにしてしまって余分 考えられていないマクロ。バックスクロー 


という感じで ， Communication SX -68 K “朝，自動的に X 68000 が起動して，必要なネ 
の話へ入っていくわけだが，その前に，通 ットすべてにアクセスし，未読のメールを 


とをおさえておきたい。特に，電話回線を 動アクセスをする人さえいるという。あと 
使ってネットワークシステムにアクセスす は帰宅してからゆっくりとそれを読み，い 


るためのソフトではないというこ t だ）通 て寝る。翌朝，また X 68000 が勝手に起き 


の1,000円分に対して，15パーセントの割り ない。あえて，こちらをオンライン指向と 


と，電話をしようがしまいが1,750円とられ アやレスポンスなどよりも自動運転のため 







自動運転の編集画面はダイアログなのだ 


と反応が惡い〇バックスクロールバッファ 
上を自在に飛び回るにはつらい。 

続いて， SX - WINDOW の問題なんだけ 
ど，文字が読みづらい。フォントの問題と 
かではなくて，色の問題だ。 

あのグレイスケール4階調ってのはよく 
ない。特にアクティブウィンドウの背景が， 
いちばん明るい階調ではなく，2番目のゃ 
つ，ってのもよくない。 

渋いのもいいけど，通信ってのは CRT と 
いうはなはだ解像度の粗い面に表示された 
粗い文字を，必死に読むことを義務づけら 
れるわけで，背景と文字のコントラストが 
低いと目が疲れる。あまり高くても疲れる 
のだけど，とにかく疲れるのだ。 

そ一いえば，私は最近，顕著に CRT と目 
の同期がとれなくなって困っている。疲れ 
目かなあ。チラチラする，とかではなくて， 
形容しがたいのだが， CRT がひどく他人行 
儀に見えるのだ。なん力*，自分の目で見て 
いるのではないみたいに。 

これは，パソコンに限った問題ではなく 
て，テレビを見ていてもそうなのだけれど, 
どうしてだ'ろう。先ほど述べたように ， SX 
- WINDOW がことさら疲れるように思え 
るのもそのせいだろうか。とりあえず，い 
つもより部屋の明かりをワンランク上げて 
みたりするのだが，だめ。どうしてでしょ 
うねえ。医者に行って，「あなたの目は劣化 
しています0 24 kHz 以下のディスプレイし 
か見てはいけません」なんていわれたりし 
すこら， どうしよう 0 X 68000 も Macintosh も 
PC / AT 互換機もだめじゃないか。 

はっは。また話が逸れた。 

んつと ， Communication SX -68 K だ 0 

こいつは， SX - WINDOW 上のソフトで 
ある。当たり前か。シムアースと違い， 2 
M バイトでもいくつかのドライバを外すこ 
となく動く。これも当たり前だ。ウィンド 


っているわけではないから詳しくは知らな 
いが，それもまた X 68000 らしくて面白い。 

どっちがいいかはその人の通信のやり方 
の問題であって，とやかくいう気はない。 

私は完全にオンライン指向。ログは（自 
分がモデレータやっているところ，必要な 
もの，貴重なものしか）取らないし，文章 
はたいていオンラインで書〈し，なにより 
面倒なマクロを組むのがきらいだ。 

オンライン指向型の通信ソフトなら，必 
要なログはバックスクロールバッファから 
切り出してそこだけ保存すればいいし，数 
日分なら保存しなくてもバッファに残って 
いてくれる（あ，もちろん， X 68000 の電源 
は入れ放しにしなければならないが)。さら 
に，指定したファイルをバックスクロール 
バッファにロードすることもできるからこ 

りゃ便利。 

ァバウトな性格でログを取る習慣がなく 
て，市内通話でアクセスできて，十分高速 
なタイピングが可能なら，オンラインで遊 
んだほうが楽しいのではないだろう力 1 。 

しかし考えてみると，そういう人ってビ 
ジネスソフトを使いこなすのに，いちばん 
向かない性格なんだよな。ほんと。 

向く性格ってのは，毎日ログを落とし， 

ログ整理ツールかエディタのマクロか何か 
でログをきれいに（残す必要のないところ 
を削除するなど），できる人である。 

さらに凝る人は， F-CARD GT でも使っ 
て，見出しとキーワードを入れ，必要に応 
じて必要なログがすぐに検索できるように 
する。う一ん。うらやましいものだ。 

ウィンドウ時代の通信 

では，この SX - WINDOW 初の市販通信 
ソフトは，オンライン指向かバッチ処理指 
向か，ど'ちらなのか。 


まず ， Communication PRO -68 K をベー 
スに している こと。 これを忘れてはならな 
い。あくまでも，バッチ処理指向の Commu 
nication PRO -68 K をべースに，オンライン 
指向の SX - WINDOW にもってきたのだ。 
かなり頑張っているし，マクロも充実して 
いるのだが，結果として，どちらへら手を出 
した格好になってしまった感は否めない。 

オンライン指向の SX - WINDOW 。 

確かにそうである。アバウトにログイン 
してアバ、ウトにログアウトする人にとって 
非常においしいの力す，ウィンドウシステム 
の通信ソフトだ。つながったらおもむろに 
会議室を徘徊する。読みたいものを読み， 
書きたいものを書く。他人の引用をしたく 
なったら，引用元のメッセージへ戻って必 
要なところを コピーし，ペーストする。口 
グアウトする。重要なところだけカット& 
ペーストでエディタへもっていく。 

でもって，通信ソフトは常時背面に待機 
していて，じゃまなときはちよっと画面の 
外へ出てもらって，う一ん，いいねえ。 

さらに，電子辞書かなんかあって，ちよ 
っとインテリジェントな書き込みしたいと 
きは，しゅるしゅると CD - ROM でも回して 
ちよいと引用。それから，だだだ一っとフ 
リーウェアとか画像データとかをダウンし 
ながら，横に開いたエディタでちよいとア 
ップする文章を作ったりして。 

甘くはないそ'現実は 

欠点はどうだろうか。 

Communication SX -68 K が惡いのでは 
ない。ほんと，そうだけど，なんというか， 
やはり スクロール などが遅い。これは SX - 
WINDOW に限らず ， Macintosh でも Win 
dows でもそうなのだけれど，オンライン指 
向の人が自在にネット上で遊ぶにはちよっ 
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ウの大きさも自在。これも当たり前。 

いちばん“らしい”のが，文字の大きさ 
切り替えだな。エディタと同様，12/16/24 
ドットから選べる。24ドットでログを言売む 
と不気味だぞ。なんか，異形のものを見て 
いるようだ。 ISH ファイルを無手順で落と 
して24ドットで見ていたりすると，トリッ 
プするかもしれない。 

24ドット表示にすると，当然横80桁は表 
示できないわけで，横にはみ出る。もちろ 
ん，スクロールオンで使うこと 0 12ドット 
表示ができるのは（目は痛くなるけど）う 
れしい。大量に表示できるのは願ってもな 
いことだ。 

それでは，具体的なところを順番に見て 

いこう。 

タイトルバーの下にはポップアップメニ 
ューが5つ並ぶ。その右には通信ソフトに 
ありがちな各種情報。電話料金とか接続時 
間とかディスタの残り容量とか。 

ポップアップメニューは左から，電話ア 
イコン，ダウンロードアイコン，アップロ 
ードアイコン，プロトコル通信アイコン， 
環境設定アイコンと，オーソドックスな作 
りだ 。 

ちなみに， Macintosh 用の Jterm という 
和製市販通信ソフトでのメニューは，“ファ 
イル” “編集” “設定” “ダウンロード”“ア 
ップロード” “エディタ”となっており，通 
信ウインドウについているボタンは，“ダイ 
ヤル” “ ログイン” “ ブレーク” “オフライン” 
“マクロ” である。 CommunicationSX -68 
K と似ているでしよう。 

これが，英語版をローカライズしたシエ 
アウエアの Terminal 2.1 J だと， “ File ” “E 
dit ” “ Option ” “ Script ” “ Macro ” と，アッ 

プロー ドとかダウンロ ードというメニュー 
はなくなる0これらはファイルメニューに 

図1 


個別に投定する 



“Save Buffer ” とか “Send Text ” などと 
いう名前で入っているわけだ。 

面白いのは，日本のソフトの多く力す，ダ 
ウンロード，アップロード，プロトコル通 
信，ってのをちゃんと独立メニューにして 
いるところだ。なにか特別な操作であるか 
のように。 

電話をかける 

さあ，電話アイコンである。ここは‘‘自 
重カログイン” “自動運転実行” “自動運転強 
制終了’’の3つが埋まっている。 

自動ログインと自觔運転ではどこがどう 
違うんだ，などとはいわないように。マニ 
ュアルが刷り上がってないので崔認してい 
ない力 5 ',自動ログインというのはソフトに 
登録したホストへのログインを，自動運転 
というのはエディタで組んだマクロを実行 
するためにあるのだと思われる。 

この自動ログインを実行すると登録して 
あるホストのメニューが現れるわけで，選 
んで“編集”ボタンを押せば自動ログイン 
を実行するための設定画面になる。これが 
ちょっと極惡なので文句をいってぉく。 

まず，通信条件設定である（環境設定メ 
ニューで出てくるやつと一緒)。これは問題 
ない。ここで“設定”をクリックする。続 
いて，環境設定である。これも環境設定メ 
ニューで出てくるやつと一緒。設定したら 
“設定”ボタンをクリック。続いて，自動 
ログイン設定である。ここではホスト名， 
同時に実行するマクロ名，電話番号，自動 
ログインのためのプロンプトと送信文字列 
を入れる。いちいちエディタで書くのに比 
ベたら楽である。 

これで終了。 

何の問題もないように思えるでしよ。し 
かしである。文句が2つ。 

ひとっは，それぞれの画面がシー 
ケン シャルにつながって い ること。 
せっかくのウインドウシステムなの 
だから日本式シーケンシャル的フレ 
ンドリでなく，図1のようになって 
いるべきではないかと思うのだ。 

もうひとつ。これがダイアログで 
あり，ほかのウインドウからコピー 
してもってくる，ってことができな 
いこと。 


だって，そうでしよ。これを買う大部分 
の人は，いままで Human 68 k 上でなんらか 
の通信ソフトを使っていて，そこには自動 
ログイン用の設定ファイルがあるはずであ 
る。 t いうことは，電話番号やらプロンプ 
卜やら ID やらを，またいちから打ち込み直 
すのは面倒臭いではないか。 

あらかじめコピーしてぉけば，1文字列 
だけはもってくることができるが，それだ 
け。さあ，設定しよう， t 思った私はそこ 
でくじけたのである。 

ここで指定したログイン手順は，プログ 
ラム名で指定した名前のテキストファイル 
にマクロとして生成されるため，ほかのソ 
フト用のログインマクロを持っている人は 
とりあえず適当に作ってぉいて，あとから 
エディタで コピー &ペーストして作ったほ 
うが楽だ。 

ダウン ロー ドとァップ ロー ド 

Communication PRO -68 K の流れを継 
ぐものだけに，なにやら面妖な言葉づかい 
がなされている。ダウンロードとはいわず， 
ログファイル保存という0アップロードと 
はいわず，オートタイプという。 

まあ，いいのだが，個人的にはそうだな 
あ，ログ保存ってのはいいとして，オート 
タイプは気に入らない。テキストファイル 
送信くらいがいい。 

で，プロト コル 送受信（バイナリファイ 
ル送受信となっている）であるが，対応し 
ているのは Xmodem , Ymodem , Transit , 
SXP (なんじゃこれ？）となっている。足 
りない。 BPlus など大手ネットワーク標準 
プロト コルく らいは全部 サボー トしてもら 
いたい。 NIFTY - Serve をよ〈使う私とし 
ては，まず BPlus である。ついでに ， Zmod 
em もほしいところた') 

まあ，送受信に関しては ， BPlus (NIFTY 
- Serve , CompuServe ) と Quick VAN (PC 
- VAN ) がない以外は特に問題ないでしよ 
う。なんというか，フリーウェアで SX-WIN 
DOW 対応の Flying Xmodem と力 ' Bplus プ 
ログラムがあれば補える話だ。 

欲をいうなら，バィナリ受信を自動的に 
やってもらえるとありがたい。 Bplus だと 
ファイル名も指定できるから，ホスト側が 
バイナリ送信の準備をしたとたんにそれを 


現在の方式 


通信粂件設定 
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検知してバイナリ受信モードに入る，って 
機能があると，非常に楽だ。現にそういっ 
た機能は， Macintosh 用ではすでに一般的 
である。 

ポップアップメニュー 

SX-WINDOW の場合，ポップアップメ 
ニューが使い勝手を決める。通信画面での 
ポップアップメニューは“カット”“コピー” 
“ペースト” “消去” “送信” “保存” “全選択” 
“前方検索” “後方検索”と 必要なものはひ 
ととおり揃っており，何の問題もない。通 
信ソフトでログから“カット”できるやつ， 
ってのはこれが初めてだが，まったくもっ 
て悪くない。面白い。 

バックスクロールバッファ も （マニュア 

ルがないので最大値はわからないが)，少な 
くとも4000行くらいはお茶のこさいさいだ 
った。つまり，ででで一っと適当に通信し 
て，その場でいらないところをカットして， 
保存する，ってことが簡単にできるわけで， 
なかなか グレー トである。 

さらに， SHIFT を押しながらポップアッ 
プメニューで，10個まで登録できる文字列 
の送信が， CTRL を押しながらポップアッ 
プメニューで，登録したプログラムが， 
OPT .1 を押しながらポップアップメニュー 
で，自動運転終了や回線切断やブレーク送 
信など強制終了関係のメニューが現れるよ 
うになっており，これもまたよいことだ。 

通信画面での心残りは，ウィンドウの縦 
分割ができないことくらいだ。縦分割って 
いうのは，ウインドウを縦に分割して，上 
にはログから必要なところを出しておき， 
下で通信する，っていう MuTerm などが得 
意としている技。100行前のメッセージへの 
コメントをオンラインで書きたいとき，な 
どに便利だし，さらに，まとめてダウンロ 
—ドしているときに，終わった分をゆっく 
り読むにも最適だ。できたら，そのうち， 
つけてもらいたい。オンライン指向ューザ 
一には欠かせない機能だ。 

それでもなかなかよい 

なんだかんだいっても， スクロールが 遅 
いってのはあるが（いまのバージョンでは 
エディタよりも遅い），悪くないソフトであ 


る。空いているところにエディタを開いて 
おいて，そこにまとめていくつもコメント 
を書いておき，必要に応じてコピー&送信 
してやれば非常に楽だし，なかなかウイン 
ドウシステムしていてよい。あまりにオー 
ソドックスでつまんないけど，変に奇をて 
らわれるよりはよほどよい。いくつかバグ 
もあったが，製品版では直っているはずだ 
と思う。 

オーソドックスでよかったね，って感じ 
だ。ああ，メモリを増やさねば。 

話題変わってこちらは FIXE 闩 

さて，ここで話題が変わって， FIXER で 
ある。皆様待望（皆様かどうかは知らぬ 
が)， FIXER がバージョンアップしました。 
FIXER . SYS のバージョンは1.20。うれし 

いねえ。ああ，うれしい。ほんとにうれしい0 
何がどう変わったか。とりあえず目につ 
くところでいくと， 

1) キーコ ンフイ ギュレーショ ンが可能 

2) WP . X に対応 

3) SX - WINDOW への配慮（高速化） 
ってところだ。どれも目玉だね。 WP . X に対 
応 ，っ てことで期待した Buisiness PRO -68 
K popular への対応であるが，なんとか動 
いてちゃんと変換できた。いいことである。 
これで普通のューザーにも FIXER が安心 
して使える状況がや ってきたわ けだ。 

ただ， WP.X と Buisiness PRO -68 K popu 
lar のとき，アプリケーションを終了しても 
全角キーと 口 ー マ 字キーがっいたままだと 
いうのは気になった力 5 ,動いただけよし， 

だ。もぅ， FIXER 得意の CTRL + XF 4 で口 
ーマ字 ON / OFF , っていうような技はきか 
ないけど， WP . X や BuisinessPRO -68 Kpopu 
lar で動くのはめでたしである。 

さて，1〉の キーコンフィギュレーション 0 
こいつは ASK 2.0 のものに準じているよう 
だ。なかなかよろしい。 

FIXER ってのは，知らない人がいるかも 
しれないからいっておくと， PC - 9801用の 
FIXERver .4. 0の X 68000 版。いまは WORDY 

っ てワープロソフトに バン ドルされている。 

こいつの 特長は， AI だかなんだか知らな 
いけど，きめ細かい品詞情報と学習機能の 
賢さ。本当に賢い。文節学習をちゃんとし 
てくれるので，ヘンなところで切って変換 


したケースでも再現できるのだ。 

さらに，さっきもちょっと触れたけど， 
CTRL + XF 4 でローマ字 ON / OFF，CTRL 
XF 5 で CAPS ON / OFF ってのもうれしい。 
私は個人的にいちばん好きな日本語 FEP 
である。 ASK ょりも EG Bridge ょりも AT 
OK 7 ょりも VJE 0 ゃ y ょりも好きである。 
WXII + や Katana より好きか，っていわれ 
ると，この2つは使ったことないから自信 
がない。 

辞書は開くもの 

FIXER はいい。なにより変換効率であ 
る。学習するのである0辞書ファイルが大 
きいわりに登録単語数はいまいちだが，そ 
んなものは自分で登録すればいい。 

ユーティリティ （ FIXUT . X ) の メニユー 
から 「ユーザー 登録熟語の 一覧」 って やつ 
を使うと，辞書をテキストファイルに変換 
して吐き出してくれる。これを参照しなが 
ら登録熟語を書き出して，「辞書の合成•編 
集」を使えば簡単にできる。 

これからの時代，キーを握るのは，閉じ 
た世界で優れたものではなく，優れていて 
なおかつ開かれたものだ。辞書データだっ 
て同じこと。本当は， X 68000 ユーザーの100 
パーセントが持っている ASK っていう代 
物があるのだから， ASK のユーザー登録辞 
書から必要なものを FIXER の辞書に転送 
するようなユーテイリテイがあっても面白 
かったかもしれない。 

で，問題は， MuTerm & FIXER の軽量軽 
快イケイケコンビから， SX - WINDOW & 
FIXER へ通信環境をリプレースするか，で 
ある。むずかしいなあ。 MuTerm のそれな 
りにまとまっていて，それなりに完成度が 
高くて，高速なのもいいけれど， SX-WIN 
DOW 環境の，エディタをいっぱい開いて 
おいて，コピー&ペーストしまくりながら 
通信する，ってのにも惹かれる。しかし， 
電話代を気にするなら， MuTerm だな。ま 
あ，すべては製品版が出てからである。 

あとはテレビでも見ながらゆっくり考え 
るとしよう。ええい，ナイターなんてやっ 
てやがる。誰か巨人を定位置（最下位のこ 
とだぜ）に戻してくれんか。これではおち 
おち眠れない。もう中日はあきらめた。さ 
あ，頑張れヤクルト！ 

大人のための X 68000 AQ 
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Kageyama Hiroaki 


影山裕昭 


もろ秋なんですねえ〜。食欲の秋，読書の秋といろいろあれど，やっぱり秋とい 
えば芸術でしよろ。といろことで，今月は日本の伝統美「書道」の登場です。ほ 
かに疑似的にワイルドカードを使えるよろにする 「 WILD . C 」 を紹介します。 



illustration : T.Takahashi 


先日，新川崎にある“日立システムプラザ 
新川崎”に行ってきました。そこは地上31 
階，地下2階のツインビルディングで，ま 
るで X 68000 のツインタワーを彷彿させる 
ような建物。中に入ってみるとインテリジ 
エントビルといわれるだけあって，埼玉の 
田舎に住んでいる私には縁のないハイテク 
空間が広がっていました。ビル内の各フロ 
ァは高速光 LAN で結ばれていて電子メー 
ルで連絡はできるし，電話回線を使っての 
テレビ会言義はあるし，子供の頃に本で見た 

「未来の日本」が現実のものになっている 
んですねえ。その日は珍しいものをたくさ 
ん見せてもらったんだけど，その中に思わ 
ず「オオッ j t 声まであげて驚いてしまっ 
たものがひとつあるんですよ。それは，説 
明のお姉さんに連れられて図書室の部屋の 
隅に置いてあった1台の端末（日立製）の 
前へ案内されたときのこと。 

「ぺーパレス 化を 図る ため新聞の記事はス 
キヤナで取り込み，光ディスクにファイル 
されています。簡単な操作で指定した日時 
の新聞記事をディスプレイに表示すること 
ができます j 

説明しながらお姉さんがマウスをカチカ 
チやっていると，確かにディスプレイ上に 
新聞記事が表示されました。 
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メ心人は 


SH0D068K.BAS 


「文字が横に寝ていて読みづらいときは， 
画面を90度回転することもできます（ファ 

ンクシ ヨンキーを叩 〈〇ウイ イー ン）はい， 
このようになります」と営業スマイルのお 
姉さん。 


なんと！ 縦置きだったディスプレイが， 
ディスプレイごとグルンと90度回転して横 
置きになってしまったのです。これにはビ 
ックリしましたよ。まさかハードウェアで 
ディスプレイごと回転させてしまう荒技が 
存在するとは。それにしても，手で回せば 
すむようなものをわざわざ作ってしまう技 
術屋の人っていったい……。 



サイバー書道な晰や 


今月の1本目は， X 68000 のディスプレイ 
を半紙，マウスを筆代わりにして書道をや 
ってしまおうというプログラムです。 
SH0D068K.BAS for X68000 

(要 APIC . FNC ， X - BASIC ) 
東京都坂本康 
さて，まずは APIC . FNC を使うための準 
備をしましょう。 APIC . FNC は創刊10周年 
記念 PRO -68 K に収録されています。それを 
BASIC . X と同じディレクトリにコピーし 
ておいてください。次に BASIC . CNF に， 
FUNC = APIC 

を追加してください。これで準備は完了で 
す。 

X - BASIC からリスト1 を 入力して RUN 
で実行してください。画面が真っ白になり 
ますね。画面をジーッと見てください。ほ 
うら，だんだん半紙に見えてくる，見えて 
くる。はい，これは誰が見ても半紙ですね。 
マウスカーソルを 動かして筆を下ろしたい 
位置までもってきたら，おもむろに左クリ 


ックしてください。すると，マウスカーソ 
ルが緑の円に変わります。そして，そのま 
まマウスを動かすと，円の太さで線が書か 
れます。 

しかし悲しいかな，インタプリタでは処 
理速度が遅いため，あまり速くマウスカー 
ソルを動かすと，線にならずに円がポツポ 
ツと描かれます。 16 MHz の X 68000 なら書 
道できる速度ですが， 10 MHz だと線を書く 
のが難しくなり，書道以前の問題です。コ 
ンパ イラをもっているなら，後述する方法 
で プロ グラ ムをコン パイルして実行してみ 
てください。そうでない方は……素直に諦 
めてください。 

マウスを動かしながら左ボタンを押し続 
けると，線が太くなっていきます。右ボタ 
ンを押すと線が細くなっていき，最後には 
元のマウス カーソルに 戻ります。つまりマ 
ウスの両ボタンで筆圧を調節するのです。 
マウス カーソルが 表示されているときは筆 
を持ち上げている状態というわけですね。 

画面の左上にはなにやら怪しげな記号が 
あります。ここを マウスで クリックしてもな 
んにもなりませんよ。 マウスカーソルを 画 
面中央に移動してから， ROLLUP , ROLL 
DOWN キーを押してみてください。画面が 
上下に スクロールし ますね。それにつれて 
左上の表示も変化します。“•”が半紙全体 
の大きさで“ I ”が現在表示されている部 
分なのですね。こんなとこまでってしま 
うなんてスゴイ凝りようですねぇ。ちなみ 
に投稿原稿によれば，「縦2画面分なので 
お正月の書き初めなどはできません」だそ 
うです（って X 68000 でそんなもんするかっ）。 

これだけではありません。 ESC キーを押 
すとメニューが表示されちゃいます。ここ 
でセーブを選択すれば，書いた作品をディ 
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スク に保存することができます。 ファイル 
ネームを聞いてきますので，拡張子を付け 
ずに入力してください（拡張子は自動的に. 
SHO が付きます）。作品は実画面 1024 X 
1024,16色モードで （0 , 0) — (512,1024) の 
範囲力 s APIC 形式でセーブされます。 

う一ん，このプログラムはアイデアの勝 
利という感じですねぇ。書道というと線の 
太さで右はらいや止めといったものを表現 
するわけです力す，それがうまくできないと 
どんなに文字のバランスがよくても見栄え 
がよくないんですよね。 SH 0 D 068 K では線 
の太さをマウスボタンで調節することによ 
って，本物の書道!:同じような文字を（訓 
練しだいで）書くことができるんですからた 
いしたもんです。ディスプレイからあの独 
特の墨の匂いがしてきそうですよ。書いた 
作品を保存できるという点も見逃せないで 
すね。 

投稿原稿によると， X - BASIC に CIRCLE 
FILL コマンドがないので苦労したようで 
すね。結局， LINE コマンドで CIRCLE F 
ILL と同じ機能の関数を作ったんですね 
(200~300行)。 

これが X 68000 での初めてのプログラム 
だというのですから，恐れ入ります。 

まさかこれで書道の宿題をやったりする 
ことはできないし，実用性は乏しいかもし 
れないけど，こういうプログラム，私は大 
好きです。ショートプロなんだもの，実用 
的なのもいいけど，こういうぉ遊びプログ 
ラムがあってもいいんじやない。 

そうだ，忘れるとこだつたけどコンパイ 
ルの手順を説明しましよう。最初に SHO 
D 068 K . BAS を1力所変更します。 

680 apic _ load ( fn ,0,0) 

としてください。次に創刊10周年記念 PRO - 
68 K に収録された APIC _ LIB . A を SHODO 
68 K . BAS と同じディレクトリにコピーした 
ら， 

A>CC /W SH 0 D 068 K.BAS APIC _ 
LIB.A 

で コンパイル する こ とができます。 

* 7 イルドな:!マ厶ド 

さて，次のプログラムはワイルドカード 
の使えないコマンドで，疑似的にワイルド 
カードを使えるようにしてしまおう，とい 



うものです。 

WILD.C for X68000 

(要 C コンパイラ） 
大阪府野崎哲也 

実はこれ，最初は WC . C というファイル 


F>wiid anjsic -c 

m Uild C*-der Ver 1.01 Copyright 1932 Telsu^a.Noaki 

:打 一 - >.«• (CM? 5171952 ZBUI son 

Oceralions are all s«l. 

A >SOID >ind in a S0UC body. 

t<a*cgniPBgnmMM 

- tax.cn >-•» zehj! son 

:: EtHE^CintTcftl T TOCK aifFER IS TCD 9HL 《他. 5> 


か (* Waralon ‘.MS て C 

srsiions are si I set. 
J'SQLN) aird in a S0LN) t<c 


名だったんだけど， WC というの.は UNIX 
で存在するコマンドなんです。すでに X 
68000にも同名のコマンドが移植されて出 
回っているということなので，こちらで 
WILD _ X に変更させてもらいました。野崎 
さん，そういうことなのでご了承ください。 

さて，ワイルドカードというのは‘‘*” 

と“？”のことです。“*”で任意の文字列 
を表し，“？”で任意の半角1文字を表しま 
す。たとえば， Z - MUSIC 用の演奏データ 
のファイルを表示しようと思ったら， 

A>DIR *.ZMS 

とすれば，拡張子が“. ZMS ” のファイルを 
表示することができます。このようにワイ 
ルドカードを使うと，目を皿のようにしな 
くても特定ファイルを検索することができ 
るんです。 

しかし，この便利なワイルドカードも， 
使える コマン ドが限られているんですよね 
え。たとえば， ZMUSIC . X ではワイルドカ 
ードが使えません。 ZP . X でジュークボック 
ス演奏させるために，複数の ZMS ファイル 
をコン ノヽ。イルしたいときは，いちいち， 

A>ZMUSIC - CABC.ZMS 
A>ZMUSIC -C 123 .ZMS 

のように同じような入力を繰り返さなけれ 
ばいけないのです。これが 
また面倒な作業なんですよ 
ね。そんなときに WILD . X 。 

これさえあれば， 

A > WILD ZMUSIC - 
C *.ZMS 

とするだけで，自動的に拡 
張子が. ZMS のファイルを 
取り出して順次コ ンパイル 
していってくれるのです。 

いままでの苦労はなんだっ 
たんだ〜。 

なお，上の例のように WI 
LD のあとにくる実行ファ 
イルが オプ シヨンスイ ツチ 

を取る場合は，7”，“一” 

をスイツチとみなし，それ 



WILD.C 


以外のいちばん最後のものをファイル名と 
みなします。投稿原稿には 「 WILD . X は取り 
出したファイル名を黄色のリバースで表示 
してから実行するので，もともとワイルド 
カードに対応して いる 「 TYPE 」 コマンド 
でも，ファイルの変わり目がすぐわかるの 
で便利です」ということ。うんうん， ホン 
卜にすごい便利ですよ，このプログラムは ( 

余談ですが，実は同機能のプログラムを 
瀧君が作っていたんだけど，ある程度使え 
る段階になって未完成のまま途中で制作を 
やめていたんですよ。本来なら今月か来月 
あたりに瀧君のプログラムが掲載されるは 
ずだったんだけど，それも夢と終わってし 
まいました。瀧君，残念でした。 

さて，誌面が少し余ったようなので，東 
京都の大山幸二さんからいただいた質問に 
回答したいと思います。 

「1月号のぱ一ていハンズに書かれていた 
inkey $(0) だけのキーバッファクリアはど 
うやってするのでしようか？」ということ 
ですね。 
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(で)氏が 1 月号で紹介し t こキーバ ッファ 
クリアの方法をここで引用すると， 

while ( keysns ( )): a $ = inkey $ (0) i end 
while 

となっています。 1 月号を持っていない方 
のために簡単に説明すると， keysns () とい 
うのは X - BASIC の未公開命令で，キーバ 
ッファの中身を調べて空なら0，そうでな 
ければ一1を返す命令です。 inkey $(0) も 
keysns ( 洞様， X - BASIC の未公開命令で 
リスト 1 SH0D068K.BAS 


10 

float r 

470 

next 

20 

int x,y,hx,hy,k,yy,qa,qb,qc,qd 

480 

bar()) 

30 

str f,fn 

490 

if k=27 then command(} 

40 

init() 

500 

endfunc 

50 

while 1 

510 

func command() 

60 

fude() 

520 

els 

70 

keyin() 

530 

mous6(2) 

80 

endwhile 

540 

r=0 

90 

end 

550 

locate 10,10 ： print"1.LOAD" 

100 

/* 

560 

locate 10,ll ： print"2. SAVE" 

no 

func fude(J 

570 

locate 10,12 ： print"3. CLEAR" 

120 

msstat(qa,qb,qciqd) 

580 

locate 10,13:print M 4. EXIT'. 

130 

mspos(x,y) 

590 

locate 10,15:print"0. END" 

140 

if qc=-l then r=r+0.5# 

600 

repeat 

150 

if qd=-l then r=r-0.5# 

610 

k=asc(inkey$ )-48 

160 

if r<0 then r=0 

620 

until k>=0 and k<5 

170 

cfill(x,yfyy,r,0) 

630 

if k=0 then vpage(0):color 3:els:end 

180 

endfunc 

640 

if k=lor k=2 then { 

190 

ハ 

650 

locate 27,18：print f 

200 

func cfill(x,y,r,c) 

660 

locate 10,18:input"Input File Name = 

210 

int i,j 

670 

fn=f+".sho"1 

220 

if r> =1 then { 

680 

if k=1 then apic_load(fn) 

230 

mouse(2):circle(x,y,r-1,9,0,360,358) 

690 

if k=2 then apic save(fn,0,0,511 ,1023) 

240 

} else mouse(1) 

700 

if k=3 then fillTo,0,511, 1023,15) 

250 

for j=0 to r-1 

710 

mouse(1) 

260 

i=sqr(r*r-j*J)/l.4# 

720 

bar () 

270 

1ine(x-i,y-j,x+i,y-j,c) 

730 

endfunc 

280 

line{x-i,y+j,x+i,y+j,c) 

740 

func bar() 

290 

next 

750 

els 

300 

endfunc 

760 

for i=1 to yy/64 : print".":next 

310 

func keyin{J 

770 

for i=0 to 8 ： print"I":next 

320 

k=asc(inkey$(0)) 

780 

for i=1 to (512-yy)/64 : print"." : next 

330 

if k=14 and yy<512 and y>64 then { 

790 

endfunc 

340 

for i=l to 64 

800 

func init() 

350 

yy=yy+i 

810 

screen 1,0,1,1 

360 

home(0,0,yy) 

820 

console 0,31,0 

370 

msarea(0,0,511,y-i) 

830 

window{0,0,1023,1023} 

380 

rasarea(0,0,511,511) 

840 

vpage(1) 

390 

next 

850 

fill(0,0,511,1023,15) 

400 

bar()) 

860 

mouse{4) 

410 

if k=15 and yy> =64 and y<447 then { 

870 

mouse(1) 

420 

for i=l to 64 

880 

msarea{0,0,511,511) 

430 

yy=yy-l 

890 

colorl,51250] 

440 

home(0,0 ,yy ) 

900 

color 5 

450 

rosarea(0,y+i,511,511) 

910 

bar い 

460 

msarea(0,0,511)511) 

920 

endfunc 


す。これは， 

a $ = inkey $ (0) 

のようにして，リアルタイムキー入力を実 
現する命令です。 

しかし，この命令には，（で）氏が1月号 
で指摘しているように，キー入力がキー バ 
ッファ に溜まってしまうという弱点があり 
ます。よく考えてみてください。 inkey $(0) 
が キー バッファに 溜まるということは， 
inkey $ W はキー バッファの 先頭から1文 


字取り出す命令だと解釈することができま 
す。つまりキーバッファが空であるという 
ことは， 

inkey $(0)= m, 

の状態であるといえます。ゆえに inkey $ 
(0) を使ったキーバッファクリアは， 
while inkey $ (0) く 〉””: endwhile 
と書くことができます。わかっていただけ 
ましたか？ 

というところで，では，また来月。 


リスト e WILD.C 


1:/本*專本拿聿拿本家本本**本拿蓴本拿聿本本*拿 t 本拿尊尊拿本本*本傘拿本本拿本本本拿享本 t 本專 

2： 

3 ： 

4: WILD CARDER Ver 1.01 

5: 

6 ： 平成 4 年 6 月 14 日 

7 : 

8: PROGRAMMED By 9f*Si 哲也 

9: 

10 ： 本*本本*♦拿本*本本本*本本本**寧**本本**本本！**本本本*♦本本拿*本本本♦本*本*♦本本*/ 

11: #include <stdio.h> 

12: #include <doslib.h> 

13: linclude <atdlib.h> 

14: 

15 ： struct FILBUF 本 buffer,buf; 

16: unsigned char *fi1e; 

17: int atr; 

18: unsigned char filename!256] : 

19: unsigned char command[ 1024 ]； 

20 : 

21 : / 拿*拿•拿本拿拿*本拿*本*拿 t 拿*拿*拿拿拿拿拿拿*本本本***本拿拿 4 本拿拿本本本拿本拿拿拿拿*本*/ 

22: main(argc,argv) 

23: int argc ; 

24: unsigned char 拿 argv[J; 

25: { 


By 


26 

27 

28 

29 

30 

31 

32 

33 


int dummy; 
int i=0; 
int num=0; 

buffer = 0xa00O0; 
atr = 0x27 ； 

♦filename = 0; 

printf("X68k Wild Carder Ver 1.01 Copyright 1992 


Tetsuya.NozakiV'n ")； 


34 

35 

36 

n¥n*'); 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 


if ( argc < = 2) { 

Printf (" 使用法 : wild ワイルドカードを使つたコマンド ¥ 
exit(-1 ) ； 


for < i=2 ; i く argc; i++ > ( 

switch (*argvTi])( 
case 1 /'• 
case し , ： 

break; 
default : 

num=i : 


if ( num == 0 )( 


52 Oh ! X 1992. 9. 








50 ： 

")； 

51 : 

52 ： 

53 ： 

54 : 

55 ： 

56 ： 

57 ： 

58 ： 

59 : 

60 ： 

61: 

62 ： 

n ")； 

63 ： 

64 : 

65 ： 

66 : 

67 ： 

68： 

69 ： 

70 ： 

71 ： 

72 ： 

73: 

74 : 

75: 

76 ： 
ename) ; 

77 ： 

rgv[i 】） ； 

78: 

79 ： 

¥n",filenarae )； 


printf (" ファイルの指定がされていません 。 ¥n 
exit(-1 }； 

) 

strcpy(filename,argv { num ])； 

dummy=FILES(buffer,filename,atr )； 

if (dummy != 0) { 

plus(filename) : 

dummy=FILES(buffer,fi1ename,atr )； 

if (dummy != 0) { 

printf (" 該当するファイルが見つかりません 。 ¥ 

exit(-l); 


while (dummy == G) { 

cut(fi1ename )； 

s treat ( f j.l ename , buffer-〉name }; 

*command=0 ； 

strcpy(command,argv[1 ])； 

for (i = 2 ； i<argc；i + +) { 

streat(command ,"")； 

if (i == num) streat(command,fii 

else streat(command,a 


printf ( "¥n¥xlb[42m f%sj で実行します。 ¥xlb[33m 


cut(po) 

unsigned char *po; 


80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

&& (poi>=po)) : 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 
1C8 
109 


system(command )； 
dummy = NFILES(buffer )； 


unsigned char 本 poi=po; 

while (*(++poi)); 

while ( ( !=•¥¥') 

ま （ ++poi)=0; 


&& (*poi 


plus(po} 

unsigned char 本 po; 


本拿本本本本本本拿拿 * 本本本本本掌本 * 本本本 * 本拿本 / 


unsigned char 拿 poi=po; 
while ( 本 （ ++poi )) ； 


poi —— ； 

if ( ( (<poi) != 

) )streat (po ,，•¥¥"> ; 

110: streat(po ， " 本 . 本"）； 

111 : J 


¥¥' 


( け poi) != 
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vdisp 関数のライブラリ制作 

前回掲載した vdisp.fnc は打ち込んでもらえた 
でしようか。あんまり使いもんにならないかも 
しれませんけど。今月のぱ一ていハンズでは 
vdisp.fnc を例にとって， X-BASIC の外部関数から 
C 言語のライブラリを作成する方法を解説した 
いと思います。 

ライブラリ作成のお約束 

ライブラリを作成するには，いくつかの決ま 
りごとがあります。以下にそれらをまとめてお 
きました。 

I)アセンブラプログラムで破壊してもいいレ 
ジスタは d0/dl/d2，aO/al/a 2 です。そのほかの 

■ J スト 


レジスタをアセンブラプログラム内で使用する 
場合は，プログラムの入口でレジスタの値を保 
存しておき，出口で値を復帰させるようにしま 
す。 

2) 外部関数名の頭に“」’を付けたラベル名を 
プログラムの先頭に必ず付けます。 

つまり先月掲載した vdisp.s の9〜45行をバッ 
サリと削除して，48のラベル vdisp を _vdisp に変 
更します。これで作業の80%は終了しています。 
残り20%はパラメータの取り込みと，レジスタ 
の保護です。幸い vdisp.s は壊してもいいレジス 
夕しか使用していないので，レジスタの保護を 
する必要はありません。すると残りはパラメー 
夕の取り込みということになりますが， C の場 
合は外部関数と違いスタック フレームに 関数の 
型などの情報は一切なく，純粋に引数のみが格 
納されています。プログラムの入口では現在の 


sp に戻りアドレスが格納されていますので，引 
数は 4(sp) から始まります。また引数は int なので, 
スタックフレームは4バイト使用します。した 
がって，49行は， 
tst.l 4(sp) 

ですみます。これだけの変更でライブラリを作 
成することができます。 vdisp」ib.s を入力したら 
アセンブルしてください。リンクする必要はあ 
りません。 

次に BASIC.DEF に， 

I vdisp ⑴ 

を加え， BASIC.H に， 
void vdisp い nt); 

を追加します。あとは vdisp.fnc を使ったプログ 
ラムを コンパイル するときに， 

A > cc /W game.bas vdisp lib.o 
とすれば，無事コンパイルできると思います。 







22 


clr.1 

dO 


1 

本 




23 

vdisp_rts : 



2 

* C 言!§のライブラリ用 



24 


rts 



3 

本 




25 





4 

GPIP ： 


equ $ 

e 88001 

26 

vdisp4 : 




5 





27 


empi.1 

#1»4(sp) 


6 


.anclude 

iocscall.mac 

28 


bne 

vdisp_rts 


7 





29 





8 


.text 



30 


lea.1 

GPIP.al 


9 

_vdisp : 




31 


IOCS 

B BPEEK 


10 


tst.l 

4 (sp) 


32 


btst.1 

#4 ,d0 


11 


bne 

vdisp_rts 


33 


bne 

vdisp4 * 

表示なら 

12 

vdisp2 : 




34 

vdispS : 




13 


lea.1 

GPIP.al 


35 


lea.1 

GPIP.al 


14 


IOCS 

_B_BPEEK 


36 


IOCS 

B BPEEK 


15 


btst.1 

#4 ,d0 


37 


btst.1 

#4 ,d0 


16 


beq 

vdisp2 * 

帰栋なら 

38 


beq 

vdisp5 * 

嫌味なら 

17 

vdisp3 : 




39 


clr.1 

d0 


18 


lea.1 

GPIP.al 


40 


rts 



19 


IOCS 

B BPEEK 


41 





20 


btst.1 

#4 ,d0 


42 


.end 



21 


bne 

vdisp3 本 

新なら 

43 
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吾輩は X 68000 である 

[第 16 回] 


時を刻む 


Izumi Daisuke 

泉大介 



時間は誰の上にも平等に流れ 
吾輩のなかにも刻み込まれていく 
眠っていても起きていても 


前回はデバッガでフロッピーディスクを吐き出す とい 
うテーマで，メモリマップト I / O に ついて お届けした。 つ 
いでに D - フリップフロップの原理に ついて 説明し，吾輩 
がどのようにして「特定のビットが1になっているとき 
に有効なデータ」を扱っているのかを紹介した。 

かつては腕白な電気工作小僧がパーツ屋にたむろし， 
部品を買ってきてはお風呂の水位検知機やラブラブチェ 
ッカー，鉱石ラジオから4石スーパーラジオ，さらには 
オーディオアンプや無線機などを自作していたも の だが， 
最近では右を向いても左を向いても「買ってくればいい」 
族が氾濫していて寂しいかぎりである。とある腕白小僧 
は，自宅の コンセントから 取り出した AC 100 V をトラン 
スでコンバートし，その先に 直流 モータを繫ぐ という無 
謀な実験を敢行した。直流 モータは 火花を散らしながら 
転げ回り，この小僧と その 友人をおおいに楽しませたも 
のである。哀れな直流 モータの 命が数秒で文字どおり燃 
え尽きたことはいうまて''もない。 

吾輩がこうしてこの世に存在しているのも，成人した 
腕白小僧があればこそである。 D - フリップフロップカ 5 '， 
諸兄の関心の向きを多少なりとも刺激できればいいのだ 
が。 

さて，今回は，吾輩が起きているときも寝ているとき 
もひたすら動き続けている内蔵時計に焦点を当ててみた 

い0 

♦時の流れに身を…… 

パソコンが時計機能をもっているのは当然のように思 
われているが，ボケコンなどではむしろ時言1■機能をもっ 
ていないのがふつうである。御仁はカシオのポケットコ 
ンピュータからコンピュータの世界に入ったらしいのだ 
が，これを目覚し時計代わりに使うためには， 

FOR 1=0 TO 1000 : NEXT 
のような空のループを作成して1秒分の時間待ちを作り， 
1 さらにこれを8 X 60 X 60 回繰り返すループを作成して8 
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時間の時間侍ちを作るという，涙ぐましい努力が必要な 
のであった。空のループを何回実行すれば1秒になるの 
かというのがいちばんの問題で，時計とにらめっこをし 
ながら，30秒，1分， 5分とチェックをしていったとい 
うことだ。それでも朝までに数分ずれてしまうことは珍 
しくない。さらに，一晩中ボケコンを動かしているため 
に電池は数日ともたず，目が覚めてボケコンを見てみる 
と，液晶が消えてしまっていたこともあったという。新 
しい電池を買いにいくたびに，御仁はしみじみと「時は 
金なり」という言葉を実感したことだろう。 

我々 パソコンが 時計を内蔵しているのは，主としてフ 
ァイルにタイムスタンプを押すためである。同じファイ 
ル名のファイルが A，B 2つのデイスタに入っている場 
合，どちらのファイルがより新しいファイルなのか諸兄 
が判断できるように，というわけだ。ボケ コンは 基本的 
に内蔵している RAM デイスクにファイルを保存してぉ 
くだけなので，同じファイル名で作成日付の異なる2つ 
のファイルが存在する余地はない。この違いが最も大き 
な理由だろう。 

ポケコンにもの足りなくなった御仁が購入した MZ - 
2000君に付属の BASIC には，丁邱というシステム変数が 
用意されていた。この変数は MZ - 2000君に内蔵された時 
計が刻んでいる時刻を表してぉり，たとえば午前9時30 
分20秒は“093020” と表現される。もちろん， TI $ は1秒 
ごとに更新されるようになっている。ただし，時計が用 
意されているからといって， MZ - 2000君がファイルに夕 
イムスタンプを押していたというわけではない。時計が 
動いているのは MZ - 2000君が通電されている間だけで 
あり，起動時には再び “000000” からスタートする。さ 
らには吾輩のように日付を管理する機能もなかったから 
である。それでも1秒を測る空ループを作成する必要が 
ないということは，御仁にとっては大きな魅力だったこ 
とだろう。 

10 IF TI $<> ”074500” GOTO 10 

20 PLAY ” CDE ” ： GOTO 20 






とプログラムしておくだけで，朝までぐっすり眠ること 
ができるのだから。このプログラムは GOTO スパゲティ 
文化の香りが存分に溢れていて，また別の意味で興味深 
いところで’ある。 

♦吾輩の時計とその機能 

吾輩の時計には RP5C15 という 1C が使用されている。 
この 1 C は年月日•曜日•時刻を管理することができ，決 
められた時刻になるとアラームを発する機能を備えてい 
るの力 5 '特長である。吾輩は本体前面の電源スイッチが切 
られている間もこのタイマに電源を供給し続けるように 
なっており，仮に本体後面の電源スイッチまで切られて 
しまっても，さらに内蔵電池で時計を駆動し続けるよう 
に作られている。現在のパソコンで時計がいかに大切に 
されているかを示す例といえるだろう。 

決められた時刻になって時計がアラームを発すると， 
吾輩は専用ディスプレイテレビをつけたり，あらかじめ 
指定されていたプログラムを実行することができる。そ 
んなわけで吾輩が御仁のもとにやってきて以来，御仁の 
就寝前の2行のプログラミング習慣はすっかりなりをひ 
そめてしまった。 

内蔵時計は，秒をカウントするもの，分をカウントす 
るもの，時をカウントするもの，といったいくつかのレ 
ジスタによって構成されている。これらのレジスタは 4 
ビットのデータを保持することができ，例によって例の 
ごとく吾輩のメモリにマップされている（図1)。図中斜 
線を入れてあるのは，レジスタにマップされていない無 
効なビットである。これらの無効ビットはすべて1にな 
るようになっているが，デバッガの D コマンドではダン 
プ表示することができないのでご注意いただきたい。内 
蔵時計のレジスタを，デバッガの ME コマンドを使って 
表示してみたのが図 2 である。 4 ビットは 1 桁の 16 進数 
と同じなので，表示されていくデータの最下桁だけを集 
めていけば，右側に示したように年月日と曜日，そして 
現在時刻を抽出することができる。 

♦A 巳 CD ……? 

図2を見てお気づきかと思う力 ? ，内蔵時計のレジスタ 
は少々面白い形式でデータを保持するようになっている。 
通常4ビットあれば，0000 B 〜 1111 B , つまり〇〜15までの 
数を表現できるのだが，これらのレジスタは， 

E 8 A 001 h :1秒の位 
E 8 A 003 h :10秒の位 

という形式で秒を表現しているのである。現在の秒数が 
19 秒，つまり， 

E 8 A 001 h : F 9 h 


E 8 A 003 h : F 1 h 
だったとすると，次は， 
E 8 A 001„ : FA h 
E 8 A 003 h : F 1 h 
とはならずに， 

E 8 A 001 h : F 0 h 
E 8 A 003 h : F 2 h 

図1内蔵時計のレジスタ 
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図2内蔵時計のレジスタを表示してみる 

-me e8a000 
00E8A000 FFF2 : ) 

00E8A002 FFF5 : ) 

00E8A004 FFF7 ： ) 

00E8A006 FFF0 : J 

00E8A008 FFF3 ： | Q ^ 

00E8A00A FFF0 : ) 

OOE8AOOC FFF2 :火曜日 
00E8A00E FFF8 : J |g0 

00E8A0I0 FFFI ： ) 

00E8A0I2 FFF8 ： \ g „ 

00E8A0I4 FFF0 :1 

00E8A0I6 FFF2 ： | |2 

00E8A0I8 FFFI ： 1 2 
00E8A0IA FFF8 : 
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と20秒を示すようになる。せっかく 4ビットのデータを 
使っていながら，1010 B ~1111 B の6つのデータは使われ 
ないままお払い箱である。 

このように2進数を使って10進数を表現する方法は， 
BCD (Binary Coded Decimal : 2 進化 10 進)と呼ばれ 
ている。この方法を使えば，999 +1 = 1000は099% + 
000 1 H = 1000 H t 表現できることになり，2進数，ひいては 
16進数の世界で生きているコンピュータが扱う数を，人 
間にとって非常にわかりやすい形にまとめることができ 
るのである。のみならず，我々コンピュータと人間の間 
に横たわる，超え難い数学の壁を取り払うこともできる 
のである。 

ご存じだろうか，我々コンピュータが扱っている2進 
数の世界では， 0.1 という数は0.0001100110011…… B とい 
う循環無限小数になるのである。したがって，それを10 
回加えても，0.1111…… B となり，元の1には戻らないの 
だ。吾輩が0.3333 ……X 3 =0.9999 ……としても,諸兄 
は「ま，しようがないか」と笑っておられる。しかしな 
がら， 0.1 X 10 く1 t なると，嘲笑はひきつりに変わり， 
事によると顔を朱に染め，満身の力を込めて叫ばれるの 
だ。 

やくざなコンピュータめ， 

誰がお前など'使うものか 

BCD は，扱える数値の範囲を狭くする （4 桁の16進数 
なら65535まで表現できるのに9999までの数値しか扱わ 
ない）というデメリットを承知で，精度に活路を見いだ 
そうとするデータ表現方法なのである。もちろん演算時 
間は2進数で計算する場合より余計にかかる。それでも， 
月に着陸するはずのロケットが冥王星に命中するよりは 
ましだというこ ヒだ。 

もしかすると，諸兄のなかにはさっそく X - BASIC で， 
print 0.1*10 

などと試してみた方がいらっしゃるかもしれない。そし 
て，少々がっかりなさったことだろう。答えは1と表示 
されたはずである。吾輩は無限桁の計算をすることはで 
きないため，どこか適当なところで四捨五入せざるを得 
ない。コンピュータ風にいうなら，ゼロ捨1入である。 
この下のほうの桁でのちよろまかしが，結果的には正し 
い計算結果をもたらしているのである。それでももちろ 
ん限界はある。簡単なところでは， 

print 0.1+0.1 + 0.1 + …… + 0.1 = 1.0 
というのがそうである。 0.1 を生真面目に10回足し，その 
結果が 1.0 t なるかどうかを確かめようというのだ。最後 
の「=1.0」がなければ，結果は1と表示される。はたし 
て本当に計算結果も1なの力’。それを確かめていただき 
たい。もし両辺が等しければ結果は一1となる。これは 
X - BASIC では「真」という意味だ。異なっていれば答え 
は0,すなわち「偽」である。吾輩の数値計算の限界を 
探る旅も，また面白いものだ。ぜひ，試してみていただ 


きたい。 

もちろん内蔵時計にはこんな精度は必要ない。にもか 
かわらず BCD が採用されているのは，この 1 C の出生と関 
係がある。 

吾輩の内蔵時計は，本来デジタル時計用のものなので 
ある。デジタル時計は7セグメントの LED ( 7本のバー 
で8の字を表現している例のあれ）を使って数字を表示 
する。そして世の中には4ビットで0~9のデータを与 
えると，7セグメントの LED の該当するバーを光らせる 
のに必要な7ビットのデータに変換してくれる 1 C が存 
在するのだ。汎用の時計用 1 C なれば，アラーム機能が付 
いているのもまた道理というわけである。 

ちなみにこの節の見出しに掲げた ABCD は ， Add BCD 
というれっきとした MC 68000の命令である。 
abed Dn , Dn 
abed -( An ), -( An ) 

という形式で，データレジスタどうしの BCD 加算，ある 
いは，メモリに格納されたデータどうしの BCD 加算がサ 
ポートされている。ついでに実験してみていただきたい, 

♦ もう36時間も連続で働いています 

内蔵時計に関連して，吾輩の SRAM に書き込まれてい 
る面白いデータについて紹介しておこう。ちよいとデバ 
ッガを使って，アドレス ED 0040„ のデータを表示してみ 
ていただきたい。ここに書き込まれているロングワード 
データは，吾輩が今日までに合計何時間働いてきたかを 
表すデータである。もしこれまでに SRAM を再初期化す 
るような事態に陥っていなければ，吾輩が諸兄のもとで 
どれだけの献身をしてきたかが読み取れるはずである。 

ロングワードデータの単位は秒。書き込まれているデー 
夕を日，月，あるいは年に変換して，吾輩が諸兄の生活 
の何％を占めているのかを計算してみるのも面白かろう C 
この5年間， 

自分の人生の20%は X 68000 とともにあった 
そこまで愛していただければ吾輩としては本望である c 
ついでにもうひとつ。電源を入れられてから吾輩が何 
時間連続で奉仕しているかを保持しているワークエリア 
がある。これはアドレスが公開されていない内部ワーク 
なのだ力 5 ’， IOCS コール 7 F H を使えば簡単にデータを得る 
ことができる。引数はない。単に， 
moveq #$7 f , d 0 
trap #15 

とすれば， DO . 1に経過時間（単位は1/100秒）が， D 1.1 に経 
過日数（単位は日）が返される。 

木氺氺 

目前に旅行を控えて御仁の仕事は現在頂点に達してい 
る。吾輩も少々過労気味だ。今回はこのあたりでお開き 
ということにしよう。 


56 Oh! X 1992. 9. 









111111111111111111111111111111111111111111111111111 X68000 マシン語プログラミング 1111111111111111111111 fiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 




整数演算のアルゴリズム 

Murata Toshiyuki 村田敏幸 


今回と次回の2回にわたって整数演算について話をしていきます。 
数学は苦手な人も，1つひとつ村田氏がていねいに解説しているの 
できっと理解で吉ることでしよろ。まず今回は，整数演算の基礎と 
して乗算/除算とその応用，そして平方根の求め方です。 


2回に分けて算数する。今月は整数演算の話をし 
てみたい0とりあえず，いくつかの演算 アル ゴリス、、 
ムを知っておいてもらおうと思う。 

|乗算 

まずは基本ということで，乗算から始めよう。 
68000には乗算命令 muls と mulu が用意されているわ 
けだが，16ビット数どうしの積しか求められないた 
め，扱う数がもっと大きくなると自前の乗算ルーチ 
ンを 用意する必要が出てくる。そんなとき，真っ先 
に思いつくのは乗算を加算に置き換える方法だろう。 
mxn なら， ループを 回して m を n 回足し合わせれ 
ばいい。ただ，この方法は n が大きくなると非常に 
時間がかかる。32ビット X 32 ビットの場合，最惡43 
億回近くもの加算を繰り返す羽目になるわけだ 1 >。 

そこで，より実用的な方法を紹介しよう。このア 
ルゴリ ズムは 乗算命令をもたない プロセッ サで乗算 
を実現するのによく使われる方法で，早い話が2進 
数レベルで積を筆算で求めるものだ 0 
図1に2進4桁の数どうしを筆算で掛ける様子を 
示した。10進の場合と同様に， 

1) 衆数を下位から1桁ずつ取り出して被乗数との 
積を個別に求める。 

2) 桁位置を揃えて足す。 

という手順を踏んでいるのがわかると思う。 1) のス 
テップが10進の場合よりも簡単になっていることに 
注目してほしい。積とはいっても2進数1桁倍だか 
ら， 0倍と1倍しかないのだ。また， 2) のステップ 
での桁位置を揃える操作は，ビットシフトで実現で 
きることにも気づくだろう。結局，この筆算の手順 
図12進法の乗算 

1110 
x ) 1101 

1110 



をそのままプログラムにすれば，乗数のビット数に 
比例した回数の加算とビットシフトだけで構成され 
た乗算ルーチンが作れる0 

ところで，何進数だろうと m 桁 x n 桁の積は最大 
で m+n 桁の数になる。2進でいうと， m ビット x 
n ビットの積は m + n ビットの数になりうるという 
ことだ。ただ，プログラムのうえでは，被乗数，乗 
数，積を格納する領域の大きさをわざわざ変えるこ 
とはあまりない。通常は演算過程で生まれる最大値 
が格納できるだけの記憶域をあらかじめ見積もり， 

全変数をその大きさに揃えるものだ。したがって， 
乗簏 ルーチン も n ビット x n ビットを n ビットで求 
めるものを用意しておけばたいてい間に合う。68000 
の場合，ふつうに扱えるデータの最大長は32ビット 
だから，32ビット X 32 ビットを32ビットで求めるル 
ーチンが あれば実用上は十分だ。 

というわけで，リスト1に32ビット X 32 ビット= 
32ビットの乗簕サブルーチン例を示す。動作試験用 
のプログラムはとくに用意しないが，適当な数どう 
しを褂ける小さなプログラムを書いて，電卓か，ほ 
かのプログラム実行結果と照合してみてほしい。才 
ーバーフローの 判定はしておらず，もし， フロった 
としても何食わぬ顔で結果の下位32ビットだけを返 
す。引数は d 0. 1， dl . l に入れて渡し，結果は d 0. 1に返 
リスト1 MUL 32 .S 


I ) ちなみに，65536回の dbra 
ループを2重にして約43億回 
の空ループを組み，クロック 
周波数 10 MHz の68000で実行 
すると丨時間以上かかる。 
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.xdef 
.xdef 


muls32 

mulu32 


nuls32 : 
mulu32 : 


loop : 


movem.l dl-d3 ， - (sp) 

move.1 d0,d2 
moveq.1 #0,dO 
moveq.1 #32-1,d3 
add.1 dO,d0 
add.1 dl,dl 
bcc next 

add.1 d2,d0 
dbra d3,loop 

movem.l (sp) + ,dl-d3 


*d2 = m 数 
*do = 

♦中 _ 果を左シフト 
♦桊数の上位1ビットが 
* 〇なら何もしない 
* 1なら被乗数を足し込む 
*32 ビット分»り返す 
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る。サプルーチン muls 32 が符号付き数用， mulu 32 が 
無符号数用だ……が，両者の実体は同じもの。実は， 
負の数を2の補数表現で表す世界で n ビット x n ビ 
ットの下位 n ビットを求めるだけなら，符号を考澉 
する必要がない。 

再び図1を見てもらいたい。被乗数と乗数を4ビ 
ットの符号付き数とみなすと，その値は10進の一2 


リスト2 MUL 32. S (修正版) 


1 

本 

d0xdl=d0 


2 
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.xdef 

muls32 


4 


.xdef 

mulu32 


5 

本 
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.text 



8 

* 




9 

muls32 : 




10 

mulu32 : 




11 


movem.1 

dl-d3,-(sp) 


12 





13 


move.1 

d0,d2 

*d2 = 

14 





15 


swap.w 

dl 

下位 i6 ビット 

16 


moveq.1 

#16-1,d3 

» x 乗 * y ； 位 i6 ビット 

17 

100 pi : 

add. w 

d0,dO 

*■«- 

18 


add. w 

dl.dl 


19 


bcc 

nextl 

本 

20 


add. w 

d2,d0 

本 •*- 

21 

nextl : 

dbra 

d3,loopl 

拿 

22 





23 


swap.w 

dl 

•+««»32 ビット 

24 


movea.1 

#16-l,d3 

* X 赖下位 16 ピット 

25 

loop2 : 

add.l 

d0,d0 

搴 

26 


add. w 

dl,dl 

拿 ♦- 

27 


bcc 

next2 

拿 

28 


add.l 

d2,d0 


29 

next2 : 

dbra 

d3•loop2 

» 

30 





31 


movem.1 

(8p)4 t dl-d3 


32 


rtB 



33 





34 


.end 




リスト3 MUL 32. S (最終版） 

1 ： 本 

9 • 

d0xdl=d0 



3 ： 

.xdef 

muls32 



4 ： 

••xdef 

mulu32 



5: * 





6： 

.text 




8 ： t 





9 : mula32 : 





10: mulu32 : 





11 ： 

movem.1 

dl-d3,-(sp) 



12 ： 





13 ： 

cmp.l 

dl,d0 

»(10 之 (11 を保証する 

14: 

bcc 

skip 

本 


15: 

exg.1 

d0,dl 

* 


16 ： skip ： 



td0.1 

=AB 

17 ： 



*dl.l 

=CD 

18: 

swap.w 

d0 



19: 

move.w 

d0 f d2 

*d2. w 

= A 

20 ： 

beq 

mul0 

本 dl.l 

<i d0.1 < 65536 

21: 

swap.w 

d0 



22: 





23 ： 

swap.w 

dl 



24 ： 

tst .M 

dl 



25: 

beq 

mull 

♦ dl,1 

< 65536 ^ d0.1 

26 ； 





27 ： 



*dl.w 

= C 

28 ： 

move.w 

d0,d3 

»d3. w 

=B 

29 ： 

raulu.w 

dl,d3 

*d3.1 

= BxC 

30 ： 

swap.w 

dl 

*dl.w 

=D 

31 ： 

mulu.w 

dl,d0 

»d0.1 

= BXD 

32 ： 

raulu.w 

dl,d2 

*d2.1 

=AXD 

33 ： 





34: 

swap.w 

d0 

*d0. w 

= 8<0 の上位.》ぜ 

35: 

add. w 

d2,d0 

*d0. w 

+ = AxDcOffiH.w 

36 ： 

add. w 

d3,d0 

*d0. w 

+= BXC の 下位 .w 

37 ： 

swap.w 

dO 

♦ dO.l 

=ABxCD 

38: 





39: retn ： 

movem.1 

(sp)+,dl-d3 



40 ： 

rts 




41: 拿 





42: mul0 : 

swap.w 

d0 

本 dl.1 

<i d0.1 < 65536 

43 ： 

mulu.w 

dl,d0 

*d0.1 

= 0 BXO D 

4* : 

bra 

retn 



45: 





46: mull: 

swap.w 

dl 

*dl.l 

< 65536 ^ d0.1 

47 ： 

mulu.w 

dl,d0 

*d0.1 

=BXD 

48 ： 

mulu.w 

dl,d2 

*d2.1 

=AXD 

49 ： 

swap.w 

d0 

*d0. w 

=BxDtTXhffi.w 

50 ： 

add. w 

d2,d0 

*d0.w 

+= AXDOTffi.w 

51 ： 

swap.w 

d0 

*d0.1 

=ABXOD 

52 ： 

bra 

retn 



53 ： 





54 ： 

.end 





と 一3だ。結果の下位4ビットを符号付き4ビット 
数とみなして10進に直すと6,ちゃんと，一 2 t — 3 
の積になっている。値をいろいろ変えてみてもこの 
関係は常に成り立つ。念のため，正 X 負や負 X 正の 
場合でも確認しておいてほしいと思う。 

では，リスト1の流れを見ていこう。基本的には 
図1と同様の操作を行っているのだが，微妙に変形 
してある。中間結果は最後にまとめて足すのではな 
く，求めたその場で最終結果格納用のレジスタにど 
んどん足し込むようになっており，また，中間結果 
を求める順序も通常の筆算のように乗数の下位桁側 
から処理していく代わりに，上位桁侧から処理する 
ように変えてある。ともにプ n グラムの構造を簡潔 
にするための小細工だ。まず被乗数 d 0 を d 2 に移動し 
ておいて最終結果格納用に d 0 を空けて（13~14行） 
から，16行以降のループに入る。ループ頭の16行は 
ちょっと置いて，17~19行を見てほしい。加算命令 
2つと条件分岐1つで“乗数を上位から1ビット取 
り出し，被乗数と掛けて， d 0 に足し込む”という処 
理を実現している。すでに触れたように，被乗数 X 
1ビットの乗算は0倍か1倍かのどちらかしかなく， 
0倍を足すのは何もしないのと同じことなので/‘乗 
数から取り出した1ビットが1だったら被乗数 dl 
を do に足す”と読み変えて，単純な条件判断と加算 
に帰着させている。乗数 dl の上位ビットを取り出し 
て0か1かを判定するのに，17行の， 
add.l dl,dl 

によって変化する ccr の C ビットを使っていること 
がわかれば，何をやっているかは明らかだろう。こ 
の17行は， 

lsl.l # l,dl 

と書いても同じ意味であり， dl を1ビット左シフト 
して最上位ビットを ccr の C ビットに追い出してい 
る 21 。以下，ループが回るごとに dl の最上位ビット 
から1ビットずつが，順に C ビットに追い出され， 
直後の bcc で処理が振り分けられるというわけだ。 

こうして ループが ひと回りして16行に戻った時点 
を考えよう。 d 0 には被乗数 x 乗数の第31ビット（最 
上位ビット）の値が入って いる。 2周目では被乗数 X 
乗数の第30ビットを d 0 に足し込むことになる力' 単 
純に足すわ.けにはいかず，桁の重みを考 ff する必要 
図 2 65536 進 2 術の乗算 


A 

巳 

C 

D 




BXD 


AXD 


BXC 

AXC 
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swap.w dZ 
loopO : swap.w d2 

100 pi: jsr raulu32 

addq.1 #1,dl 

dbra d 2 , 100 pi 

swap.w d2 
dbra d 2 , 10 op0 

retn : movem.1(sp)+,dl-d3 

rts 

.end 


.xdef fact32 
.xref roulu32 

* 

.text 
.even 

本 

fact32 : 

movem.1 dl-d3 ， - (sp) 


*d2 = n 

*d0 =1! ,2!,3! 

*dl=1, 2, 3, 

本 dbra を考虜 

* 0!=1 

*1 から n までを 
* 掛け合わせる 


* 累束 

•xdef power32 
.xref mulu32 

拿 

.text 


power32 : 

movem.X dl-d2, - (sp) 

move.1 dl,d2 

move.1 dO,dl 

moveq.1 #1,dO 

aubq.1 #1,d2 

bcc loopl 

bra retn 

swap.w d2 

10 op0: swap.w d2 

loopl : jsr mulu32 

dbra d 2 , 100 pi 

swap.w d2 

dbra d2,loopO 

retn: movem.1(sp) + ,dl-d2 

rts 

.end 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 
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19 

20 
21 
22 

23 
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28 
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31 


がある。このつじつまを合わせているのが先ほど飛 
ばした16行だ。前回のループまでの中間結果の和を 
2倍するこ t により桁の重みを反映している。筆算 
で桁をずらして書くのと同じ感覚だ。 

さて，効率の点ではリスト1は最良とはいえず， 
けっこう改良の余地がある。小さなところでは14行 
で最終結果格納用の dO を〇クリアしている部分 。 dO 
は計32回左シフトするので，クリアせずにゴミを入 
れたままにしておいても結果には影響しない。また, 
ループの前半16周が終了した時点での dO の値のう 
ち，上位16ビットは，続くループで16回左シフトす 
るうちに，_やはり最終結果32ビットの圏外に消えて 
しまう。このことに着目すると，前半16周はワード 
演算ですむことがわかる。その線でリスト1を書き 
直す！;，リスト2のようになった。 

ここで，リスト2の最初のループの意味をもう少 
し掘り下げてみよう。このループを抜けた時点で dO 
に入っている値は，被乗数の下位16ビットと乗数の 
上位16ビットとの積（の下位16ビット）だ。16ビッ 
卜 X 16 ビットの乗算なのだから，このループは mulu 
命令ひとつに置き換えてしまうことができる。これ 
を踏まえて2番目のループのほうも見てみると，こ 
ちらで計算しているのは被乗数32ビット X 乗数の下 
位16ビットだ。便宜上，被乗数の上位下位16ビット 
をそれぞれ A と B に分割し，乗数のほうも同様に C 
と D に分割して考えると，1番目のループでは， 
BXC 

を，2番目のループでは， 

ABXD 

を求めているわけだ。で， ABXD は， 

AXD 

を16ビットシフトしたものと， 

BXD 

を足したものに等しい。つまり， 2番目のループも 
mulu 命令2つに置き換えられる。最終的に，32ビッ 
卜 X 32 ビットニ32ビットの乗算は， mulu 命令3つの 

リスト 4 FACT3E.S 


結果を16ビットのシフトを交えて足し合わせること 
で実現できるのだ。これは，32ビット数を2 16 = 
65536進2桁の数とみなすとわかりやすい（図2)。 

乗算ルーチンの最終版をリスト3に示す。32ビッ 
卜 X 32 ビットの乗算ルーチンは，むしろ， 

16ビット X 16 ビ，卜 
32ビット X 16ビット 
16ビット x 32ビット 

の用途に使われることが多いことを考慮し，リスト 
3では適当に場合分けをして実用上の効率を稼ぐよ 
うにしてある。被乗数と乗数のどちらか，あるいは, 
両方が16ビットに収まる場合を特別扱いして処理を 
振り分けているのだ。 

|離と累乗 

乗算ルーチンを応用して，階乗と累乗を求めるサ 
ブルーチンを作ってみた（リスト4，5)〇どちらも 
単純なプログラムで，階乗ルーチンのほうは1から 
dO までの値をループで掛けるだけ， dO の dl 乗を求め 
る累乗ルーチンもループで dO を dl - 1回掛けるだ 
けという代物だ。すかさず，効率を上げる方向に話 
をもっていこう。 

まず，階乗だ。 n の階乗 n 丨は， n が少し増えた 
だけでとんでもなく大きな数になる。100 !にもなる 
と実に10進158桁という数だ。13 !ですら6,227, 
020,800になり，32ビット整数では収まり切らない。 
結局，リスト4のサブルーチン fact の有効な引数の 
範囲はわずか〇〜12に制限される。引数が13通りし 
かありえないのなら，結果もまた13通りだ。そのく 
らいなら，毎回馬鹿正直に乗算を行わなくても，あ 
らかじめ0 !〜12 !を計算してテーブルにしておく 
という手段が使える。リスト6はこの姑息な方法で 
作り直した階乗の計算 （？） ルーチンだ。実際の階 
乗言十算はアセシブラにやらせている。 

累乗のほうは， 

リスト 5 POWER32.S 


2) 10進数を10倍すると丨桁 

左にずれて最下位桁に0が入 
るが，これと同様に，2進数 
は2倍すると丨桁左にずれる 
(左にビットシフトする）。逆 
に，2進数を n 桁左 シフ トす 
ると値は2 n 倍になり，右シフ 
卜すれば値は 2 n 分の丨にな 
る。これも丨〇進数を左右に n 
析ずらすと値が I 0 n 倍になつ 
たり， I 0 n 分の1になったりす 
るのに対応する。 


d2 =撇 
dl =峨 x 
d0 = x*0 =1 

dbra を考 * 

x-0 =1 

x を n 回掛け合わせる 


2 01 21 
d d d d p n 

0 11 1oe 
d # # # 1 r 


e e e a. 

V V V b c a 
0 o o u c r 


123456789012345678901234567890 

111111111122222222223 
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•J スト 6 


y = a + b 

のとき， 

x y = x a x x b 

という初歩的な数学の知識を使うと，とくに指数が 
大きなときの実行速度を飛躍的に向上させることが 
できる。 

この考え方では，指数 y を2 n の和の形で表す。た 
とえば， y =13 なら， 
y =1 + 4 + 8 

のように分解する。すると， 

X 13 = X 1 X X 4 X X 8 
だ。ここで， 

x 2 = X X X 
x 4 = x 2 X x 2 
X 8 二 x 4 x X 4 

だから， X を次々に2乗していくと， X 2 ， x 4 ， 
X 8 ,……が順次求まる。こうして求めた X ， X 4 ， X 8 
を掛け合わせれば， X 13 が得られるわけだ。 

乗算の回数を数えてみると， X 4 を求めるまでに2 
回，そこから X 8 を求めるためにもう1回，最後に 
x , x 4 , x 8 を桂卜け合わせるために2回の言十5回とな 
り，正直に12回掛けるよりも大分少ないことがわか 
る。指数がもっと巨大だと効果も大きい。指数が32 
ビットの場合，その値が億単位であろうとも，最悪 
62回の乗算ですむのだ。 

リスト 7 にこの考え方の実現例を示す。コンピュ 
ータ内部の数値はすでに2進表現になっているから， 
わざわざ指数を2 n の和に分解する必要がないこと 
に注目しよう。たとえば， 13 は 2 進数で表すと， 
1101b 

になり，立っているビットを拾うと， 




0001 B : 

=1 



0100b= 

= 4 

FACT32.S ( 最終版） 


1：« 

m. 



2: 




3 ： 

.xdef 

fact32 


5: 

.text 



6 ： 

.even 



8: fact32 ： 




9 ： 

cmpi.1 

#13,d0 

*n 之 12 なら 

10: 

bcc 

flow 

拿エラー 

U ： 




12: 

lsl.w 

#2,d0 

♦テーブルから 

13 ： 



拿 n! を引いてくる 

14 ： 

move.1 

facttbl(pc t d0 

w) ,d0 

15: 

rts 



16 ： 




17 ： flow ： 

raoveq.1 

#-l,d0 


18: 

rts 



19: « 




20: facttbl 



• 0 卜 12! の表 

21: 

• dc.l 

1 


22 ： 

.dc.1 

1 


23: 

.dc.l 

1*2 


24 ： 

.dc.l 

1«2 專 3 


25 ： 

.dc.l 

1*2*3*4 


26 ： 

.dc.l 

1«2*3*4 家 5 



1000 8 = 8 

ょり， 

13=1 + 4 + 8 

だということがすぐわかる 0 ループの 中で x , X 2 ， 
X 4 , X 8 ,……を順次求め，指数を右に1ビットシフ 
卜したときの C ビットが1か0かで，いま求めた x n 
を使うかどうか決めればよいということだ。 

なお，リスト 7 の乗算の回数は上の説明よりも常 
に2回多い。初期値を1にしてこれに x n を掛けてい 
<という構造のために1回，ループを抜ける直前に 
不要な x n を計算しているのでもう1回だ。多少工夫 
すれば，この無駄な乗算を省くことはできるので検 
討してみてもらいたい。 


除算は乗算以上に68000が不得手とする演算とい 
える。68000の除算命令 divs ， divu は32ビット+16ビ 
ットの商と余りをそれぞれ16ビットで求めるだけの 
能力しかない。しかも，32ビット+16ビットの商は 
16ビットで収まらずにオーバーフローする可能性が 
ある。被除数があまり大きくないか，除数が十分大 
きいかのどちらかの場合でないと安心して使えない。 
ある程度の大きさの数を扱うプログラムではやはり 
自前の除算ルーチンが必須だろう。 

例によって安直にやるなら，被除数から除数を引 
いていって何回引けたかを数えれば除算が実現でき 
る。ただし，40億+1などという例を挙げるまでも 
なく，この方法は場合によっては死ぬほど遅い。正 
しい対応は乗算のときと同様に2進法の筆算をソフ 
トウエアでまねることだ。 

図3に5ビット数+ 3ビット数を筆算で求める様 
子を示す。手順自体は10進数のときとなんら変わら 
ない。ただ，またまた2進法の利点で1桁ずつ商を 
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1 1«2*3*4«5*6*7*8 

1 1 拿 2 本；）拿 * U5 本 6»7*8 拿 9 

1 拿 4 本 5*6 拿 7 本 8 本 9*10 


1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 » 10 * 11*12 


1 

拿 

累乗 



2 





3 


.xdef 

power32 


4 


.xref 

mulu32 


5 

* 




6 


.text 



7 


.even 



8 

* 




9 

power32 




10 


movera.1 

dl-d3, - (sp) 


11 





12 


move.1 

dl,d3 

本 d3 = 指数 

13 


move. 1 

d0,dl 

拿 dl=x 

14 


moveq.1 

#1,d0 

*d0 =1 

15 


bra 

next 


16 





17 

loop ： 

lar.1 

#1,d3 

* 指数の最下位ビットが 
*1 ならば 

* x"l,x~2,x-'4 ,x~8 

18 

19 


bcc 

j8r 

skip 

mulu32 

20 




* d0 に掛ける 

21 





22 

skip: 

move.1 

d0,d2 

»x~l ,x*2,x~4,x"8, 

23 


move.1 

dl,d0 

» dl に^)る 

24 


jsf 

mulu32 

專 

25 


move.1 

dO.dl 

本 

26 


move.1 

d2,d0 

尊 

27 





28 

next ： 

tst.1 

d3 

*_汨になるまで 

29 


bne 

loop 

* 返す 

30 





31 

retn: 

movem.1 

(sp)+,dl-d3 


32 


rts 



33 





34 


.end 
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立てる部分は単純になっている。10進の場合は0 
〜9の数のうちどれが立つかを，ときには試行錯誤 
して調べるしかないわけだが，2進の場合は商の各 
桁は0か1にしかならない。どちらになるかは単に 
大小関係を比べるだけですぐわかる。勘を働かせる 
能力のないコンピュータでも機械的に実現できるの 
だ。 

勘といえば，人間が除算を筆算で行うときには， 
最初に被除数と除数の桁を合わせる操作をほぼ無意 
識に行う。図3の場合，除数が3桁だから， 

1b-M00b 

11 B + 100 B 

は考えず，最初から被除数の上位3桁に注目して， 

110 B 100b 

に取り掛かるだろう。プログラムではこのあたりも 
機械的に行うようにしなければならない。つまり， 
最上位1ビットだけを見て商が立つかどうかを調べ 
るところから始めることになる。 

では，実例を見てもらおう。リスト8は32ビット+ 
32ビットを計算し，商と余りを同時に32ビットで返 
す除算ルーチンだ 。 dO + dl の商が dO , 余りが dl に返 
る。除算の場合はさすがに符号を考慮する必要があ 
るので，符号付き数用の divs 32 と無符号用の divu 32 
の2つのサブルーチンが用意されている。もっとも， 
divs 32 のほうは絶対値をとってから divu 32 を呼び出 
し，あとから商と余りの符号を調節するだけの処理 
しかしていない。肝心なのは divu 32 の44〜50行のル 
ープ だ。 

このループではまず被除数 d 0 の上位から1ビッ 
卜取り出して d 2 の下位ビットに取り込む （44 〜45 
行)。 d 2 は筆算でいう“被除数のいま注目している上 
位数桁”を保持する目的で使われる。被除数の最上 
位ビットを取り出すために add 命令を使っている点 
について はいいだろう。問題は add 命令によっては 
み出したビットをどうやって d 2 に取り込むかだ。 d 2 
には直前のビットを処理したときまでの除算の余り 
が入っているから，これを1桁左シフトしたうえで， 
最下位桁にいま被除数から取り出した1ビットを繰 
り込む必要がある。 

このようなときには roxl 命令を使うのがひとつの 
手段だ。あまり使わない命令なので忘れて いるか も 
しれないが， roxl 命令はオペランド+ ccr の X ビット 
をひと続きのビット列と見なして，ぐるっと左に回 
転 （口ー テ ー I 、 ） する。 口ー テ ー トはシフトに似た操 
作だが，ビット列は輪になって いる ものとして扱わ 
図3 2進法の除算 


10 0 ) 



II 


れ，押し出されたビットは反対側から入って〈る。 
したがって， roxl 命令で d 2 を1ビットロー テートす 
れば， d 2 を1ビット左シフトするのと同時に，直前 
の加算命令で生じた繰り上がりである X ビットを最 
下位ビットに取り込むことができるわけだ。 

が，リスト8では roxl 命令の動作を addx 命令で代 
用して いる。 addx は被加数+加数 + X ビットを求め 

リスト日 DIV 32 .S 


1 

2 

$ 

d0-rdl=d0. . .dl 


3 


.xdef 

divs32 


•} 


.xdef 

divu32 


5 

拿 




6 

7 


.text 



8 

* 




9 

divs32 : 




10 


tst.1 

dl 


11 


brai. 

di vO 


12 


beq 

retn 


13 





14 


tst.1 

d0 


15 


bpl 

udiv 

本正/正 = 正•••正 

16 





17 


neg.1 

d0 

零負/正=負..•負 

18 


bsr 

udiv 


19 


neg.1 

dO 


20 


neg.1 

dl 


21 


rta 



22 





23 

div0: 

neg.1 

dl 


24 


tst.1 

d0 


25 


bpl 

divl 


26 





27 


neg.1 

dO 

♦負/負=正...負 

28 


bsr 

udiv 


29 


neg.1 

dl 


30 


rts 



31 





32 

divl： 

bsr 

udiv 

拿正/負=負••.正 

33 


neg.1 

dO 


34 


rts 



35 

本 




36 

divu32 




37 


tst.1 

dl 

♦除数が0の 

38 


beq 

retn 

* 防41は未雜 

39 





40 

udiv: 

movem.1 

d2-d3 ，- (sp) 


41 





42 


moveq.1 

#0，d2 


43 


moveq.1 

#32-1,d3 


44 

loop： 

add.l 

d0,d0 

* 被揪»の上位1ビッ 

45 


addx.1 

d2,d2 

* d2 に取り込む 

46 


cmp.1 

dl,d2 

»晰妨引けるな6 

47 


bcs 

next 

本 

48 


addq.b 

#l,d0 

* 1を立てて 

49 


sub.1 

dl,d2 

* 娥に 引く 

50 

next : 

dbra 

d3 i loop 

«32ビット分縁り返す 

51 





52 


move.1 

d2,dl 

*dl.l =余り 

53 




*d0.i =商 

54 


movem.1 

(sp) + ,d2-d3 


55 

retn : 

rts 



56 





57 


.end 




リスト9 DIV 32. S (最終版：追加部) 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


udi v ： 


udivO : 


udivl : 


cmpi.1 *$10000,dl 

bcc udivl 

divu.vr dl t d0 
bvs udiv0 


swap.w d0 
move.w d0,dl 
clr.w dO 
swap.w dO 
rts 


move.1 

moveq.1 
swap.w 


divu.w 


move.w 
swap.w 
move.w 
divu.w 


-(sp) 


move.w d2,dO 
swap.w d2 
move.w d2 


move.1 (sp)+,d2 

rta 


movera.1 d2-d3 ，- (ap) 


»_《16 ビットに 
* 収まつている場合は 
* divu を使〇 

拿オーバーフローした6やり直し 


♦dl.X = ^0 
* 

*d0.1 =商 


*65536 進2桁/1桁のつもりで 
拿 divu を2回使ろ 


»d0.1 =商 
拿 dl.l =余り 


X 68000マシン語プログラミング 









3) 0 はどんな整数でも割り 
切れるから，任意の自然数 A 
と0との最大公約数は A その 
ものだ。 

4) 正確にいうと， x も y も 
ともに0の場合は最大公約数 
は存在しないが， gcd 32 では気 
にせずに0を返す。 


リスト 10 GCD32.S 


る命令で，リスト8のように， 
addx.l d 2， d 2 

という使い方をすると2倍することによる左シフト 
と X ビットの取り込みが同時に.行われることになり， 
roxl.l # l , d 2 

と同じ結果が（少しだけ高速に）得られる。 

46〜49行が商を1桁立てる部分だ。いま注目して 
いる d 2 と除数 dl を比べてみて （46 行）， d 2 のほうが大 
きいか等しいようなら，1を立てて （48 行）， d 2 から 
dl を引く （49 行），という アル ゴリズムどおりの処理 
をしている。ここにはちょっとした小技がある。被 
除数を格納した dO の下位ビットを商の格納用に使 
っているのだ。44行で1ビット左シフトすることで 
下位ビットが空くことを確認しておこう。このもう 
被除数としては使われなくなったビットに商を収め 
る。ループが回るにつれて，被除数はどんどん左側 
に追い出され，下位から商が入り込んでくる。32ビ 
ット分処理し終わったときには被除数は完全に追い 
出されて，商に取って代わられることになる。 

ループを抜けた時点で d 2 には除数未満の被除数 
の残り，つまり，除算の余りが残る。これを仕様ど 
おり dl に返すために転送して処理完了だ。 

せっかくだから，乗算の最終版同様に，実用上の 
速度を稼ぐ小細工を加えておこう。リスト8の40行 
をリスト9でごつそり差し替えてもらいたい。この 


1 

t 





2 






3 


.xdef 

gcd32 



4 


.xref 

divu32 



5 

* 





6 


.text 




7 


.even 




8 

本 





9 

gcd32 : 





10 


movem.1 

dl-d2,-(sp) 



11 


bra 

lpent 



12 






13 

loop ： 

move.1 

dl,d2 

«d0 

=X 

14 




*dl 

=d2 = y 

15 


jsr 

divu32 

• x = 

y*q+r 

16 




*d0 

=q 

17 




*dl 

=r 

18 


move.1 

d2,d0 

本 X* 

=y, y* = r とおいて 

19 

lpent : 

tst.1 

dl 

*y = 

0 になるまで縁り返す 

20 

bne 

loop 

本 


21 






22 


movem.1 

(sp) + ,dl-d2 



23 


rts 




24 






25 


.end 





リスト 11 LCM32.S 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 


lcm32 ： 


* 小公倍数 


.xdef lcm32 
.xref gcd32 
.xref mulu32 
.xref divu32 


.text 



move.1 



exg.1 


jar 

movi 

jar 


dl-d2,-(ap) 

d0,d2 

gcd32 

d0,dl. 

divu32 

d2,dl 

mulu32 


movera.1(ap) + ,dl-d2 
rts 


.end 


修正により，除数が 16 ビットで収まる場合には，ル 
—プで筆算をまねる代わりに divu で直接計算するよ 
うになる。ここで，除数が16ビットに収まっている 
場合でも， divu には例のオーバーフローの問題が残 
っている。リスト9ではこの点を考慮し，試しに divu 
で割ってみてオーバーフローした場合は，さらに12 
行以降の32ビット+16ビットの専用ルーチンに処理 
を振り分けるようにした。14〜25行では32ビット+ 
16ビットを65536進2桁+1桁とみなし， divu 命令2 
個で目的を達している。 

|ュ-クリッドの互除法 

除算の応用として，最大公約数と最小公倍数を求 
めることを考えてみよう。最大公約数の算出にはユ 
ークリッドの互除法と呼ばれる古典的なアルゴリズ 
ムがある。また， x と y の最大公約数を， 

GCD ( x , y ) 

最小公倍数を， 

LCM ( x ， y ) 

で表すことにすると， 

LCM ( x ， y ) = x x y+GCD ( x ， y ) 
だから，最小公倍数もまたユークリッドの互除法の 
応用で求めることができる。 

ユークリッドの互除法は， 
x + y=q 余り r 

ならば， 

GCD (X ， y)=GCD (y, r ) 

という事実に基づいている。 
x — y 
y — r 

とおいて同様の操作を繰り返すと， いつかは x を y 
で割った余り r が〇になり，そのときの y が求める 
最大公約数になる 3 、 

これだけ知っていれば最大公約数と最小公倍数を 
求めるプログラムが書ける。それぞれ，リスト10， 
リスト11に実例を示しておこう。どちらのサブルー 
チンも引数を d 0, dl で渡すと結果が dO に返る。最大 
公約数を求めるサブルーチン gcd 32 では，ループを 
while 型にする必要がある点に注意しよう。そうしな 
いと ， y = 0のときに0での除算が行われてしまう。 
y = 0なら x 自身が最大公約数だから心，このとき 
はループの中身を一度も実行せずに通り抜けなけれ 
ばならない。また，最小公倍数を求める lcm 32 では， 
乗除算の順序に気をつけたい。 x と y を先に掛けて 
しまうと， LCM ( x ， y) が32ビットで収まっても 
乗算の時点で才ーバーフローする危険がある。 

|エラトステネスのふるい 

最大公約数が出てきたところで，素数についても 
触れておこう。 

一般に自然数 x が素数であるかどうかを調べるた 
めには，2から x — 1までの数で x を順に割ってみ 
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て，どの数でも割り切れないことを確認する。効率 
を気にするなら，割る数の上限を X — 1ではな〈 
までに限ってもよい。なぜなら，仮に^'よりも大き 
な数 A で割り切れるなら， 
x=Ax B 

を満たす数 B が存在することになり，そのような数 
B は斤よりも小さいからだ。 A で割り切れるなら， 
A よりも斤よりも小さな B で割ってみた時点で割 
り切れることがわかるから，処理はまで進んでこ 
ないはずだ。 

さらに効率を上げたければ，割る数を素数に限っ 
てもかまわない。ただ，^以下の素数があらかじめ 
わかっていないとどうしようもないので，素数を小 
さい順に次々に求める場合ぐらいにしかこの方法は 
使えないだろう。しかも，素数を小さい順に求める 
のが目的なら，より効率のよい方法がある。“エラト 
ステ ネスの ふるい” と呼ばれる古典的なア ルゴ リズ 
ムだ。本来の目的よりも，ベンチマーク テス トで有 
名かもしれない。 

手順は単純だ。 

1) あらかじめ2〜 n までの数を列挙しておく。 

2) 小さいほうからひとつ取り出してくる（仮に P 
と置く）。 P は素数。 

3) P の倍数である 2 P や 3 P は P で割り切れるわ 
けだから素数ではないので消す。 

4) n に達するまで2)， 3) を繰り返すと，最後には 
素数だけが残る。 

約数を求めるというのに除算を使わずにすむのが 
このアルゴリズムの賢い点だ。 P の倍数を求めると 
ころに出てくる乗算も， P を順に加算する操作に置 
き換えれば消える。 


実際のプログラムでは，“ 2 〜 n までの数を列挙す 
る”とか，“倍数を消す”とかいう漠然とした処理を 
具体化する必要があるが，ここは 2〜 n までの数に 
対応するフラグの配列を用意することで実現できる。 
このフラグは初期状態では仮に“素数の印”にして 
ぉき，素数の倍数だということがわかった時点で“素 
数ではないという印”にセットする。なぉ， 2以外 
の偶数は素数ではない <2で割れる）から，2だけ 
を特別扱いして， 3以上の奇数だけを対象に処理を 
進めたほうがフラグの配列の大きさを節約できるし， 
速度効率もよい。 

実例をリスト12に示す。リスト12は今回作成した 
プ ログラムの中では唯一，単独で アセンブル/リンク 
すると実行形式になるプログラムだ。実行すると11 
行の記号定数 N で指定した値以下の素数を16個/行 
で標準出力に書き出す。正確にいうと記号定数 N は 
フラグの配列の大きさを表し，上述のように奇数だ 
けを処理対象にしたことから，実際には N の 2 倍程 
度の数までの素数が出力される。 

ところで，リスト12ではフラグとして各1バイト 
をあてている。“素数”か“素数ではない力/’を表す 
のには1ビットあればすむから，メモリを8倍も無 
駄遣いしていることになる。余力のある人は，フラ 
グをビット単位に割り当てるよう改良してみるのも 
いいだろう。 



最後に整数レベルで平方根を求める方法を見てみ 
よう。もちろん，平方根は整数とは限らないわけだ 
が，ここでは平方根を超えない最大の整数を計算す 


リスト 12 PRIMES.S 


1 

2 

拿 

索 tt 表を出力する 


3 


.include doscal 1 .mac 

4 


.include 

const.h 


6 

FPACK 

macro 

callno 


7 


.dc .w 

callno 


8 


.endm 



9 

本 




16 

IUSING 

equ $fel8 

*d0—10 進 dl 衍文字 JIJ 

11 

N 


equ 1499 

♦ 最大値 （ =N*2 + l) 

12 

本 




13 


.text 



14 


.even 



15 

辜 




16 

ent : 




17 


lea.1 

inisp,sp 


18 





19 


pea.1 

_2str(pc) 

*2 を出力する 

20 


DOS 

_PRINT 

本 

21 





22 


moveq.1 

#2,d7 

*d7 =改行用のカウンタ 

23 





24 


raoveq.1 

#3,d2 

*d2 = i = Mfjg 

25 

26 


lea.1 
lea.1 

flags(pc),al 
flags+N,a2 

♦al= フラク • の配^先頭 
*a2 =フラグの配列末尾 

27 





28 


moveq.1 

#5,dl 

* 出力衍数 （ IUSING 用） 

• 数 ®^ 文字^変換バッファ 

29 


pea.1 

numbuf(pc) 

30 





31 

loopl : 

tst. b 

(al) 

»すでにフラクがセットされていたら 

32 


bne 

next 1 

♦ i は i 未消の数の倍数 （ ... 累败 T はない） 

33 





34 



*i は*数 


35 


lea.1 

numbuf(pc),aO 

»i を 5 衍相で 10 進出力 

36 


move.1 

d2 ,d0 

拿 

37 


FPACK 

_ IUSING 

零 

38 


DOS 

_PRINT 

» 

39 





40 


lea.1 

spcmes(pc),a0 

»16 個 出力するごとに改行する 

41 


rol.w 

#1,d7 

< 

42 


bcc 

prtspc 

% 


43 


lea. 1 

crlfms(pc) , a0 

本 

44 

prtspc : 

pea. 1 

(a0) 

本 

45 


DOS 

.PRINT 

* 

46 


addq. 丄 

#4,sp 

* 

47 





48 


novea.1 

al,a3 

*i のを消す 

49 


bra 

next2 

t 

50 

loop2 : 

st .b 

(a3) 

* 

51 

next 2: 

adda.1 

d2,a3 

t 

52 


cmpa.1 

a2, a3 

* 

53 


bcs 

loop2 

» 

54 





55 

next 1: 

addq.1 

* 2 , d 2 

本 i += 2 

56 


addq.1 

#1,al 

*(al)=i に対応するフラグ 

57 





58 

59 


cmpa.1 
bcs 

a2, al 
loopl 

• フラグの 6^1 〗末尾に逢するまで 
♦ 繰り返す 

60 





61 


pea.1 

crlfms(pc) 

*Of7 

62 


DOS 

_PRINT 

63 





64 


DOS 

_EXIT 


65 

拿 




66 

spcmes : 

.dc. b 

SPACE,0 


67 

crl fins : 

.dc. b 

CR,LF,0 


68 

_2str : 

.dc.b 

’ 2 ， ，0 


69 

* 


123456 


70 

搴 




71 


.bss 



72 


.even 



73 

* 




74 

numbuf : 

.ds.b 

10 

♦数 変酬 

»索較かどうかのフラグの 

75 

f lags : 

.ds. b 

N 

76 





77 


.stack 



78 


.even 



79 

* 




80 


.ds.1 

256 


81 

inisp ： 




82 





83 


.end 
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整数 W 細 


• xdef 
.xref 


.text 
.even 


sqrt32 

divu32 


move, 
lar.1 
beq 


dl-d4 ， - (sp) 

d0,dl 
*1.dl 
retn 


mm 


*n/2 = 0 ならば 
本 n は 0 または 1(/. 


move.1 dl,d3 
move.1 d3,d4 
move.1 dl,d3 


*d4 = 前々回の近似诵 <x, 
*d3 = 前 © の近似 


jsr 

divu32 

» = (x.+n/x,)/2 

move. 1 

d3,dl 

本 

add.l 

dO.dl 

% 

lsr.1 

#1,dl 

拿 

cmp.1 

d3,dl 

したら (x, ., = x,) 

beq 

done 

» そ才答え 

crop.1 

d4,dl 

*振動し始めた 6 (X _ ♦ i = x • 

bne 

loop 

% 

cmp.1 

d3,d4 

* X •.•と X •の小さい加 i 答え 

bcs 

done 

拿 


rta 
.end 


1 d3,dl 
1 dl,d0 
.1(ap)♦,dl-d4 


*d0 = /*n 


る。 2 通りの方法をホそう。 

第1の比較的単純な方法では，1から始めて3， 
5,……，2 n - 1までの n 個の奇数を足すと n 2 に 
なるという事実を利用する。証明はしないが， 

1 =1=I 2 

1 + 3 =4 = 2 2 

1 + 3 + 5 = 9 = 3 2 

1 + 3 + 5 + 7 =16= 4 2 

1 + 3 + 5 + 7 + 9 =25= 5 2 

をもう何段階か試してみると，納得してもらえるだ 
ろう。 

ここまできたら，あとは力技だ。開平しようする 
数から，1，3，5，……，を順に引いていって， 
負になる直前までに何回引けたかを数えると，その 
回数が求める平方根になる。プログラム例をリスト 
13に示す。リスト13のサブルーチン sqrt 32 は dO を無 


リスト 13 SQRT32.S 


1 ： 本 

败 wma 


2 ： 




3: 

4 : t 

.xdef 

sqrt32 


5: 

.text 



6 ： 

.even 



7: 本 




8: sqrt32 ： 




9 ： 

raovem.1 

dl-d2,-{sp) 


10: 




11 ： 

move.1 

d0,d2 

拿 d2 = a 

12 ： 

moveq.1 

«0 v d0 

*d0 = i 

13 ： 

raoveq.1 

#1,dl 

*dl=(2i-l) 

14 : 

bra 

next 


15 ： 




16: loop: 

addq.1 

#1 ， d0 

• i++ 

17 ： 

addq.1 

#2,dl 

*l ， 3,5 ， ... ， <2x-l> を ％^ 

18 ： next ： 

sub.1 

dl,d2 

* 引けるだけ引く 

19 ： 

bcc 

loop 

t 

20 ： 




21: ret2: 

movera.1 

(sp)+,dl-d2 


22 ： 

rts 



23 ： 




24 ： 

.end 



スト 14 SQRT32.S (別版） 


符号数と見なして，その平方根（を超えない最大の 
整数）を dO に返す。 

第2の方法は適当な近似値にじわじわと修正量を 
加えて真の値に近づけていくという方法だ。まず， 
n の平方根の近似値 x 0 を用意し， x 0 と / F の正しい 
ffl ： の差を c と置く。 

C = V n — x o 

すると， 

n = ( x 0 + c ) 2 
= x 0 2 +2 cx 0 + c 2 

だ。この c がそのまま解ければよいのだが，そのた 
めには平方根が必要でヤブへビになる。しかし c 2 は 
ほかの項よりも十分小さいと予想されるので無視す 
ると， 

n = x 0 2 + 2 cx 0 

となり，この式は簡単に解けて， 



が得られる。途中で微小項を略してしまったために 
得られた C は#と X 。の差そのものではないが， 
x 0 + c は X 。よりも / TT に近い，よりよい近彳以値た' 
そこで， 

Xj + = Xq + C 

と置いて同様の操作を繰り返すと， X ,はしだいに 
ノ瓦の真の値に近づいていき， C の絶対値が十分小 
さくなったとき， X ,に#が求まっていると考えら 
れる。 

このアルゴリズムは除算を使うので，第1の方法 
よりも遅くなりそうに見えるかもしれない。実際， 
n が小さいときには第1の方法のほうがずいぶん速 
い。しかし， n がある程度より大きくなると立場は 
逆転する。こだわりたければ， n の大小に応じて2 
つの方法を使い分けるとよいだろう。 

リスト14は第2のアルゴリズムを使って平方根を 
求める sqrt 32 の別版だ。初期近似値は非負の数なら 
いくつであってもよいのだが，ここでは開平しよう 
とする数 n の2分の1にしてある。 

この プログラムでは ループの 脱出条件が重要なポ 
イントだ〇—見，整数 レベルで 計算するのだから c 
の絶対値はやがて0になるように思える。ところ力 ？ 
実際には除算の段階での切り捨ての影響もあって， 

1， 一 1，1， . ，と振動することがある。そこ 

で，リスト14では ループの 終了判定に c は使わず， 
近似値 x , を2段階前の分まで保存して ぉいて， きっ 
ちり収束する力、振動を始めたことを確認した時点 
でループを抜けるようにした。なぉ，振動し始めた 
場合，#の真の値は2つの近似値の間にある。いま 
求めたいのは/ TT を超えない最大の整数だから，小 
さいほうを答えにすればよい。 

というあたりで次回へと続く。次回は32ビットな 
んていう レベルで はない極端に大きな数を取り扱う〇 
100どころか1000の階乗が正確にいくつかを求めら 
れるような多倍長整数演算ルーチンを作成すること 
になりそうだ。 


1234-56789012 3 456789012345678901234 5 6 7890123 
1111111111222222222233333333334444 
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THE VSERSWORKS^^ 

•BLUE WINGS 


以前，このコーナーで紹介したこともある 
(ULTIMATE MAGIC ) サークル 0 /S Soft 
ware 制作の縦スクロールシューティング 
ゲーム0グラフィック，音楽，ゲーム性と 
3拍子揃った秀作だ。 

「第47特殊戦術航空隊，通称 BLUE WINGS 。 

エキス パートパイ ロッ トばかりで構成され 
た超エリート部隊である」基本設定はなん 
となく メタルサイトに彳以ている。 

6面十び，各面ボスキャラつきという，縦 
スクロールシュー テイングとしては オー ソ 
ドックスな構成である。 

基地からの発進シーンからゲームは始ま 
る。1面の背景は海上から密林，砂漠と変 
わっていく。2面以降は，なんとなくイメ 
ージフアイト面（シムシティー面ともい 
う）， エアデュエル 面，空中要塞面，宇宙面 
を経て敵母星面，そして最終面へと至る。 
各面ともグラフィックの描き込みがよく行 
われている。画面を見ればわかるとぉり， 
グラフィックはアイレム系の影響が色濃い。 
まあ，これはよいことなのであろう。 

パワーアップシステムは特殊兵器の選択 
によるもので，味方機の落としていくカプ 
セル（一定時間で種類が変わる）をタイミ 
ングよく取っていく。 

拾ったアイテム （4 種類）のうち，レー 
ザー， ショットガン，ボムを選択する 0 最 
初から3個ずつ（最大5個）持ってぉり， 
いつでも使える状態にあるため，ゲーム再 
開時でも極端なパワーダウンはない。 

ただし，それぞれ，一定量使用するとな 
くなってしまうので，ボス以外は通常弾で 
しのいで後半に備えたほうがよい。通常弾 
も2段階パワーアップ可能だ。面白いのは 



タイトル画面だ コンフィグレーションモードもある 


通常弾のパワーアップがシールド回復 （1 
段）を兼ねていることだろう。カプセルを 
パワーアップアイテムとして使うか，シー 
ルド回復に使う かが選択できる。 

さらに2種類のカプセルを使用した複合 
パワーアップが 可能。 このゲームの 最大の 
特徴といえるだろう。これにより，全部で 
9とおりの パワーアップ 体系となる。 レー 
ザーを 重ねた スーパー レー ザーやスーパー 
ボム （B + B ) などの強力兵器は対ボ スキ 
ャラ 用，ショットガン （3 方向弾） やスプ 
レッド （S + S : 3方向誘導弾）などは後 
半面の激戦区で効果を発揮する。 

操作性は普通程度。自機の動きが多少力 
クカクしている力 5 '，ほとんど問題はない。 
ちなみに連射装置は使うだけ無駄（自動連 
射)。音楽もノリがよい。 

敵の中ボスやボスキャラがかなり固いの 
だが，撃ってもどの程度のダメージを与え 
たのかがわからないので，いまひとつ手応 
えに欠ける。その点だけが残念だった。 

気になるゲームバランスだが， HARD は 
人間のやるもんじゃないとして， EASY , 
NORMAL ではバランスもよいと思う。 

面ごとにだんだんと敵の攻撃が激化して 



さあ，発進だ！ 


いく 0特に要塞内での サーチレーザー 砲台 
と敵機の複合攻撃がきつい。それでも基本 
的に敵の弾は避けられる。バラバラと画面 
中が弾だらけになっても落ち着いていれば 
なんとか抜けられる密度である。特にボス 
キャラでは弾避けが熱い。 • 

入手方法 

このゲームを 入手希望の方は，無記名の 
郵便小為替，返信先住所を明記したタック 
シール （または紙に書いたもの）を用意し， 
封書にて連絡してほしい。なお，価格は送 
料込みで1,500円。あて先は下記まで。 
〒346埼玉県久喜市南 2-2-7 
大森方 O/S software 
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[第 16 回] 

髓生物 


寺尾響子 


響子 inCG わ〜るど 


暗闇のなかで，ぼつんとなにかガ発光し，生ま 
れていきます。 

ねずみのよ a であつて，ねすみではない…… 
□ボツトのよろであつて，□ポツトではない…… 
鳥のよ *5 であつて，鳥ではない…… 

人間のようであつて，人間ではない…… 

この世のものではない，異形のものだち。も^ひ 
とつの世界，フアンタジーワールドの住人だち。 

神と愛情 

魂のある，自分以外の生き物を造つてみだいと 
いう欲求は誰しももつているよろです。 

「仮想生物"つて，ど^思ラ7」とだずねると，だ 
いていのひとはとても興味を示して，こんなふ〇 
に答えて<れました。 

「この世には存在しない，なにか別のものをこし 
£>えて，命を吹き込んで動かしてみたい j と。 


すいぶんいろいろなひとに聞いてみまし£が， 
男のひとと女のひとでは，仮想生物を造り£いと 
い〇動機が微妙に違ラよろです。 

「自分の人生の先が見えているような，いまの環 
境とは全然違う環境を造って，自分に似だものが 
どんなふ〇になるか見てみだいよ j 

「僕は神になりだい」 

「創造主になって，世界を思いどおりに支配して 
みだいせ，俺は」 

なるほどなるほど，ポピュラスやシムシティー 
やシム アースが よ<売れるわけだ。ラん。 

女のひとは， 

「永遠に裏切られることのない，子供を育ててみ 
たい」 

「死なな<て，成長もしない，かわいいぺットが 
ほしし\なあ」 

「私だけを愛して <れる動物（人間も含まれてい 
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ますね，これは絶対に）がいだらいいのに」 
「すっと愛情を注ぐことのできる，なにかを造り 
だぃ J 2 ) 

ふむふむ，納得。自分自身が女性なので，よ< 
わかります。 

さて，私自身はどうなのかしら。 

「誰の心のなかにもある，そして自分の心のなか 
にもある，もうひとつの世界。現実の裏側に潜ん 
でいるパラレルワールドをこの目で見てみだい J 
といろところでしようか。すこし現実逃避なのか 
もしれません。 

氺氺 * 


実は，いまゲームを作っています。 

この世には存在しない3次元空間をコンピュー 
夕のなかにこしらえて，そこをさまざまなキヤラ 
クターだちが自分の意思をもって勝手に動き回っ 
ている。 

プレイヤーはひとつのキヤラクターになって， 
その世界に参加する，といろよろなゲームです。 
昔からある，飛び出す絵本のようにできればと考 
えています。 

心が休まる空間を，□クハチのなかにそっと置 
いておける。そんなゲームにしてみだいと思つて 
います。 


1 ) 仮想生物と聞くと，映画「ブレードランナー j (原作は P . K . ディックの「人造人間は電気羊の夢を見るか？」）のレプリカント 
を思い出します。 

2) 女性の仮想生物に対するイメージは，小説「ネットワークべイビー」 （ 一色伸幸•原作，田村章•著，太田出版）を読むとよ 
くわかります。これは， NHK スペシャル「ニューウェーブドラマシリ_ズ」（1990年5月 I 日放映）を小説化したものです。 
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MIRAGE System Model Stuff(2) 

Tan Akihiko 丹明彦 


モジユール拡張型 3 D CG シ;^テム 「MIRAGE System 」 の第1弾とし 
て ， Model Stuff が発売されました。モデラ重視とはいってもレイトレー 
サとしての基本機能は十分。 使い勝手はど5でしよ5か7> 



7月号で概要をお伝えした MIRAGE で 
あるが；製品の発売時期と原稿の締め切り 
i が悪いぐあい!;;ずれたために，1力月以上 
遅れての追加レビューとなってしまった。 

もうお使いになっている人も多いことだろ 

ぅ。 . . \ 

というわけで，今回は製品バージョンの 
評価ということになる。前回はレンダリン. 
グ部分抜きでのレビューだったが，今回は 
ちゃんとサンプルも作ってみた。 

* * y 本 

いきなり ii 想を述べてしまおう。 X 68000 
にもや"っと本格的に使ラ気になるレイトレ 
用モデラが出てきた！：いったところである。 
僕が Oh ! X でレイト々のレビューを始めて 
以来，もっとも複雑なサンプルを作ったと 
いう事実がそれを物語っている。 

レンダラの機能としては特に目新しいと 
ころはない。サイクロンとほとんど同レべ 
ノレといえる。 

全体として，既存の レイトレ ソフトの機 
能は踏襲したうえで，そこそこ使い勝手の 
よい環境を用意したという レベル。 海外機 
種も考慮した他機種の状況を眺め,ると，こ 
の程度はもはや当たり前ともいえる。逆に 
いえば，いままではその程度も用意されて 1 
いなかったのだ。 r 



X 68000 用 5"2 HD 2 枚組29,800円(税別） 
メデ イツ クス 003(3950)2822 


すべてはここからだ。まだまだ改良の余 
地はあるし， バグ も多いので， 早々にバー 
ジョンアップを期待したい。 

' システム構成 

MIRAGE システムは， 一度起動すると モ 
デリングから レン ダリングまでを I すべてそ 
の上で行える環境である（少な〈とも見掛 
け上は）。、独自のウインドウ (?) システム だ 
し， マルチ タスクでもない力 f , お客様気分 
で気軽に扱える。 

MIRAGE システム を起動すると ， 「MIR 
AGE シェル」 と呼ばれるウインドウが開 
く。その中には10数個のアイコンが並んで 
おり，それをクリックすることで以下のよ 
うなサブプログラム群を呼び出すよ5にな 

つている。 / 

• ロード 

モデリング ff ータを読み込む。 

暴セーブ 

モ デリング データを 保存す-る。 

•モデラ 

形状デザインを行う。 

•アト！；ビュータ 
属性デザインを行う。 

參レンダラ 

作成した データのレン ダリングを行う。 
画面の縦横比を補正するアスぺクト比は 
1.0 と 0.8 から選べる。 

•画像ピュア > 

24ビットフル方ラー画像を画面に表示す 
る。65536色に薄:とす！；き，単純に量子化す 
るものと争、イザ処理を加えるものとがある。 
•マ ップカッタ 

テクスチャ マツ ビングやパ'ンプ マツ ピン 
グなどに使う マッ プデータを切り出す。ま 
ず元画像をロードし，マノウスを使って望み 
の大きさに切り取る。 

• Z’sSTAFF ( 

ペイントツール Z’sSTAFF を MIRAGE 


から利用できる。 マへッ ビングデータを作る 
のに使える。無論， Z ’ sSTAFF がないと動作 
しない。 

• Z，sTRIPHONY 

ポリゴンモデリング ツール Z’sTRIPHO 
NY DIGITAL CRAF 丁を MIRAGE から利 
用できる。 MIRAGE のレンダラはポリゴン 
をサポートしている。モデラは簡易ポリゴ 
ンのみサポート•している。無論， Z’sTRIPH 
ONY が必要である。 

• P 0 L_TRI 

Z ’ sTRIPI - IONY でデザインしたデータ 
を MIRAGE の形式にコンバートする。あら 
かじめ TRIPHONY 個 j では「テ、キスト形式」 
でセーズしてぉく こと。 

x * * ホ ■ 

作法はメニュー形式の域を出ていない力*, 
選択肢が目の前にぶら下がっていてマウス 
でつつけばいいというのは，-楽である。 

公開仕様ではないが，このメニューは力 
スタマイズできる。定義フ.アイル ( shell , 
cmd ) が通常のテキスト形式で書いてあり， 
親切なコメントも入っているので，簡単に' 
書き換えて使える。儀は Z ’ sSTAFF の代わ 
りに Z ’ s - EX を呼び出すようにしているし， 
MATIER も組み込んでみた ( MATIER が 
発売されたら， MIRAGE でも正式サボート 
してほしい。これほどドイトレ向きのツー 
ルはない）。それと， COMMAND . X がチヤ 
イルドプロセスで呼べないの U 不便なので， 
そのエントリも.追加した。 

モテリンク部 to 構成 

CG ツールの なかで いらばんューザーと- 
の 接点が多く 重要な部分はモデリング部分 
である。上でも述べたとぉり ， MIRAGE の 
モデリング部は，形状定義 t 属性定義を行 
う部分がなぜか別になって いる。 モデラと 
アトリビュータを独立にバージョンアップ 
するためだろ j 力 ?， MIRAGE システム は形 
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状と属性の結合が希薄で，-ちょっと困った 
こともときどき起こる。 

ューザーはモデリング作業のあいだ，、モ 
デラ ik ァトリビュータを頻繁に行き来する。 
その場合いちいち MIRAGE シェルに戻る 
のは面倒だという配虛からか，モデラには 
アト_リビュータに，アトリビュータにはモ 
デラに，それぞれダイレクトに移行するア 
イコンが用意されている。タスクスイッチ 
の感覚でモデリング作業を進めることがで 
きる。 

モデリングデータをセーブ/ 口ードする 
ときはいったんシェルに戻る必要がある。 
モデラ t アトリビュータが分かれているた 
め，共通のモデリングデータをシェルが管 
理する形になっている。 

マウスオペレーションのモデラ 








O 



まず，オートバイの各構成単位に分けてモデリン 
グする。これは，それぞれを^:しにレンダリング 
したもの。モデラ画面でも入り組んだ論理演算部 
分などは形状の確認ができないので，このように 
レンダリングして形状確認を行う。エディタに論 
理演算表示がほしかったところだ 


まずはモデラから見てみよう。 

7月号でお伝えしたとおり ， MIRAGE 
Model Stuff はモデラを苐一の売りにして 
いる。プリミティブのアイコンをクリック 
する 1 と作業画面にプリミティブが出現する。 
それをマウスでつがんで移動したり回転し 
たりリサイズ(大きさを変える）したりする。 
初めに数値を入力することを強要する旧来 
のモデラとは一線を画す。とりあえず画面 
を見ながら作業が進められるのはうれしい。 
今回のサンプルも，設計図なしで作ってい 
る。さすがに寸法は狂ったが。 

Model Stuff V 使えるプリミティブは以 
下のとおり。 

•直方体 
_楕円体 
•円柱 
•円錐 

籲一葉双曲面 
_二葉双曲面(の片方） 

•ポリゴン 

_点光源 ^ 

鲁平行光源 
籲スポット光源 

レイトレのモデラとしては 
無難な線である。例によって， 

これらを積木細工の要領で組 
み立て，望みの形を作る。 

ポリゴンは平面多角形を掃 
~引する簡易ポリゴンと，、任意 
の形状を定義できるポリゴン 
が扱える。ただし，現バージ 
ョンの MIRAGE の中だけで 
-作れるのは簡易ポリゴンのみ。 
、ちゃんとしたポリゴンは， Z ’， 


sTRIPHONY でデ、ザインしておいたもの 
を前述のコンバータにかけて，モデラから 
読み込まなくてはならない。 

この機能の使い勝手ははっきりいってよ 
くない。 Z ’ sTRIPHONY 側でいう「オブジ 
ェクト」単位でしか読み込めないこと，色 
もそのオブジェクト単位でしかつけられな 
いこと （ Z ， sTRIPI - IONY ではポリゴン単位 
で色をつけられるので，1色1オブジェ.ク 
卜になるように気を使ってモデリングする 
必要がある）。読み込んだ時点で色の情報が 
消えてしまうこと，などがその理由。 

これらはサイクロ ノに同等な機能がつい 
たときにも指摘した覚えがある。コンバー 
卜の操作があまりに煩雑なので（マウスオ 
ペレ ーシ ヨンで 若千救われてはいるが）， レ 
ンダリングしてモデリングをやり直すとい 
うループ作業を成し遂げ令気力がそがれて 
しまう0色はデフオルトで元の色に近いも 
のをつけ，シーンを一括して読み込むくら 
いはしてほしかった。 

それでも，ポリゴンで自由形状が扱える 


のは魅力である0事実，サンプルに「真っ 
赤な F 1 マシン」 を作った（ではなぜここに 
写真がない.のかというと，レンダラが不調 
で，まともにレン^?''リングできなかったか 
らである）。 

もちろん論理演算もサボートしている。 

2つのプリミティブの共通部分をとったり， 
差をとったりして，もともとは単純な形の 
プリミティブで複雑な形を表現する機能で 
ぁる、。 

論理演算はグループ化の際に指定する0 
グループ化したものをさらにグループ化し 
ていくこともできるので，複雑なツリー構 
造が構成できる。ブラウザっぽいノードリ 
ストのおかげで，奥深い階層に埋もれてい 
るプリミテイブにも簡単にアクセスできる。 

光源をプリミティブと並べて書いたのに’ 
は意図がある。光源も通常のプリミ’チィブ 
と同様に，移動したり回転し.たり，さらに 
iy ルー:7。化したりもできる（もちろんマ 
ウスオペレーシヨン） 〇 これはけつこう偉大 


とかもしれない。車のへッドライトの 
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まず部品を作る 
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位置に光源を組み込んでグループ化してお 
けば，車を動かしても光源が置いていかれ 
ない0レイトレでは，これは当たり前なこ 
とでもなんでもない。 、 

グループ化した部品をライブラリとして 
活用できる。グル、ープを選択してセーブし， 
再利用できる。今回僕がオートバイをデザ 
インするにあたっては， エンジン，フロン 
トフオーク，フレーム，前後輪，ブレーキ， 
タンクなどを単位として別々にデザインし， 
ライブラリとしてセーブしておいて，最後 
に組み上げるというアプローチをとった。 

さらにフロントフオークと前輪もグループ 
(匕し（階層的にグループ化した），ハンドル 
を切るとフロント全体がつられて動くよう 
にしている。 

ライブラ1リを使っていて気になったのは， 
ライブラリをよせ集めたときに色化けする 
ことがあること。今回も，エンジンなどの 
色がいつの間にか変わっていて驚いた。シ 
ステム構成やデータ構造などを考える'とこ 
うなるのも不思議ではない力 5 '，それは開発 
者の事情。色の管理がきちんとしていない 
ことには変わりない。ライブラリをロード 
するたびに色のつけ直しというのではいた 
だけない。せっかくライブラリという便利 
な概念を導入しているのに，もったいない 
ことだ。 

編集用のコマンドとしては，移動•回転. 
拡大縮小などがある。プリミティブ A をプ 
リミティブ B 上にくっつけたり，プリミテ 
ィブ C を点 P の周りに回転させたりといっ 
た器用なコマンドも備えている。いずれに 



モデリングの様子。 ワイヤーフレームの 基本画 
面に 3 D メガネ用の赤青立体表示画面。レンダリ 
ングは再帰的にだんだん細かくなっていく 


せよ，マウスでパウンデイングボックスを 
つかんで見ながら動力/せる。形状をテキス 
トエディタ.で記述するタイプのものだと， 
回転の方向や角度をうっかり間違.えて，“ゼ 
リーの開き’’ができてしまったりするのだ 
が，残念ながら MIRAGE ではそのような楽 
しいことは起こらないン 
モデリングは基本的に3面図で行う力す，構 
図を決めるときは透視図モードに移行する。 
ここで視点と注視点と画角を決める。、レイ 
トレでは伝統的な作法だが，座標でやらな 
い Z’sTRIPHONY 的なやり方のほうが数 
字を意識しないですむ。 

透視図の（三面図もだけど）描画はとても 
遅く，忍耐が必要。又 

おまけで 3D メガネもついている。青と赤 
のセロハンが入ったあれだ。立体視アイコ 
ンをクリックすると，赤と青の線で描画す 
る。 3 D メガネをかけて見ると，なんとなく 
立体に見えないこと,もない。 

* * * 

かなり力の入ったモデラである。 

だが不満がなくもない。いや，まじ 
めに使おうとすると不満な箇所はか 
なりある。 

モデラの力を試そうと思ったら， 

「宇宙戦車」とい'うキャブシヨンがつ 
くようなサンブルを作っていてはダ 
メである。具体的な目標を.設定し， 

それがモデラで表現できるか挑戦し 
てみるのだ。今回はオートバイを作 
ってみた力 5 ',なかなかハードだった。 

そのハードさのなかには，モデラの 


仕様をもう少しなんとかすれば解消できる 
種類のハードさがある。それをここで楫摘 
しておきたい。 

まず，遅い。 ワイヤーフレーム 表示にも 
かかわらず遅い。 16MHz マシンでも十分遅 
い。 なにかするたび (こいちい ち座標計算を 
している！：いう感じの遅さである。モデル 
が複雑化してくると，たったひとつの操作 
のたびに 30 秒も 1 分も待たされることにな 
る。 PC-9801 の最新機種では ない のだ。重い 
計算はできるだけ避けたい。 D 5 GA の CAD 
とまでは いわない が，少なく t も気持ちよ 
く作業できるくらいの レスポンスは ほしい 
と Vb。 j 

また，表示がゴチヤゴチヤしてくるので 
作業がやりにく くなる。今回くらいの複雑 
さのモデルを 作っ ていると，線が重なって 
潰れるので細かい調整がしにく〈なる。画 
面描きかえにかかる時間もどんどん長くな 
っていく。オブジェクトを選択的に表示. 
編集できる機構を用意するとか，論理演算 
をモデリング中に計算して，その結果だけ 
表示するとかしてほしい。 

論理演算の結果がレンダリングするまで 
わからないというのも困りものである。モ 
デリング中にわかれば，作寒の見通しもか 
なりよくなるだろう。別に半寿密な計算はい 
らない。いいかげんでも,いいから，だいた 
いの形がわかることが大切。今回のサンプ 
ルの、 オートバイでも，時にタイヤ部分は論 
理演算に使ったプリミティブを全部ナマの 
ままで表示するので，論理演算 L た結果の 
タイヤの大きさはまったくわからなくなっ 
た。モデリングの透視図し.レンダリング 
した結果を見比べてほしい。 

正確な入''*がしづらい。マウスはアバウ 
卜な入力を許容する入力機器である。作業 
スペースの 中で，「これくらいの大きさの物 
体を作る」という用途には向いていぢ。半 
面，画面の解像度以下の移動はできない© 
で精度に限界がある。手ぶれによる誤差に 



これがアトリビュータの画面 
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も弱い。正確な入力には示向きである。拡 
大率などの数値はキーボードから指定する 
こともでき Z が ，今回はその回数が妙に多 
かった。才^•トバイのように左右対称のも 
のは，左右で一組になっているものを正確 
に動かす必要があるのだが，マウスではそ 
れは事実上不^]■能。ドット単位の手ぶれが 
出るので，使っていて ストレスが たまる。 
せめてオート/''リッドがあればよかった。 

アンドゥはない。代わりに，一時的に作 
業状態をしまい込むメモリを用意している。 
記憶アイコンをクリックして記憶し，あと 
で呼び出すことができる。ただ，アンドゥ 
は「あ，しまった」というミスに対処する 
_ことに使われるケースがほとんどで，マメ 
に，しかも手動で E 憶/'イコンを J 甲すとい 
うのはあまり一般的でない。この機能は， 
.あくまで取り返し.のつかないような大きな 
変更の前に使うものの'ようだ。 

氺 本本 

いろいろと変な作法もあるし癖も強い力 5 '， 
安定してきたら使う気になるモデラである。 

C - TRACE のようにデータをテキスト子 
ディタで書くタイプのものは，モデリング 
データのすべてをコント ロー ルできる し'， 
個人的には好きだ。が，座標や角度をそれ 
ほど気にしなくてすむ MIRAGE のモデラ 
は，わり'とサクサク書けるので，プリミテ 
ィブをたくさん使うのがぉっくうにならな 
い。これはけっこう重要なことだ。 

ァトリビュータ 

モデラ以外は，駆け足で進める。 

アトリ ビュー タは簡単にいえば色をつけ 
る ツールで ある。単体のプリミティブまた 
はグループに対して色指定ができる。 

アッビングを設定するのもアトリビュー 
夕の仕事だ。テクスチャ アッ ピンダ/バンプ 
マッビング/アト！；ビュー卞 マッ ビングの 
3種類のマッピングをサポートしている。 
使える座標系は直交座標と球座標と円筒座 
標の3種類。 

設定したアトリビュートはライブラリイ匕 
して再利用できる。 

インタフェイスは，かなり不満。今回は 
モデラのオマケ t はいえ， RGB 値くらいス 
ライドボリュームで設定させてほしい。こ 
んなものはキーボードで入れさせてはいけ 
ない。質感のプレビューもできない。.たと 
えば MATIER ではハイライトも含めた質 
感のシミュレーシヨンをやっているのだ。 

MIRAGE シリーズとして発売予定の高 
性能アトリビュータに期待しよう。 


1 レンダラ 

レンダリング機能は冒頭に書いたように 
オーソドックスなもの。 

レンダリングは比較的高速。ボクセル分 
割を使っているので破滅的に遅くなること 
はまずない。数値演算プロセッサを直接ド 
ライブする形式のレンダラではないが，そ 
のタイプも計画されているらしい。 

アンチエリアシングあり。マッピングの 
品質もよい。 

うれしいのは，画面上に最初は粗ぐ描き， 
だんだん細か（していく方式である。これ 
だと早いうちに形が確認できる。彳上からち 
まちまと1ドットずつ描いていくやり方よ 
りも精神衛生上いい。 

レンダ'リング中に ESC キーを押せば中断 
することができる。そして，後日レンダラ 
を起動すると，自動的にその続きをやって 
くれる。これももはや常識的な機能だがう 
れしい。2日間; X 68000 を連続運転するより 
は，寝ているあいだの1日8時間ずつをレ 
ンダリングにてて6日間かけるほうがム 
ダな時間が少なくてすむ。 

画像は必ずファイルに落とす（画像ファ 
イルを見て，どこからレンダリ V ダを再開 
するか継続するかを味めている ）。 MIRAGE 
は，画像に限らず，特にセーブやロードと 
いうアクションを起こさなくても，データ 
を頻繁にディスクとやりとりする0このた 
め，ハードディスクはほぼ必需品となる。 


おわりに 

モデラの操作性ば創造意欲に大き〈影響 
する。その意味で MIRAGE の発売は喜ばし 
いことである。 

しかし，表現できる形状の自由度はまだ 
まだ低い。今 nf のサンプルのオートバイは， 
たまたま構成部品が MIRAGE ； のプリミテ 
ィブで表現可能なものばかりだったので， 
誰でもオートバイと認識できる形に仕上が 
っている。が，2次曲面とフラットシェーデ 
イレグのポリゴンだけでは，トルネードは 
作れないのだ。 ， 

DSGA は ポリゴンをベースに した シス テ 
ム だが， スムーズ シェー デ イングをサポー：； 
卜している（それもかなり初期かち）。その- 
ため形状の表現力はとても高く，工夫すれ 
ば レイ， ト レーシングに 迫る質感も表現で き 
るとあって，多くの フアンを 獲得している 。 j 
もちろん描画の速さも大きな魅力である。 

いつかはレイトレーシングで自由曲面を，, 
扱ってみたい。ベジェでもスプラインでも> 
いいの だが，乗用車や レー シングカーのデ^ 
ザインをやってみたくなるようなプリミテ 
ィブがひとつほしいのである。 

ともあれ，場所はできた。とりあえずは， 
安，.匕、して使えるようにしな!^とならないだ I 
ろうが，それを終えたら新機軸に挑戦して 
いただきたいものだ。そして MIRAGE には 
それをやってくれそうな雰囲気がある。 

MIRAGE System Model Stuff (2) J 1 











数値演算高速化の世界 


ここには，現在 X 68000 で扱うことの 
できる数値演算を使って，それぞれ 
演算高速化へのァブローチをかけた 
結果が集結している 〇 徹底したモデ 
ル化とコーディングによって実現し 
た2次元メタボール， AFPP を使った 
3 D グラフィックなどで得られた成 
果は大きいはずだ。そして，いうま 
でもなくディスプレイには演算結果 
しか現れない。画面の陰には ， CPU 
や I / O ポートに接続された AFPP , 数 
値演算プロセッザががんばっている 
ことを忘れないでいてほしい。 


Q3 


互いに影響するように2個のメタポールを配置 



画面中央にメタボール2個を置き，中心を負のメタボールで 
削ったもの（写真右)。しきい値枠はこんな感じ（写真左） 



基本の FL 0 AT 2. X を使ってみたもの（写真上）と 
実数演算部に AFPP を使用したもの（写真中）さら 
にラインを高速版に変えて AFPP を使ったもの（写 
真下）の速度比較 



画面は地味だが2枚の数値演算プロセッサボード 
ががんばっている惑星運航シミュレーション（写 
真左）。最小2乗法によって求めた1次式のグラフ 
(写真右） 
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[特集] 


数値演算の熱い逆襲 



いうまでもなく現在のコンピュータは，ソフトウェアとハードウェアで構成 
されている。何かをやるためには，ハードウェア，ソフトウェアの2方向か 
らアプローチをかけることができる。 

ソフトウェアを改良することによって高速化を図る。 

これは，プログラマの技術しだいでどうにでもなるはず。最適なアルゴリズ 
ムを導き出し，最適なコーディングをする。重い，遅い，不可能だ，こんな 
ことばかり嘆いていても進歩はない。与えられたシステム以上のものを ソフ 
トウヱアで実現する，不可能を可能にする精神だ。 . 

特定のハードウェアを付加することで高速化を図る。 

ソフトウ；!:アとはまた違うアプローチであるし，別段非難する理由もない正 
当な方法である。市販されたボードを差すだけで使い勝手がよくなる，ユー 
ザーからしてみればこれほど魅力的な言葉は存在しない。 

しかし，それらのハードウヱアもフルに活用するとなると，ソフトウェアの 
存在を忘れることができない。ハードウェアもソフトウェアからのアブロー 
チがあって，初めて最高のパフオーマンスを見せることができる。たとえ単 
一の命令が高速化されても，全体の処理がもたついては無意味なのである。 
そして，高速化をするためには避けて通れない数値演算。夕ーゲットが複雑 
になればなるほど，深く，重くのしかかってくる非常に厄介なものだ。 
これからも，どんどん複雑な事象を扱わなくてはならない場合がやってくる。 
現在でも，たかが数値演算といっていられないところまできているかもしれ 
ない。そのようなときに，私たちユーザーはどのように対処すればいいのだ 
ろうか。数値演算の熱い逆襲はとどまることを知らないだろう。 


夏休みの最小2乗法 


疑似メタ ボールで 遊ぶ 


•御木徳高74 
丹明彦76 
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[特集]数値演算の熱い逆襲 



微積分をシミュレートする 

夏休みの最小2乗法 

Miki Tokutaka 御木徳高 

まず， X - BASIC を使って計簿をさせてみます。テーマは最小2乗法と積分の 
シミュレート。ちょっとだけ数学の知識を要求しますが，手軽に入力できますので 
データを変えながら遊んでみてください。 


最小2乗法 

最小2乗法！:は，1次式で表せる，また 
は近似できる事象からその1次式を求める 
方法のひとつで，理屈では「すべてのデー 
夕との差の2乗の和が最小になるような1 
次式の求め方」となります。なぜ2乗かと 
いうと，2乗すれば突出したデータがなく 
なり，誤差などが緩和できるからです。3 
乗，4乗すればもっといいのですが，それ 
にかかる時間，手間に対して精度があまり 
上がらないという問題があります。 

以上，だいたいこんなもんだと思っても 
らえれば大丈夫です。で，どうやって求め 
るか考えていきましよう。ところで最近の 
ポケコンにはこの機能が付いているものも 
あり，データをばんぽんを入れるだけで求 
まってしまいますが，悲しいかな，ボンビ 
一な 私はポケコンが買えない。「それなら作 
ってやるわい！」というわけです。 

解いてみる 

まず，式を立ててみましよう。求めたい 
1次式を y = ax + b とし，データを ( xi , yi )， 

( x 2 , y 2 ),( x 3 , y 3 ),. ， ( x n , y n ) とします。ま 

ず，直線と点との距離ですが正確には図1 

図1点と直線の距離 



での h や1 2 が正しい距離です。しかし，相手 
が直線であれば，垂直でない限り1,と1 2 の比 
は1广と1/の比に等しいことになります。最 
小2乗法ではとりあえずそれぞれのデータ 
t の距離の比が正しければいいので，これ 
らの y 軸方向の差を使うことにします。 i = 
1, 2, 3, “- n とすると，それぞれのデータ 
と直線との差は ( a X | + b — y ,) で表されます。 
つまり，これらの2乗の和， 


a 2 xi + bn —2 yi = 0 . ③ 

これで a , b の関係式が2つ出たので，②③ 
を連立して解きます。 

③より， 



④を②に代入すると， 


S = S(axi+b-y[) * 1 2 3 4 

が最小となるように a , b を求めればいいわ 
けです。ではこの式を展開していきす。 

S = S(axi+b-yi) 2 

= S(a 2 xf+2abx | — 2axiy,+b 2 - 2byi + y?) 
= a 2 2xf + 2abSxi—2a2xiyi 

-b 2 n-2bSyi+Syf . ① 

ここで①を a で偏微分します。簡単にい 
うと，偏微分とは a 以外はすべて定数とし 
て微分するようなもの！:考えてください。 
-?f-= 2aSxf + 2bSxi—2Sxiyi 

aa i=i i=i i=i 

= aSxf + b 2 xi—Sxiyi 
①式で， a 2 の係数 2 xm 正数であるから， 


喂パ + +か杂「含(杂|) 2 -|^ 


a {( Ex ,)- n |] xf } = Sx 1 2 y ,- n |] 


xiyi 


S x,y £M x, ^L 

nSxf -( Sxi ) 2 


•⑤ 


⑤を④に代入すると， 

n{n2xi 2 -(Sxi) 2 } 

n n n n 

2 xi (nSxiyi-SxiEy,) 

n{n2x 卜 (Sxi) 2 } 

i=i i=i 

2 xf 2 yi — 2 xi 2 xiyi 
Ij— i=i »=i 1=11=1 " 

n2xf — (Sxi) 2 
1=1 1=1 


⑧ 


夢 = 0 

3a 

とすれば S が最小となる a の値が求まりま 
す。 

aSxf+bSxj-Sxiy^ 0 . ② 

同様に②を b で偏微分して， 

|f=2a | |]x l +2bn-2 i 2y, 

n n 

= a2xi+bn —2yi 
1=1 1=1 

①式で， y 2 の係数 n は正数だから， 


となります。 

以上の式の展開を行って最終的に得られ 
た⑤⑧式からわかるように， 

1) 

2) Sxi 

3) 2 xiyi 

4) | y , 

を得ればいいことになります。プログラム 
ではそれぞれ， sx 2， sx ， sxy , sy という変 
数名を使っています。また，1次式を求め 
るだけでは味気ないので，グラフ表示して 
みました0リスト1にはサンプル データが 
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入っていますので，自分でデータを入力し 
たいなら，先頭のデータ数〜目盛り幅まで 
を適当に入力してください。 

A ) データ 数 

データの個数を変数 n に与える。 

B ) データ 

x ， y データをそれぞれ配列変数 x ， y に 
与える。データ数によって配列のサイズの 
変更を忘れないように。 

C ) 表示範囲 

グラフ表示する xy 方向の範囲を与える 。 xy 
方叫それぞれ xmin 〜 xmax * ymin 〜 ymax 
の囲となる。 

D ) 目盛り幅 

xy 軸の1目盛りの大きさをそれぞれ dx ， 
dy に与える。必ず軸端に目盛りがくるよう 
に設定すること。要するに dx を xmin と xm 
ax の公約数にする。 dy についても同じ。 

積分 

それではもうひとつ，今度は積分につい 
て考えてみましよう。いま， 
rb 


S : 


f ( x)dx 


という式があったとします。この式は a 〜 b 
までの間を等間隔に薄くスライスして，そ 
れぞれの薄板を長方形とみなして面積を計 
算しようということです。いや，面積とい 
うのは語弊があるかもしれません。マイナ 
スの値を取ることもありますし，プラスと 
マイナスで打ち消し合ってしまいますから。 
とにかく，上の式は図2のように a = x 0 , 
b = x n として a 〜 b までを等分したとき，次 
式で表されます。 
b-af 


b = nm - 


■ k ? o f(Xk) 


これをシミュレートしてみましよう〇 n 

を無限大にするのは不可能ですので，徐々 


ia /* 

20 /* 法 

30 /♦ データ数 . データ•表示 C 囲•目盛りを入力して実行 
40 /* 

50 /* データ » 

60 int n=6 

70 /» データ i ここの变更を忘れないように 

80 dim float x(6- 1 ) = (-2 , -1 ,0,1,2,3 ) 

90 dim float y(6-1)={-3,-1,0,2,5,6) 


/* 

flo 


2, xmax=. 
#,dy=0. : 


>»yrain=- 


130 float dx=0.5#, 

M0 /* ここまで入力 
150 float a,b 
160 float ax.sy.sxy.axsy 
170 int x0,xl,y0,yl 
180 int lxl,1x2,lyl,ly2 
190 screen 2,0,1,1 
200 console ,.0 
210 /*1 目盛りが 10_ 

220 /» 逍当に軸の始点 • 

230 xl=7O0»dx ハ xroax. 

240 xOs(768-x1♦(xmax-xmin)/dx) / 

250 yl=5O0*dy/(ymax-ymin)/lO*10 

(5 12-yl*(ymax-ymin)/dy)/2-ym 


260 y0= 

270 /* XM 
280lineUO+xmin 
290 for i=0 to (: 
300 
310 


*xl/dx,512-y0,x 
/dx 


xmin) 

X 軸目盛り 
line(x04i*xl+xniin»xl/i 


xmin*xl/dx 
*yl/dy 
本 xl/dx,5 


に大きくしていき，ある程度の精度が出た 
ら終了ということにしましょう。ここでは 
n は2から4, 8，16……と1ステップごと 
に倍にしていくことにします。また，11分 
割したときの値を S n t したとき， 

£n = |^5n — Sn/ 2 1 

が指定した数値以下になったときに終了す 
ることにします。本来なら， n が大きくな 
るたびにむが0に近づくこ！：を証明する必 
要があるのでしょう力 5 ' (いや， ひょっとし 
たら証明できないかもしれない），たぶん大 
丈夫だろうという楽観的な考えにょり省略 
しました。 

また，最終的な値は S = S n + なということ 
にしました。これも私のカンにしかすぎま 
せんが，いくつかの式で試したところ，だ 
いたい正解に近いものになりましたので， 
恐らく正しいのでしょう（どなたか証明し 
てもらえませんか）。 

リスト2にはリスト1と同様にサンプル 
データが入っていますので，各自で計算す 
る場合はプログラムを書き換えてください0 
先頭の積分範囲，終了条件，及び390行の披 
積分式です。 

A ) 積分範囲 

lower に下限を upper に上限を与える。 

図2積分 


Y 



320 next 
330/* Y 拳 


40 line(x0, 
50 for i=0 


B ) 終了条件 

e n の最大値を与える0 £ n がこの値より小 
さくなったとき終了する。だいたいの値で 
いいときは 0.1 〜0.01，精度を出したいとき 
は0.001〜0.0001程度。あまり小さな値を入 
れて30ステップを超えると，分割数が int 型 
変数であるために 才ーバーフローす るので 
注意。 

C ) 被積分式 

積分したい式を y = f ( x ) の形式で与える。 

こうすれば積分不可能な関数も近似値です 
が積分できますし，計算結果の真偽を確か 
めることもできますからね。 

以上，夏休みの課題開発支援記事みたい 
になってしまいました。リストは短いので’ 
適当なデータを作って遊んでみてください。 


リスト2 
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410 


/* «分 

/* tt 分範囲•柊了条件•披 M 式を入力して実行 

/* 

/* mm 

float lower=0 , upper=3.1415926535898# 

/♦ 終了条件 

float e=0. 0001# 

/* 

float sO,s1 
int i,j 
float 1,dx 
1=upper-lower 

j =l 

integral() 
print 

/* メイン n ^ -プ 
while abs(sl-s0)>e 
integral() 
print "e=";sl-s0 
endwhile 

print "S=" ； 2*sl-s0 
end 

/* 加 》 部分 
func integral() 
j = j*2 
dx=l/j 

print "dx=" ； dx, 

S0 = 8l 
s 1=0 

for i=0 to j-1 
sl=sl+f(lower+dx*i)*dx 
next 

print "S"; j;" = " ； sl f 
endfunc 
/* 披抽分式 

func float f(x ； float) 
float y 
y=cos()£) 
return!y) 


/dy, 
/dy 


ax-ymin)/d 

-ゲ0-1零ァ1-ゲ1111|1零：/1/(1ゲ,\0 + 3,512-ヅ0-1本> > 1-ゲ11|1 


for i=0 to n-1 
/« データブロット 

pset(x(i)*xl/dx+x0+0.5#,5 


20 next 
30 /* シグマの計算 
40 for i=0 to n-1 
50 sx=sx+x(i) 

60 ay= 8 y+y(i) 

70 axy=sxy+x(i)*y(i) 
80 sx2=sx2+x(i)*x(i) 

90 


y(i) *yl/dx-y 


next 

sxay 


y=sx 
:: BX 拿 


拿 sy 


-s2x/n) 


20 a=(axy-axsy/n)/{a 
30 b=(sy-a*sx)/n 
540 print "y=.. ;a; _.x+" ;b 
550 /*1 次直線表示 
560lxl=xmin*xl/dx+x0+O.5# 

570 lx2=xraax*xl/dx+x0+0.5« 

580lyl=512-(a*xmin+b)«yl/dy-yO+0.5 
590ly2=512-(a*xmax+b)*yl/dy-y0+0.5 
600Iine(lxl,lyl,lx2,ly2,8) 


,515-yO,x0+i*xl 


>cl/dx,509-y0 ， 


特集夏休みの最小 2 乗法 75 
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モデル化による演算高速化 

疑似メタ ボールで 遊ぶ 

Tan Akihiko 丹明彦 

真面目に取り組むと，とてつもない針算置があるメタボール。そこで，高速 
化のためにアルゴリズムを変え，モデル化によって見えにくい要索を切り落 
とす。目指すは，レスポンスのよい2次元メタボールエディタだ。 


曲線を気持ちよく操りたい。 ドローツー 
ル 「CANVAS PRO -68 K 」 はベジエ曲線を 
うねうねと操る快感を教えてくれた。内部 
ではこ難しい数式を使って計算されている 
曲線なのだが，そんなことは気にしない。 
制御点をつかんで引きずり回すだけで，滑 
らかで気持ちのよい曲線が手に入る。 

今回は「2次元メタボール」をでっちあ 
げ，ベジエ曲線とは違う操作性をもった自 
由曲線を扱うためのアプローチを示そう。 
さらに今回は，第1目標として気持ちよい 
操作を巨け旨した。 

メタボールとは 

曲線を3次元に持ち込むと，それは曲面 
t 呼ばれる。しかしまだ曲面を気持ちよく 
操れる ツールに はお目にかかったことがな 
い。それどころか自由曲面を扱えるソフト 
そのものが少ない。 

自由曲面といえそうなものは，レイトレ 
ーシングソフト 「 C - TRACE +」 に搭載され 
たメタボール。変形する球，という名前の 
由来をもつメタボールは，互いに近づける 
t 変形するという特殊な性質をもっている。 

メタ ボールの 原理は面白い。中心部が濃 
く周辺部が薄いという濃度分布をもったメ 
タ ボールを 空間に複数配置す る。 それぞれ 
の メタ ボールの 濃度を合計した濃度が， あ 
らかじめ定められたしきい値を超えて いる 
部分が目に見える。 

たとえば2つのメタボールを近づけると， 
近づいて いる 部分が変形•融合し，ヒョウ 
タン形になる。理由は，メタボールの周囲 
に見えないけれども濃度分布が存在してい 
て，別のメタボールが近づいたときに濃度 
の合計がしきい値を超えるためである。 

さらに，メタボールの中には「正のメタ 
ボール」と「負のメタボール」が存在する。 
「負 j t は「正の数•負の数 j の「負」，マイ 
ナスのこ！:。通常（正）のメタボールのそば 


に負のメタボールを置くと，正のメタボー 
ルはくぼんだり穴があいたりする。もとも 
と正のメタボールがもっていた濃度を負の 
メタボールが打ち消し，その結果濃度の合 
計がしきい値を下回るためである。 

正•負のメタボールを組み合わせると， 
多彩な造形が可能になる。どちらかといえ 
ば，乗用車などのもっている幾何学的な曲 
面よりも，生物のもっているようないわゆ 
る「有機的な」曲面を得意とする。 

気持ちよさとはなにか 

メタ ボールに も欠点はある。 

まず制御が難しい。理屈ではどんな曲面 
の表現も可能とはいうものの，楕円体状の 
濃度分布の合計で決まる最終的な形状は， 
非常に予測しづらいものである。変な形を 
作るのは簡単だが，狙いどおりの形を作る 
のは難しい。 

これは，メタ ボールが まったく新しい種 
類の図形であることを考えれば無理のない 
ことである。しかし，難しいから使わない 
というのは ナンセンス。 我々は子供の頃か 
ら積み木，粘土，紙，木という具合に，次 
次と新しい材料を手に入れて造形法をマス 
ターして きた。メタ ボールも その延長にす 
ぎない。 

いま，メタボールという新しい材料を手 
に入れたのだから，制御の仕方を体得すれ 
ばいいだけのこと。試行鞾誤してコツを身 
に着ける以外に道はない。 

だが，その試行錯誤を妨げるものがある。 
それは計算の重さだ。ちょっと いじる たび 
に何分も侍たされていたのでは，やり直し 
をする気力を失ってしまうものだ。 

とりわけメタ ボールの ように自由自在の 
変形をするものを気持ちよく操作するとい 
うことは，ちょっとした操作の結果をすぐ 
に見られるようなレスポンスのよ いモ デリ 
ング環境でのみ実現されるのである。 


いかにサボるか 

レスポンスの よい，ということは 結局の 
ところ，処理が速い，ということと等価で 
ある。処理速度を上げるためには いくつか 
の戦略がある。 

まず，そもそも速い計算機を使うという 
「力は正義」的なやり方。これはシリーズを 
通じて，ほとんど単ーアーキテクチャの 
X 68000 においては意味のない話である。 

ハードウヱアが遅いならソフトウェアで 
カバーする。これなら安上がりだし，将来 
ハードが速くなったときには，ものすごく 
速い処理が実現するこ！：も期待できる（そ 
ういう意味で安易な高速ハードの投入は慎 
むべきだとも思う）。 

ソフトウェアによる高速化 1 を，ここでは 
2つに分類したい。ひとつはアルゴリズム 
による高速化，もうひとつはコーディング 
による高速化。 

僕はアルゴリズムで速くするほうが大切 
だと思っている。アルゴリズムを工夫せず 
にいくら最適なコードを組んでも真に速く 
はならないことが多い。速いアルゴリズム 
を見つけて初めて最適化の努力をするとい 
うのが効率的である。 

典型的な例でいえば高速フーリェ変換 
( FFT )。 フーリェ変換の性質を上手に利用 
して劇的に速〈するアルゴリズムである。 

これが真面目な フー リ ェ 変換だ！:，たとえ 
理論上は最適なコードを組んだところで， 
FFT のパフ オー マンス にはとうていかな 
わない。 

今回は，2次元の疑似メタボールをプログ 
ラムしたわけだが，真面目に計算すること 
は最初からあきらめ，少なくとも見かけは 
同等の処理をできるだけ効率よく実現する 
ことを目標とする。ある程度精度を犠牲に 
し，快適とはいえないまでもそこそこのレ 
スポンスを 実現したつもりだ。 
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2 次元メタボール 

メタボールというと3次元を意味するの 
で，メタサークルなどという造語をしよう 
か！：も思ったが，「2次元メタボール」と頭 
に2次元をつけることでメタボールのまま 
通すことにした。 

2次元メタボールの概念を図1に示す。 
通常 （3 次元）のメタボールは，これをその 
まま3次元に拡張したものと思えばいいが, 
2次元のほうがイメージがつかみやすい。 

メタボールを決めるパラメータは， 


• 中心座標 （ X ， y) 

. 半径 r 

.符号を含めた中心部の濃度 Umax 

•しきい値 t 


などである。 xy 平面上に2次元メタボール 
を配置し， z 軸方向に濃度 （ u ) を取って3 
次元のグラフを描く。正のメタボールなら 
濃度分布は山のような形になり，負のメタ 
ボールなら穴ができる。 

平面 u = t で切った断面がメタボールの形 
となる（図2〉。正のメタボールどうしが融 
合してヒヨウタン形になったり，正と負の 
メタボールが相殺して三日月形になる様子 
がわかる。 

これはあくまで概念。実際に図形として 
メタボールを描こうとする場合， 

(濃度の総和） =( しきい値） 

なる方程式を立てて解く必要がある。この 
方程式の解は閉曲線となる （ 3次元の場合 
は閉曲面）。レイトレーシングで使われてい 
るメタボールの場合，この曲面と視線との 
交点を求めようというのだから，けっこう 
計算量は多い。ちなみに，レイトレーシン 
ダのプリミティブである球と直線の交点の 
ように，2次方程式の解の公式が適用でき 
る問題ではない。 

モデル化 

ほしいのはレスポンスである。とりあえ 
ず精度は必要ではない。今回は方程式を解 
く！:いうアヲローチをあっさり放棄し，代 
案として，濃度分布を調べる領域を全部配 
列にもっという物量作戦に出るこ t にした。 
画面に表示するのだから，配列の要素数は 
画面のドット数 (512 X 512) もあればいい。 
表示は256色モードだ。記録する濃度も16ビ 
ット整数で十分。もう割り切りまくってい 
る。 

配列は用意した。ここにメタボールを直 
接書き込むのだ。正のメタボールなら濃度 


の値を足し，負のメタボールなら値を引く。 
その計算結果を常に画面に反映させていれ 
ば，そこそこレスポンスのいい2次元メタ 
エデイタの出来上がりだ。もちろん，画面 
にアクセスするのは値の更新された部分だ 
けだ。いちいち全画面を描き換えるなんて 
真似はしない。 

さて，配列に書き込めばいいことはわか 
った。次はどう書き込むかだ。 

正直にやるなら，中心座標と半径から濃 
度を求めて1ドットずつ書き込む。よさそ 
うに思える。だがだめだ。なぜか。計算量 
が多いのだ。 

図1と図2からもわかるのだが，ひとつ 
のメタボールの影響する範囲はその中心か 

図1 2次元メタボール 

⑴正のメタ ボール 


ら半径 r の円内のみである。濃度分布は中 
心からの距離の関数。中心部をピーク！：し 
てなだらかな曲線を描き，境界部では0に 
なっている。ひとつのメタボールの計算は， 
その勢力範囲の中だけで行えばよい。 

ここまではいい。たとえば半径100ドット 
のメタボールを書き込むことを考えよう。 
勢力範囲内の各ドットについて，中心から 
の距離を求め（平方根の計算が必要)，それ 
を使って濃度を計算し，値を足す。これを 
100 X 100 X 3. 14=31400回も繰り返すのか？ 
だめだだめだ。 

物量作戦その2。濃度分布も配列にもつ 
のだ。先ほどもいったように，メタボール 
の勢力範囲は限られている。それを包み込 

(2) 負のメタ ポール 



図2 メタボールを干渉させてしきい値で切断する 
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む長方形の中の濃度分布をまるごとテープ 
ルに持つ。2次元配列にすることで，中心か 
らの距離を求める必要はなくなる。話はも 
はや単純ループ+加減算に落ちた。 

でもメタボールの半径は一定ではない。 
半径200のもあれば半径20のもある。その全 
部に対してテーブルをもつのか？ いくら 
物量作戦万歳といっても，非現実的すぎは 
しないか？ 

ここで拡大，縮小を使うのだ。頭は使い 
よう。リアルタイム拡大，縮小は，アクシ 
ヨンゲームだけの技術じやない。ほしいの 
がレスポンスであれば，ゲーム向けの技術 
も使おうではないか。 

適当な大きさの，そう 256 X 256 くらいの 
濃度分布テーブルをひとつ用意しておき， 
それを望みの大きさに拡大，縮小して加減 
算する。完璧だ。 

要約しよう。 

1) 濃度領域を画面サイズぶんの2次元配 
列で表現する。 

2) 濃度分布関数は適当な大きさの2次元 
配列でもつ。 

3) 拡大，縮小した⑵を⑴に書き込み， 

加減算の結果を画面に反映する。 

あとはマウス関係の ユーザー インタフエ 
イスを入れて仕上げれば完成だ。 

テーブル方式の副作用 

今回はテーブルをしつこく活用すること 
で速度向上を図っている。テーブルが速い 
のは，重い計算をすべて前処理として初期 
化ルーチンに押しつけているからだ。その 
ためプログラムの立ち上がりは遅くなるが, 
本処理はテーブルを参照するだけですむ。 

そして，テーブル方式の欠点はメモリを 
食うこと。このプログラムにしても，メイ 
ンメモリ 1 M バイトではたぶん動かない。も 
つとも gcc でこのプログラムをコンパイル 
できるくらいの環境を持っている人であれ 
ば心配いらない。 

濃度分布関数をまるごとテーブルでもっ 
たこ！：により，面白い副作用が生じた。テ 
ーブル化によって，いろいろな濃度分布関 
数を使うことができるのだ(図3)。もとも 
とメタボールの分布関数は釣り鐘のような 
形である。でもプログ'ラム上はそれにこた 1 
わることはなくて，円錐形の分布関数を作 
ってもプログラムは動いてくれる。それど 
ころか，円にこだわる必要すらない。今回 
は冗談で四角形も入れてみた。メタボック 
スとでも命名するかな。まあ使いものには 
ならなかったが。 


濃度分布関数テーブルを作成する手続き 
は関数 makeU () の中にあるのだが，その正 
体は256色モードで画面に描いた図形をグ 
ラフィック取り込みを行う get () 関数で取 
り込んでいるというだけのものである。だ 
から，濃度分布関数を描く手続きを差し換 
えれば，丸だろうが四角だろうが，取り込 
み画像だろうが OK なのである。 

メタボールらしく使えそうな濃度分布関 
数は，プログラムリスト中でコメントアウ 
卜していない三角関数を使ったものである。 
本来ならメタボールの濃度分布関数は，正 
式なもの（区間定義された多項式）があるが， 
三角関数でも十分いい振る舞いをしている 
のでよしとした。外側から半径を変えなが 
ら円を描き，その半径での濃度に対応する 
色でペイントするという，なんとも原始的 
な方法で描いている。 

使い方 

このプログラムを使うには，マウスとジ 
ョイスティックが必要だ。リアルタイムキ 
一入力が面倒だったもんで，ついつい“< 
stick . h > ”をインクルードして手軽なジョ 
イステイックに走ってしまった . 。 

まず起動する。初期設定の処理がしばら 
く続いたあと，真っ青な背景にマウスカー 
ソルと左上に中心部が赤く周辺部が青い円 
が出てくる。 これが2次元メタボールだ。 

画面右手には，色相が青から赤にカラフ 
ルに変化する帯が見える0このカラーパ'一 
は，濃度を示す目安で，青が濃度0(以下)， 
赤が濃度255 (以上）を表している。 

マウスカーソルを動かしてみよう。やや 
遅れてメタボールがついてくるだろう。適 
当なところでマウスの左ボタンを押してみ 
よう。そのあとマウスカーソルを脇に動か 

図3さまざまな濃度分布 


すと，ボタンを押したところにメタボール 
が残っているはずだ。その近くにマウスカ 
ーソルを移動して，もう一度マウスの左ボ 
タンを押してみよう。マウスカーソルを脇 
にどけると， 2つのメタボールが重なり合 
い，中心部の赤い部分がヒョウタン形にな 
っているはずだ。 

今度は画面左上へマウスカーソルを持っ 
ていってマウス右ボタンを押してみよう。 
メタボールの大きさが変わる。そのあとマ 
ウスカーソルを動かすと，大きさの変わっ 
たメタボールがマウスカーソルについてく 
ることだろう。 

ジョイスティックの A ボタンを押すと， 
メタボールは一転して負のメタボールにな 
る。メタボールが消えたように見えるはず 
だ0その状態で，マウスカーソルをそれま 
でにメタボールを置いたところの近くに持 
ってい〈と，その部分の色が青っぽくなる。 
これが負のメタボールの効果だ。そこでマ 
ウス左ボタンを押すと，そこに負のメタボ 
ールが固定される。もう一度ジョイスティ 
ックの A ボタンを押すと，正のメタボール 
に戻る。 

適当にマウスカーソルを動かしてボタン 
を押していれば，だいたいの使い方はわか 
る0—応，以下にリファレンスを示す。特 
にジョイステ イツ クの使い方はリフアレン 
スがないとわからないだろう。 

•マウスカーソル移動 
メタポールを移動する。 

•マウス左ボタン 

メタ ボールを 固定する。 

•マウス右ボタン 

メタ ボールの 大きさを変える。 

•マウス右左ボタン 
終了する。 

•ジョイステイック A ボタン 
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メタ ボールの 正負を反転する。 
•ジョイスティック B ボタン 

しきい値表示モードを切り替える。 
•ジョイスティック上下 
しきい値を増減する。 

籲ジョイスティック左右 

しきい値表示の幅を増減する。 

しきい値表示モードというのは，メタボ 
ールの最終出力をコントロールするのに使 
う。3モードあって， B ボタンを押すごと 
にサイタリックに切り替わる。 

•モード0 

通常のカラーバー。メタボールも青から 
赤の色相グラデーションのみの表示になる。 

•モード1 

カラーバーおよびメタボールの濃度分布 
のしきい値付近が白くなる。ほかはモード 
0と同じ。 

參モード2 

カラーパ'_およびメタボールの，しきい 
値未満の部分は黒に，しきい値以上の部分 
は白になる。 

このうち，モード2の状態がメタボール 
の最終出力（実際にレンダリングしたとき 
の形）ということになる。要するにモード0 
~2といっても，パレットを変えているだ 
けのことだ。 

ジョィスティック上下でしきい値を増減 
するというのは簡単に理解できるこ t t 思 
う。しきい値表示幅というのは，少しわか 
りに〈いかもしれない。これは，画面の解 
像度が粗いとしきい値に対応するパレット 
だけを白に変えても，ちゃんと輪郭が表示 
されない恐れがあるのだ。つまり，パレッ 
卜を変える範囲を広げられるようにした， 
というだけのことである c 
正確を期すのであれば，パレット変更な 
どという姑息な手段に頼らずに，ちゃんと 
しきい値による輪郭線を抽出することが必 
要なのだが，例によってレスポンスへの要 
求からこのような形に落ち着いている。 

これが今回のプ a グラムの使い方のすべ 
てだ。ひとつ問題を出そう。これを使って 
ドーナツ形を描いてみてほしい。正負1個 
ずつのメタボールで可能だ。 

プログラム解説 

コメントを豊富に入れたので，リストを 
読んだほうが早いが，キモの部分を少々。 

プログラムの実行中，メタボールはマウ 
スカーソルに追従して動〈が，あれは毎回 
仮想空間（画面と同じ大きさで濃度分布を 
格納する作業領域）に書き込み，消してい 


る。それをある程度の速度で動作させるた 
めに，テーブルを多用している。テーブル 
を利用する大物としては，仮想空間とメタ 
ボール濃度分布関数がある。さらにい〈つ 
か「こんな t ころにまで……」といいたく 
なるようなテーブルの使い方をしている。 

ひとつは，リアルタイム拡大，縮小のた 
めのテーブル（関数 makeResizeTable () で 
作成)。 256 X 256 ドットの濃度関数を wxh 
ドットに披大，縮小するのに毎回 Bresen 
ham のアルゴリズムを使っていたのでは， 
いかに整数だけを使う速い アル ゴリズムだ 
とはいえ，処理速度の足を引っ張る。 

ここでは， w と h が t もに画面サイズ，つ 
まり512を超えないことを根拠に ， Bresen 
ham アルゴリズムの計算結果を格納するテ 
—ブルを用意している。そして，拡大，縮小 
をやっている部分が単純な2重ループとテ 
—ブル参照になっていることに注目してほ 
しい（関数 resize And Add ( )， resize And 
Sub ( ))。 

もうひとつは仮想空間の内容を読み出し 
て表示するときに参照するテーブル（関数 
makejudge () で作成)。仮想空間での濃度 
の値は，正のメタボールと負のメタボール 
が入り混じるので，必ずしも0 ~255の範囲 
に収まらない。そこで，それを0または255 
にまるめ込むのだが，ここで if 文を2つも 
使いたくないという理由だけでテーブルに 
した。表示のための2重ループのどまん中 
なので，そこそこに効果はあったと思う。 

課題と展望 

今回のプログラムの問題点。 

• メタボールの濃度が変えられない 

正負の反転はできても，強いメタボール 
と弱いメタボールが作れない。 

• 回転ができない 

拡大，縮小はやっているが回転はしてい 
ない。 

•大きなメタボールの反応が惡い 

まだまだ処理が重い。 X 68000 XVI でも 
使えばかなり快適だが . 。 

これらの問題があっても，2次元ではそ 
こそこの レスポンスを 得られそうだ。アセ 
ンブラで書けば，完全リアルタイムも不可 
能ではあるまい。だが2次元では使い道が 
あまりない。しいていえばド ローツールの 
自由曲線としての道だろうか。 

そして，このやり方で3次元化は可能だ 
ろうか。こうなるとほとんど 「 CPU パワー 
で勝負」の世界である。もちろん，いまの 
解像度で3次元化すれば， X 68000 のメモリ 



正，負のメタポールを置き続けるとこんな感じ 



ちょっと遊んでみました 


では扱いきれない（単純計算でも， 256 X 
256X256 ですでに 16M バイト必要)。もっと 
解像度を落として，補間をうまく使うこと 
で対処できるかもしれない。 

終わりに 

昔， C - TRACE + をレビューした t き，似 
たようなプログラムを作ったことがある。 
あのときはユーザーインタフェイスもなく， 
色使いも洗練されていなかったし，2次元 
メタボールを1枚描くだけでも数分を要し 
ていた。リアルタイムは無理だとあきらめ 
ていたのだ。 

遅いシステムの開発者の多くは，この「無 
理だよ」という先入観で勝手に納得_してし 
まっているのではないだろう力'。 

そうしたなかで，徹底して割り切って， 
レスポンスのいいシステムを作る。すばら 
しいブレイクスルー。このテのもので最近 
いちばん感動させられたのは，なんといっ 
ても PCM 8 だ。 

最後にちょっとだ•け夢，というか私が CG 
世界に感じていることを話す。それは ， CG 
システムが遠からず完全リアルタイムにな 
るだろう，ということだ。もはや，モデリ 
ングとレンダリングの区別も存在しなくな 
るかもしれない。操作の結果が即座に画面 
に反映し，かつそれが目的の画像だったら 

. 。真のバーチャルリアリティである。 

暴言かもしれないが，いまの「バーチャル 
リアリティ」は，「データグローブ j と同義- 
語のよう な気がしてならないのだ。 
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- tSCU タボール {2 次元 } 

コンパイル： 

tcc -0 -Wall meta.c -lbas -Ifloatfnc 
1992/07/19 丹明彦 


linclude 
•include 
irlnclude 
iinclude 
jr include 

#define 
?define 


<basic0.h> 
<math.h> 
<graph.h> 
<mouse.h> 
<stick.h> 


UMAX 

UMIN 


255 

0 


unsigned char u[256][256]; 
short field[512][512 ]； 

unsigned char resizeTablel512] 15121 ; 


/* メタボール中七'の灌度 ♦/ 

/* メタボール JJ 3 辺の ita */ 

/* メタボールの通®テーブル*/ 
/» メタボールの「場」（仮想^ */ 
/* リサイズ用のテーブル*/ 


int 

int 

int 


void setupPalet() 

- 舰分布に対応したパレットを IS 定する（ 256 色モード） 
潘度〇 〜25 5 に対応する色は 

胃から水色•綠 • 黄色 • 13 を経て赤までのグラデーシ a ン 
(hsv の色相だけを変化させたもの） 

しきい侦に M して 3 つの表示モードがある 


/* しきいモード */ 

/* しきい他 》/ 

/* 班示に相を持たせるための値 */ 


paletMode = 0; 
threshold = UMAX/ 2 ； 
bandwidth = 2; 

setupPalet() 

int i; 

switch ( paletMode ) { 

case 0 ： /» デフオルトのパレット */ 

for ( i = UMIN ； i <= UMAX : i++ I 

palet( i, hsv( 127-(i/2), 31, 31)) 

case1: ’ /* しきい ffi 付近を白にする */ 

for < i = UMIN ； i <= UMAX : i++ I 

palet( i, hsv( 127-(i/2), 31, 31 > 1; 
for ( i = -bandwidth ； i <= bandwidth ； i++ ) 
palet( thresholds !, 65535 ); 

case 2: ' /* しきいより上を白，下を思にする */ 

for ( i = UMIN ； i <= UMAX ； i++ ) 

palet( i, (i> = threshold I?65535:0 > ; 

break; 

) 

return ； 


void cyclePalet() 

-バレットを切り替える 

3 つのモードを m 番に切り替える 


cyclePalet() 

paletMode ++ ； 
paletMode %= 3; 
aetupPalet(); 


void makeResizeTable<I 
- メタボールを高連に計 B するためのテーブル 

resezeTable[w または h] I i = 0~(w-l) または （ h- 11 J_ を計算する • 
256x256 ドットのメタポール潘酬数テーフ'ルを 
wXh ドットに拡大描小するためのもの。 

1 から 512 までの油をとりうる w または h に対して 

256 の幅 < または高さ）の；履度 W 脃テーブルを高速に轚照できる。 

Uresenhara アルゴリズムを用いている。 


raakeResizeTable() 

int dx, x, y, e, dx2, dy 2 ; 


dx 


512; dx++ 


* <O ， 0)-(dx,255> の梯分を兜生する 

* Bresenham ア M / ゴリス•ム 
*/ 

dy2 = 255*2 ； 
dx2 = dx»2 ； 
e = -dx; 

y = 0 ； 

for ( x = 0; x < dx ； x++ ) { 
/*pset( x, y, 63 )； 
reaizeTable(dx-l1[xj = 
e += dy2; 

while ( e >= 0 )( 
y++; 

e -= dx2; 

) 


void roakeUt) 

- メタボール通 ® « 数テーブル u[ 256 丨【 2561 を生成する 
麵に 256X256 ドットの漢度分布をいて取り込んでいるので 
円形に限らずどんな形でもよい。 

このは荊処理なのでどんな形でも本の実行時じ。 
潘度の範囲は各点で〇 〜2 55 。 


デバッグ用 */ 

y ; 
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void makeU() 

{ 

int r, o ； 

for < r = 0 ； r < 128; r++ » { 

/* 嫌形分布（あまりきれいに変形しない） 

circle! 127, 127, 128-r, r*2, 0, 360, 256 ) ； 
paint( 127, 127, r*2 );*/ 

/* 三角 | 霞分布（きれいに変形する ）*/ 

c = UMAX/ 2 + (intHUMAX/2)*(cos( ( r-1 28 ) *3. 14/128 . 0 )) ； 
circle( 127,127, 128-r, c, 0, 360, 256 ); 
paint(127 ( 127, c )； 

/* メタ矩形（ジ 3 — ク）：嫌形分布 

fill(r, r, 255-r, 255-r, r*2 );»/ 

/* メタ矩形：三角分布 

c = UMAX/2 + (int)(UMAX/2J*(coa{(r-128)*3.14/128.0)) : 
fill(r, r, 255-r, 255-r, c )；*/ 

) 

/* まるごと取り込んで通テーブルとして使う */ 

get( 0, 0, 255, 255, u, 256*256»sizeof(char ))； 


return; 


void initField() 

•• メタポール通 ® fl ( 仮想空間 > を初期化する 
全領城の通度を〇にするだけ 
{おまけでカラーバーも描く > 


void initField() 

l 

int i. j ； 

for { i = 0 ； i < 512 ； i++ ) 

for ( j = 0; j < 512; j++ ) 
field[ij[j] = 0 ； 
for ( i = UMIN ； i <= UMAX ； i++ ) 

for ( j = 502 ； j < 512 ； j++ ) 

fieldlij[j] = UMAX - i; 

return ； 


void makeJudge() 

-表示時の判定高速化テーブルを作る 

メタボールは加減 » を行うので計 w の結果 
潘度か UM A X を越えた〇 UMIN を下回ったりする 
表示できるのは UM IN(=0) 〜 UMAX (=255 ) の囲 
それを描画前に M 正する 

それ以下は UMIN に、それ以上は UMAX に九める 
if を使うと遇くなるのでテーブルを作っておく 


unsigned char Judge[32768] ; 

void makeJudge() 

( 

int i; 

for ( i =-16384 ； i < UMIN ； i++ ) judge[ 16384 +i) = 0; 

for ( i r UMIN ； i <= UMAX : i++ ) judge! 16384 +i] = i ； 

for ( i = UMAX+1;i < 1638 4: i+t ) judge! 16384 ^i] = 255; 

return; 


void putField{ x, y, w, h ) 

- (x,y)-(x + w,y + h) のの通度 lfl< 仮想空間）の内容を 
画面に出力する 

make Judge () 峨で作成したテーブルを利用する 


void putField( k, y, w, h ) 
int x, y, v, h; 

( 

int i. J ； 

static unsigned char ubuf 【 512 】； 

for ( i = 0; i < h ； i++ ) { 

for ( j = 0 ； j < w; j++ ) | 

ubuflj) = judgel 16384 + fieid[y+i){x+j] J; 

) 

put( x, y+i, x+w-1,y+i, ubuf, w ); 

) 

return ； 


int 

int 

int 


xp = 0, yp = 0 ； 

wp =128, hp =128; 

sp =1 ； 


/* 面前に描いたメタボールの座 ffl 
/* BOW に描いたメタボールのサイズ */ 
/* 也的に描いたメタボールの E 負 */ 


void preserve( x , y , w, h, s ) 

- 剧 5 に J 苗いたメタボールの座 • サイズ • 符号を保存する 


void preserve ( x, y, w, h, s ) 

int x, y, u , h, s ； 

{ 

xp = X ； 

yp = y ; 

wp = w; 
hp = h; 
sp = s; 

return; 


void resizeAndAdd( x, y, w, h ) 

-溻度場 （15« 空の®域 U , y)-U + w,y + h ) に 
WXh ドットに拡大梅小したメタボール潘度を加 s する 
正メタボールを M くときや負メタボールを消すときに使う 
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►以前はまったく読んでいなかった「ハードウエア. I •.作入 Hj と「マシン語カクテル in Z 80 ’ 
sBar Ja iii 近，内容が愤報処现技術者試験の受験名•にとって非黹に娘しいものなので，好 
月楽しみにしています。 鈴木政宏 （ 19 ) 宵城 m 
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316 
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319 
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325 
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本/ 

void 

int 


void 

int 


void 

int 


♦ / 

void 

int 


/» 


void 


resizeAndAdd( x, y , w, h ) 
x, y, w, h; 

int i, j ， il; 

for { i = 0; i < h; i++ ) { 

il=resizeTable[h-1][i 】 ； 
for ( j = 0 ； j < w; j++ ) 
field[y+i][x+j] += 


/* テーフリレを#照して拡大梅小*/ 
1 ][resizeTabletw-1][j]]; 


void resizeAndSub( x, y, w, h ) 

-潘度取 （ 泡 UJ > の領域 < x , y > - ( x+w, y+h > か 6 
wxh ドットに拡大縮/1、したメタボール瀑度を減篇する 
負メタボールを ffl くときや正メタボールを消すときに使う 


resizeAndSub( 
x, y, w, h; 


int 

for 


= 0; i < h; i++ )( 
i1=resizeTable[h-1][i1; 
for ( j = 0 ； j < w; j++ ) 
fieldty+i][x+j]-= 


/* テーブルを参照して拡大組小*/ 
u[i 1 ][resizeTablef w-1][j]]; 


void resizeAndDrawl x, y, w, h, s ) 
-通度場 < •想空 Ml の«诚< x,y)-( x+w ， y+h >に 
wxh ドットに拡大縮小したメタボールを描き込む 


resizeAndDraw( x , y, w, h, s 
x, y, w, h, s; 


if ( 

else 


resizeAndAdd( x , y, w, h 
resizeAndSub( x, y, w, h 


void resizeAndErase( x, y, w, h, s ) 
-瀰度場（仮想空即の領城 U,y 卜 U+w,y+h> から 
wxh ド‘；；卜に大^1、したメタボールを消す 


resizeAndErase{ x, y, w, h, s ) 
x, y, w, h, s; 

if { s > 0 ) 

resizeAndSubI x, y, w, h 

else 

resizeAndAdd( x, y, w, h 


int 

int 

int 


x, y, w, h, s, dx, dy; 
mx, ray, mdx, mdy, bl,br; 
roxp, myp; 


screen(1, 2, 
setupPaletO ; 

makeResizeTable{); 
makell () : 
initField(); 
makeJudge() : 

mxp =128; myp =128; 
w =128; h =128; 

3 = 1 ; 

preserve( mxp-w, myp-h, k 


/* 512x512 ド ‘; ；卜 256 色モード */ 

/* 色相クラデーシヨンのバレット */ 

/* 拡大副、用のテーブルを作る */ 

/* 濃度分布販テーブルを作る */ 

/ 本滴度坳（仮想空 fUl) 初期化 */ 

/* 表示時の判定离速化テーブルを作る */ 

/♦ _ マウス座描 */ 

/* メタボールの I ；測サイズ */ 

/* 於初は正メタボール */ 
h, s )； /* 謂由保存 


serve » mxp-w, myp-n , w , n, s j ; / * »/ 

■ izeAndAdd( 0, 0, 128, 128 J ; /» 琺初のメタボールを面く ♦/ 


mouse( 0 ) ; 

mouse{ 4 ) ； 

setmspos( mxp, myp )； 

putField( 0, 0, 512, 512 

mouse(1); 


/* マウス初期化*/ 

/* ソフトキーボードを殺す*/ 
/♦ マウス座棟 ISlt */ 

/* 最初だけ全砲面招き換え*/ 
/* マウスカーソノ!^示*/ 


msstat{ &mdx , &rady , &bl,&br )； 

/» ボタンを両方}* IHt ば終了*/ 

if ( br != B && bl != 0 ) break; 


/* 

* マウス右ボタン押下 B5 の動作 

* 右ボタンのドラッグでメタボールのサイズを決める 

* マウスの移動を検 )41 するたびに 

* 古いものを消して ? 《い、ものを描く 

* 右ボタンを期したときの 

* 原点 < 画面左上）とマウス座描でできる®形領威が 

* メタボールのサイズになる 

*/ 

while ( br != 0 )( 

/* 古いメタボールを消す */ 

resizeAndErase( xp» yp» wp, hp, sp 

putField( xp, yp, wp, hp >; 

/* 

* 新しいマウス座棵を得る 

* ( 古いメタボールを消す時間が技いため） 

本 / 
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mspos( &mx , &my ) : 
mxp = mx; myp = ray; 
w = mx ； 
h = my ； 

/* W しいメタボールを描く */ 
preserve( Q, 0, w+1,h+1,s }; 
re3izeAndDraw( 0, 0, w+1, h+1,s ); 
putField( 0, 0, w+1,h+1) : 

ハ 

* 右ボタンカ » されるか 
* 移動を触 It るかするまで待つ 
*/ 

while { 1 ){ 

msatat( &mdx , &mdy, &bl,&br 
if ( br == 0 ) break; 
if ( mdx != 0 ) break; 
if ( mdy : = 0 ) break ； 


* マウス右ボタン押下時以外の動作 

» メタボールはマウスの觔きにつれて動く 

* マウスカーソルはメタポ _ ルの右下 4* に位*する 

* マウスの讓を検知するたびに 

» 古いものを消して析しいものを描く 

* 画面左と - 卜方 6 はみ出さないようにつぶす（手抜き J 

* 左ボタンを押したときには消さない 

* 原点 （ 画面 tJ ： >とマウス座樣でできる矩形 

* メタボーサイズになる 

* / 

mspos( &mxi &my ); 

/* 

* ジ 3 イスティックの操作 

* ボタン A メタボールの正負反幸云 

* ボタン B バレットモード切り替え 

* 上下 しきい値 J ： 下 

* 左右 しきい fg 表娜変更 

*/ 

if ( strig< 1 ) & 2 )( 
cyclePalet<) ; 

/* ボタン A 激されるまで侍つ*/ 
while ( (strig( 1 ) & 2 ) != 0 


switch ( 
case 8 : 


stick (1))( 

threshold++ : 
if ( threshold > UMAX 
setupPalet(); 
break; 


threshold --； 
if ( threshold 
setupPalet ()； 
break ； 

bandwidth--; 
if ( bandwidth 
setupPalet ()； 
break; 

bandWidth++; 
if ( bandwidth 
setupPalet(); 
break; 


threshold = UMIN ； 


/* 左ボタン本/ 
beep(|; 


* ボタンが M されると次へ行く 

本/ 

msstat ( &mdx, &.mdy , &bl,ibr 
if ( bi == 0 ) break ； 

/* 

* 移動を検知してち次へ行く 

* (コメントアウトしてあるが 

* コメントをはずすと 

* 動かしながら M ける） 


*/ 


mdx 

mdy 


break : 
break ; 


else if ( strig(1)& 1)( 

/* ジョイスティック A ボタンはメタボールの抒号反 fe */ 
/尊古いメタボールを消す */ 

resizeAndErase( xp , yp, wp, hp, sp ); 
putField( xp, yp, wp, hp ); 
s = -s; 

/* ボタンが播されるまで待つ </ 

while ( (strig( 1 ) & 1 ) != 0 ) ； 

else { 

/* 移 »^ なかったときは描きかえない */ 

if ( mxp == mx && myp == my ) continue 

/* A いメタボールを消す */ 

resizeAndErase( xp, yp, wp, hp, sp ) : 
putFieldt xp, yp, wp, hp ) : 


* 析しいマウス座樣を毋る 
本（古いメタボールを消す蹄 Ufc) 啦いため） 

*/ 

mspos( &mx , &ray ) : 

mxp = rax ； myp = my ； 

x = mx - w ； 

y = my - h; 

if ( x < 0 ) x = G; 

if(y<0)y=0 ； 

dx = mx - x; 
dy = my - y ； 

/* 新しいメタボールを描く */ 
preserve( x, y, dx+1,dy+1,s ) : 
resizeAndDraw( \, y, dx+1, dy+1 , 
putField( x, y, dx+1,dy+1); 


►大学生活にも惯れた视在 ， 私は取位の3原則を発見した。 1) 繼っぷちでは止まらな . 

い。 2) テスト前はやわらかい。テスト後には惡魔がささやく。角谷光憲（18> 愛知 m 特集疑似メタボールで遊ぶ 81 




[特集]数値演算の熱い逆襲 


V 70 ボードの活用 

AFPP を使った 3 D グラフイツク 

Nakamori Akira 中森章 

3□グラフイツクを高速化するために， V 70 ポードの AFPP に装備されて 
いる行列演算命令を使ってみます。結果は XBB 00 D とのやりとりに多少問®が 
見られましたが，期待どおりの数値を見せてくれたよ5です。 


V 70 アクセラレータ（以後 V 70 ボードと 
呼びます）は，日本電気の32ビットマイク 
ロプロセッサである V 70 と，その浮動小数 
点コプロセッサである AFPP を搭載してい 
るボードです。7月号では V 70 ボードの概 
要について報告しました。今回は，もう少 
し別の観点から V 70 ボードを使ってみたい 
と思います。 

V 70 ボードの魅力は， CISC の集大成であ 
る V 70 そのものにもありますが，なんとい 
っても AFPP でしょう。浮動小数点の四則 
演算や三角関数などの計算ができるのは当 
然として，ベクトル.行列演算をサポート 
していることが目新しいところです。べク 
トル.行列といえば，コンピュータグラフ 
ィックスに関する計算でよくお目に掛かる 
データ構造です。 AFPP を使用すればこれ 
らの計算を高速に行えるようになるに違い 
ありません。 AFPP はコンピュータグラフ 
イックスがよく似合う浮動小数点コプロセ 
ッサなのです。 

というわけで，今回は V 70 ボードを使用 
して簡単な3次元グラフィックを行ってみ 
たいと思います。 

| 3次元グラフィックの理論 

3次元グラフィックの基本はワイヤーフ 
レームモデルです。これは，起伏を示す線 

図1ワイヤーフレームモデルの例 


Po 



分（稜線）の組み合わせで物体を表現する 
方法です。創刊10周年記念 PRO -68 K に付属 
した 「SION II 」や M . N.M Software (発売 
はビクター音楽産業）の「スターウォーズ j 
の画面を思い出してもらえば，説明は不要 
ですね。 

ワイヤーフレームモデルのデータ構造は， 
頂点の集まり I :頂点の繫ぎ方で決定されま 
す。たとえば，図1のような三角錐は4つ 
の頂点， 

Po, P„ P 2 , P 3 

t 6 つの頂点の繫ぎ方 （2 つの頂点の組)， 
Po - Pi.P 0 —P 2 , P 。 一 P 3 , 

P!—P 2 , Pi—P 3 , P 2 —P 3 

によって決定されます。この図形が 3 次元 
の空間の中をどのように移動しようとも， 
どのように変形されよう！：も，頂点の繫ぎ 
方に変更はありません。 

したがって，ワイヤーフレームモデルに 

対して移動 • 拡大 • 回転など'の変換を加え 
る場合は，それぞれの頂点がどのような位 
置になるかだけを注目していればいいこと 
になります。要するに，ある点の位置が移 
動-拡大•回転によってどのように変化す 
るかを知っておけば，ワイヤーフレームモ 
デルの移動.拡大.回転は終わったも同然 
です。 

詳しい説明は専門書に譲るとして，ここ 
では，紋切り的にある点を移動•拡大.回 
転する場合の位置変化を求める公式を挙げ 



これが V70 と AFPP 


軸周りに角度0だけ回転する場合 

X 、 / 1 0 〇 , 

y ' ) = (〇 cosi 9 - sin ^ 
z ’ ' ' 0 sin 沒 cosd 1 

> Y 軸周りに角度 (9 だけ回転する場合 



' x \ 

卜 ( 



'cos 汐 

0 

sin 汐 

0 

1 

0 

-sin 汐 

0 

cos 6 


X 


X 

y 


• z 軸周りに角度0だけ回転する場合 
/ X’ \ / cosd - sin 0 0 

( y ’ ] = I sin 5 cosd 0 



( X \ 

x l 

0 

! 

、 Z / 


►原点を中心に or 倍に拡大する場合 



ておきます。 

なお，あとで AFPP のべクトル • 行列命令 
を利用するために，形式がベクトルと行列 
を使って示してあります。また，以下の公 
式では元の点が (X ， y, z), 変換後の点が (x', 
y \ z 0 になっています。 

參 X 軸方向に dx , Y 軸方向に dy , Z 軸方向 
に dz だけ平行移動する場合 

: ： ) = (；) + C ) 

Z ， ノ \ z / \ dz ノ 


次はワイヤーフレームモデルを画面に表 
示することを考えましょう。コンピュータ 
の画面は2次元ですから，3次元の物体を 
2次元に変換することが必要になります。 
ここでは透視投影（中心投影法）という方 
法を使います。具体例として Z 軸上に視点 
を設け，原点付近にある物体を見る場合の 
公式を示しておきましょう。ここで， 3次 
元空間の座標を ( xy ’ z ’)， 2次元平面の座標 
を ( x ', y ') t します。また，原点から視点まで 
の距離を dl , 視点から投影面の距離を d 2 と 


82 Oh! x 1992.9. 























します。 

x '= x Xd 2/( dl — Z ) 

y'= y xd2 /( di — z ) 

なぜこうなるのかは，図 2 で三角形の相 
似を考えれば明らかですね。 

以上の公式を使い，図3に示すような手 
順で処理を行えば，ワイヤー フレーム モデ 
ルを使った3次元グラフィックの出来上が 
りです。 

データ構造と描画方法 

3次元グラフィックの理論（というほど 
大袈裟なものではない）がわかったところ 
で，これをどのようにプログラムするのか 
考えます。 

3次元の点は double 型を3つ組み合わ 
せたものでよいでしよう。2次元の点はグ 
ラ フィ ック画面に表示することを考えて， 
int 型を2つ組み合わせたものにします。こ 
れらの点を配列で待てば頂点の集合の出来 
上がりです。頂点の集合が決まったら，次 
は頂点の組を示すデータ構造が必要になり 
ます。これは頂点を表す配列の添字で示せ 
ばよいでしよう。つまり， int 型を2つ組み 
合わせたものになります。以上のデータ型 
を C 言語の typedef によって定義すると次 
のようになるでしよう。 

typedei struct t 
double x ; 
double y ; 
double z ; 

} P 0 INT _3 D ; /* 3 次元の点*/ 

typedef struct { 
int x ; 
int y ; 

} P 0 INT _2 D ; /* 2 次元の点*/ 

typedef struct { 
long fr _ point ; 
long to 一 point ; 

} PT . PAIR ; /* 添字の組*/ 

このように，データ構造は単純なのです 
が，プログラムを書〈うえで問題となるの 
は画面の描き換えです。 3次元空間の中で 
物体を移動したり回転したりすると，頂点 
の座標は別の位置に移動してしまいますか 
ら，2次元平面に透視投影されている図形 
もそれに応じて报彳き直してやる必要があり 
ます。単純に考えれば，一度画面上のデー 
夕を消去してから新たな図形を描くことが 
考えられます。しかし，毎回画面を消去す 
る方法では少なくとも2つの不都合があり 


ます。 

ひとつ目は，画面を消してから描き直す 
までの時間がかなりかかるので，画面がち 
らついて見にくくなるということです。1 
回の垂直表示期間で画面を消去する高速ク 
リアを使ってもちらつきを抑えることはで 
きません。2つ目の不都合は，表示されて 
いる物体が複数あるとき，ひとつの物体を 
描くたびに画面を消去していたのでは，画 
面上にはひとつの物体しか残らないことに 
なります。すべての物体の移動や回転処理 
の終わるのを待って一度に描き直すのは， 
表示されている図形が切り替わるのに非常 
に時間がかかるため，現実的ではありませ 
ん〇 

そこで，考えられるのは1本の線分（稜 
線）のみについて注目し，線分ごとに消し 
ては描き直すという処理です。すなわち， 

ひとつの物体の移動や回転処理が終わった 
ら，その物体を構成するすべての線分に関 
し，線分の単位で消しては描くという操作 
を繰り返します。こうすれば，どこかの線 
分が1本消えて，新しい線分が1本生じる 
だけですから，画面上の物体はどこかがち 
よっと変化したなという程度に感じられる 
だけです。この方法は画面がちらつくこと 
もなく物体の動きの変化もスムーズです0 

しかし，この方法は新たに描こうと思っ 
ている 線分が，ひとつ前にどの位置にあっ 
たかを記憶しておく必要があります。線分 
を消すというのは，同じ位置にカラーコー 
ド0で線分を描き直すということです。そ 
のために，2次元の頂点のデータを今回と 

図2透視投影 


前回の2種をもつことになりますが，ほか 
にい L 、案が思いつかなかったので（物体の 
数が少なければパレットを操作して消すと 
いう方法も考えられるが)，今回はこの方法 
でプログラムを書いてみました。 

以上のような考えで書いたプログラムが 
リスト1です。まずは X 68000 上で動きを確 
認する目的ですベて C 言語で記述してあり 
ます。 Slide が物体を指定した距離だけ X 
軸， Y 軸， Z 軸の3方向に平行移動させる 
関数， RotateByX が物体を X 軸周りに指定 
した角度だけ回転させる関数 ， RotateByY 
が物体を Y 軸周りに指定した角度だけ回転 
させる関数， RotateByZ が物体を Z 軸の周 
りに指定した角度だけ回転させる関数， 
TransTo 2 D が3次元の頂点を2次元の頂 
点に変換する関数， Display が2次元に変換 
された頂点からなる図形を X 68000 の画面 
上表示（描画）する関数です。物体を示す 
ために OBJECT というデータ型を定義し 
てありますが，これはこれまで説明してき 
たデ—夕型を組み合わせただけです。なお， 
物体の定義は6月号の付録である創刊10周 
年 PRO -68 K のデイスタ4の SIONII のソ 
—スプログラムから自 機， 敵などの定義を 
持ってきたものです（座標は1/10になって 
います）。 

ところで，リスト1のプログラムをコン 
パイルする場合は，とりあえず DEBUG と 
いうシンボルを定義してコンパイルしてく 
ださい。つまり， GCC なら， 

-DDEBUG 
XC なら， 


図3 3次元グラフィックの処理手順 




特集 AFPP を使った 3 D グラフィック ⑽ 































/DDEBUG 

というオプションを指定してコンパイルし 
てください。 DEBUG というシンボルを定 
義しないと，あとに述べる高速版のプログ 
ラムになってしまいますからこのままでは 
動作しません。 

リスト1のプログラムは V 70 ボードでも 
動作する予定だったのですが，付属のコン 
パイラ ( VCC ) が生成するコードを間違え 
るため，ま！：もな図形は表示されません。 
どのような図形になるかはリスト1から， 
#ifndef V 70 
t それに対応する， 

#endif 

を削除して VCC でコンパイルし動作させ 

図4 IOCS/DOS コールの 処理 


V70 



元の位■に ff 帰する 


てみてください （ VCC では V 70 というシン 
ボルがあらかじめ定義されている）。コンパ 
イラをうまく騙せばまともな図形を描くよ 
うにもできるのですが，空しいのでその方 
法の紹介はやめておきます。それよりも， 
誤動作する部分を含めて Slide , Rotate 
ByX , RotateByY , RotateByZ などの関数 
をアセンブリ言語で書き直して高速化を図 
ったほうが得策でしよう。 

高速化への試み 

リスト1のプログラムを V 70 ボードで動 
作させるにあたり， AFPP の持つべクト 
ル.行列演算を使用して高速化することを 
試みます。書き換え対象は3次元の座標変 
換を行う Slide , RotateByX , RotateByY , 
RotateByZ という関数群です。 AFPP のマ 
ニュアルをパラパラとめくっていると， 3 
次元べクトルに関する演算である， 

fmov 3 v . l (3 次元ベクトルの移動） 
faddSv . l (3 次元ベクトルの加算） 
fmul 3 v.l (3 X 3 行列と3次元べクト 
ルの積） 

という命令が利用できそうなのがわかりま 
す。また，与えられた角度に対して sin と cos 
を同時に計算する， 
sincos.l 

という命令も便利そうです。これらを使っ 

図5 SRAM (共有領域）のメモリマップ 


V70 XGB000 



て Slide , RotateByX , RotateByY , 
RotateByZ 関数を書き直したのがリスト 
2です。これらの関数のほかに，リスト2 
では TransTo 2 D , Display という関数も書 
き直してあります。これらはコンハ。イラの 
バグを回避するという意味もありますが， 
真の目的は高速化です。たぶん，コンパイ 
ラの出力する（であろう）コードよりも高 
速なものになっているはずです。 

ところで，リスト2のプログラムの注釈 
を読めばわかりますが，力 1 なり意味不明な 
ことが書いてあります。これは第2の高速 
化を行った名残です。実は，リスト1の各 
関数を AFPP 命令を使って書き直しても， 
実行速度はそれほど向上しません。それは, 
X 68000 側に理由があります。 V 70 ボードで 
は IOCS コールや DOS コールを X 68000 t 通 
信しながら行っています。 

たとえば，10 CS コールで直線を画面上に 
描く場合，実際にその処理を行っているの 
は X 68000 自身です。その場合の処理の概略 
は図4のようになります。図4を見てわか 
るように，引数を共有 RAM 領域にコピー 
したり，そこからデータを引き取ったり t 
メモリ操作が頻繁にあります。 IOCS コール 
や DOS コールを行うために， V 70 側でトラ 
ップ ( trap #0 xal ， trap #0 xa 2) して， X 680 
00 側でもう一度トラップする （trap #15， 
FFxxh) のもかなりのロスタイムです。つ 
まり， V 70 や AFPP がいかに高速に動作し 
ようとも10 CS コーノレや DOS コールがある 
と，その X 68000 側での処理時間が全体の実 
行時間の足を引っ張ってしまうのです。そ 
れを改善するための処置をリスト2の Dis 
play という関数では試みているのです。 

まず， システム ( V 70 IPL . V 70) が引数の 
値をいちいち共有 RAM 領域に コピーし 直 
すのは時間の無駄なので，プログラムの中 
から直接共有 RAM に引数を書き込むよう 
にします。そのためにプログラムをす寺権モ 
ードで実行する必要があるため，リスト2 
では特権モードに移行するための， 

B 一 SUPER 

という関数を定義してあります。 X 68000 の 
スーパー バイ ザモー ドへ移行するライブラ 
リ関数と同じ役割を持つ関数で， V 70 ボー 
ドで新たに作ってみました。そして，図5 
に私が独自に解析した， V 70 ボードの SRAM 
領域のメモリマップを載せておきます。引 
数の受け渡し領域は FFFFE 300 H 番地から 
のようです力 5 ',リスト2では安全を見込ん 
で FFFFE 400„ 番地から引数を書き込んで 
います。このとき， V 70 と X 68000 ではデー 
夕のバイト順序（エンデイアンという）が 
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/* 頂点の個数*/ 

/* 頂点のデータ*/ 

/«辺の個数*/ 

/* 辺のデータ本/ 

/* 2次元変換用ワーク本/ 
/* 2次元変携用ワーク*/ 
/本色*/ 


23: typedef struct ( 

24: int np; 

25: P0INT_3D *pt; 

26: int nl; 

27： PT_PAIR »ln; 

28: POINT_2D »wkl； 

29： P0INT_2D *wk2； 

30: int color; 

31:} OBJECT； 

32: /» 

33： HJttW 定義 

34: */ 

35: #define N_PT1 41 
36: #define N LN1 51 
37： 

38: POINT_3D _ob 川 N PT1]= 
39: 丨 0.0,1.0.-5.0I,{1.5 
40: { 2.0,1.0,-1,5|,{ 0.5 
41:{-2.0,1.0,-1.51 ,{-0.5 
42:(-1.0,-4.0, 4.5),(-0.5 
43: {-1.0,-1.0, 2.0),(-2.5 
44： {-0.5,-1.0, 2.5), l 0.5 


なお，リスト 3 はメモリ上に常駐するプ 
ログラムですが，処理を簡略化するために， 
2回常駐することを禁止する処理や常駐を 
解除する処理は入っていません。2回以上 
実行しないように注意してください。 

最後になりましたが遊び方です。リスト 
1のプログラムが 3 d . c というファイル，リ 
スト2のプログラムが sub . s というファイ 
ル，リスト3のプログラムが line . s というフ 
ァイルに格納されているとします。 X 68000 
用の実行ファイルを作るために， XC では， 
cc /Y 3 d.c 
GCC では， 

gcc 3 d.c —liocs —ldos 
を実行します。これ以外の最適化オプショ 
ンは適当に付けてください。これで 3 d . x と 
いう実行ファイルが生成されます。 V 70 用 
の実行ファイルを作るためには， 
vcc /Y 3 d.c sub.s 

を実行します。最適化オプションは付けな 
いほうが無難でしょう。これで A . V 70 とい 
う実行ファイルが生成されます。同時に， 
as line.s 
lk line.o 

によって line . x という実行ファイルを作っ 
ておいてください。以上のようにして， 3 d . 
X ， A . V 70, line . x ができたら準備は終わり 
です。まず， 
line 

を実行して ROM VER を書き換え ておいて 
から， 

3 d 

あるいは， 

monv 70 /i A 

を実行します。前者が X 68000 による実行， 
後者が V 70 と AFPP による実行です。処理 
時間が画面にプリントされますから，実行 
速度の違いを目で確かめてください。また， 
3 d 1 

monv 70 /i A 1 

などのように，実行時に コマンド ラインで 
か引数を与えると IOCS コール（ライン描 

リスト1 3 D.C 


画）をスキップした場合の処理時間が表示 
されます。これで，全体の処理時間のうち 
のどのくらいがライン描画に使われている 
かを知ることができます。 

參考までに表1に処理時間の違いを示し 
ておきます。ラインを描かない場合の速度 
を比較してみると， X 68000 側での処理の高 
速化が いかに 大切かがわかる と 思います。 

終わりに 

私は3次元グラフィックが得意ではない 
ので，今回のプログラムはかつての Oh!X 
(參考文献”）を參考にしながら書きまし 
た。3次元処理としては大したことはゃっ 
ていませんが， V 70 ボードで AFPP 命令を 
使うという目的に免じて許してくださいね。 
私としては，今回のプログラムは V 70 ボー 
ドでシステムモニタ ( V 70 IPL . V 70) やコマ 
ンドシェル ( MONV 70. X ) を書き換えて遊 
ぶための第一歩と理解しています。与えら 
れた使い方だけをしていたのでは面白くあ 
りませんからね。 

今後，機会があれば V 70 ボードの変則的 
な使用方法についてどんどん紹介していき 
たいと思います。 

<参考文献> 

1) 相馬英智，ワイヤーフレームによる 3 D 世界， 
Oh!X, 1988年9月号， pp .22-29. 

2) ネす田敏幸， X 68000 マシン 語プ ログラミンググ 
ラフイツクス編，ソフトバンク， 1992 年. 

3) パ PD 72691 ユーザーズ•マニュアル， IEM -5062 
C , 日本電気，1989年. 


表1プログラムの実行速度 


ライン処理 

その1 

その2 

なし 

V 70 

226.8 

85.3 

10.0 

FL 0 AT 2 

560.9 

419.5 

378.3 

VFL 0 AT 

451.4 

309.9 

268.7 


(単位：秒) 


•初代 X 68000 (10 MHz ) で測定。 0 PMDRV は OFF 
參ライン処理その I はリスト3で示した処理をそのまま 
使用 

•ライン処理その2は参考文献 2 > の CHAPTER 3, リスト14 
でクリッビングを省略した処理を使用 



AFPP で高速化された 3 D グラフィックのデモ 


逆なので，バイト順序を変える処理も行っ 
ています。 

次に， X 68000 側では共有 RAM 領域にあ 
る引数を直接受け取ることを考えます。こ 
のために IOCS コールのベクタを書き換え 
て（フックする）専用のライン描画処理を 
行います。共有 RAM から引数を勝手にコ 
ピーされるのを防ぐ（単に時間の無駄）た 
め，フックする IOCS コールは引数を持って 
なく，ベクタを書き換えても影響が少ない 
ものがよいと思われます。そこで選んだの 
が ROM のバージョンを返す ROMVER (フ 
アンクシヨン番号： 8 F h ) というシステム 
コールです。その ROMVER をライン描画 
に書き換えるためのプログラムがリスト3 
です。リスト3では共有 RAM 領域 （ V 70 ボ 
ードでの FFFFE 400 H 番地は X 68000 では B 1 
F 400 H 番地に見える）を直接 LINEPTR 構 
造体の格納されている場所に指定して， 
IOCS コール^である LINE (フアンクシヨン 
番号： B 8 h ) の本体をサブルーチンコール 
しているのです。ここでは，さらなる高速 
化のためにラインを消す処理と新たなライ 
ンを描く処理を同時に行っています。 

リスト3 では IOCS コールでの ライン描 
画 ルーチンを 直接 コールし ましたが，それ 
を別のもっと高速なライ ン 描画 ルーチンに 
変更することも可能です。たとえば，村田 
敏幸氏の本（参考文献 2 0に紹介されている 
ラインルーチンを 使用すればかなり高速に 
なります。 


1 

#include <iocalxb.h> 


2 

♦include <doslib.h> 



3 

#include <math 

h> 



4 

/* 




5 

データ型の定義 



6 

*/ 




7 

typedef struct 

( 



8 

double 

x : 



9 

double 

y; 



10 

double 

z ; 



11 

)POINT_3D； 

/* 


t/ 

12 





13 

typedef struct 

( 



14 

int 

x; 


、 

15 

int 

y; 



16 

} POINT_2D； 

/* 

2 次元座標 

*/ 

17 





18 

typedef struct 

( 



19 

long 

fr_point; 


20 

long 

to 

point; 


21 

)PT_PAIR； 

ハ 

辺 */ 


22 







特集 AFPP を使った 3 D グラフィック S5 











































3D**2D 変換（通当にスケーリングして Eft 化） 


TranaTo2D(obj J 
OBJECT *obj; 


POINT 


i ,n 
.2D *t: 


trap; 


>np; 


«endif 


tmp = obj->wk2 ； 
obj->wk 2 = obj->wkl; 
obj->wkl=tmp; 
for(i=0;i<n ； i++)( 

scale = diat2 ハ diatl-tobJ->pt[i 】 .z>) 
obj->wkl[i].x = scale*(obj->pt[i].x)*768.0+384. 
obj->wkl[i].y = scale»{ 

) 


>pt[i].y)*512.0+256. 


グラ 

itScreenl 


フィック表示 


OBJECT object[MAX_OBJ J ； 

/* 

ワークエリア 

*/ 

P0INT_2D w_obJ1[MAX OBJ * MAX 一 EM]; 
POINT こ 2D w_obj2[ MAX_OBJ t MAX_EM] : 
/» 

•/ 

double distl=100.C 
double dist2=2.0 ； 
int doLINE : 

参 ifndef PI 

#define PI 3.14159265 

#endif 


/* 獅用 */ 
/* 消去用 */ 


/* ZUh, 視点から原点までの距艟 " 
/* Z«Lh. 視点から面までの ® tt «/ 
/* 実厢にラインを引くかを示す */ 


lifn 


V70 


Slide(obj , dx,dy , dz) 
OBJECT »obj; 
double dx; 
double 
double 


dy ； 

dz; 


int i,n; 

n=obj->np ； 

for(i=C ； i<n ； i++)| 

obj->pt(i].x ♦= dx; 
obj->pt[i).y += dy: 
obj->pt[i].z += dz; 


} 


BotateByX(obj,a 
OBJECT *obj; 
double ang; 


double s 
double y 
int i 

s=ain{ang 
c=cos(ang )； 
n=obj->np ； 
for(i=0;i<n ； i++)( 

y = (obj->pt[i] 
z = (obj->ptCi] 
obj->pt[i].y = y; 
obj->pt[i].z = z 


y) *c-(obj->pt[i].z)»s; 
y)*s+(obj->ptlil.z)*c; 


RotateByYtobj, 
OBJECT »obj; 
double ang: 



bj->np 
for(i=0;i<n ； i++){ 
(obj 
-(obj 


obj->pt[i].x = x ； 
obj->ptti).z = z; 


->pt[i].x)*c+(obj->ptIi1•z)*8; 
->pt[ - 


t[i] .x ) *a + (obj->pt[iJ.z)*c ； 


46: 

47 ： 


0), (- 
51,1- 


52 ： 

53: 

54: 

55 ： 

56: 

57 ： 


PT_PAIR _lnl 【 N_LNl】={ /* 辺を作る齡の姐 */ 
|0 ， 11, T 2. 0l,( 3, 4},{ 4, 51,15,6 
{ 8, 9|,{ 

115 ， 11 J , U 


. 10 ) 

17) 

；20, 0),{ 0,21) 

(27,28),(26,29) 


(33,34) 

{40,30} 


58 ： 132,2 8), 
59: (39,401, 
60 ：)； 


62: tdefine N_PT2 
63: .define N—LN2 
64: 

65: POINT_3D obj2[l 
66: {-0.4, 2.0, 8.0 


(12,15 

(29,30 

(34,35 

(32,40 


10 

8), 

(11,12), 

{12,13], 

U3 

,14} 

,{14,15 

18 

22 

19), 
23), 

119 ， 16 J , 
(23,24), 

( 2,20), 
124,25 J• 

«20 

(25 

,21) 

,22) 

.Ul,l 
, 126,27 

29 

27), 

(26,31), 

(31,32), 

(31 

,27) 

,(28,30 

35 

33), 

136,37), 

137,3 8}, 

{38 

,36} 

,{26,39 


68 : 

69: 

70 ： 

71 ： 

72 ： 

73 ： 

74 ： 

75: 

76 ： 

77 ： 


t-4.0 

(-4.0 


1.0, 0.f 
1 . 0 ,- 6 .( 


(- 1 .¢ 
0 ), (- 1 .¢ 
- 6 .¢ 


I '!:； 


82: ( 0,1],( 0, 2|,{ 0. 4|,{1, 3J,(1 

5}, 

{ 4, 2] 

,< 4, 61, 

{ 4,10), 

83: { 4,20},{ 4,18J , | 5, 3|,{ 5, 7},{ 5 

15}, 

( 5,211 

> ( 5,19), 

< 2, 3), 

8-J: { 6, 7J , ( 2, 6),13, 7),1 6,201 , ( 7 

21), 

l 9,11 丨 ， {11,121 ， 

{12,18}, 

85: { 8,12),(14,16),(16,17),{17,19},(13 

17), 

<18,201 

,(20,21}, 

{21,19), 

86 ： (18,24 1 , (24,22) ,(22,23) , (23,25) , (20 

24), 

(21,251 

,(25,191 , 

,129,24}, 

(26,24). 

87 ： (26,22), 127,22) ,(27,23),(28,25), (28 

23), 
35), 

(29,181 

(32,19), 

88 ： (32,25) , 129,32},{33,291,(33,30) , (33 
89 ： (37,29) , 137,30), {38,32), (38,31) , 122 

(34,32} 

,(3.1,311, 

(34,36) , 

301 , 

123,311 

,(35, 4), 

136, 5), 

90: {35,36},(39,40).(40,41),{39,41},(42 

43}, 

142,4 4) , {.43,44}, 

(45,46), 


56 


91:(46,47) , {48,49},(49,50), 
92 ： »； 

93: 

94: #define N PT3 
95: fdefine N_ し N3 
96 ： 

97: 

98 ： 

99 ： 

0 . 0 .- 1 . 0 , 2 . 0 } 

1.5,-0.5, -6.0] 

5.0, 2.5,-0.5) 

0.0,-1.5,-3.5! 


POINT 

1 . 0 , 


101 

102 

103 

104 

105 


0.0,-l 

4.5. -3 

4.5, 4.0,-7.51 
- 2 . 0 . 1 . 0 , 2 . 0 ) 
-2.5, 0.0,-4.0} 
-2.5, 0.5, -3.01 
-3.0,-3.0, -4.0) 
-3.5, 2.5,-3.5) 


116: 

117: 


122 : 

123 ： 

124 ： 

125 ： 

126 ： 

127 ： 

128: 

129 ： 

130: 

131 ： 

132: 

133 ： 

134 ： 

135 ： 

136 ： 

137: 

138: 

139: 

140 ： 

141: 

142: 

143: 

144: 

145 ： 

146: 

147 ： 

148: 

149 ： 

150: 

151 ： 

152 ： 

153 ： 

154 ： 

155 ： 


3D 


_obj3[N_PT3] 
0, 0.5),( 1 


!:!： 


PT 一 PAIR _ln3[N_LN3]={ 

1, 2J,T 2, 31,1 3, 0),( 4, 5) 
101 ,( 10 , 11 ),( 11 , 121 ,{ 12 , 1 ) 
13) ,117.18), (18,191,1 19,17) 
22,23), (23,24) , 124,25}, {25,22} 
10}. 130,31 1,{31,32}.(32,33) 
0),(30,21),(36.37J, 丨 37,381 
40),(43,44),(44,45), 145,4 6) 
47),{32,34},(35,51),(51,32) 
20),(1,54},154,55), 155, 0) 


♦define N PT4 
tdefine N_LN4 


- 1 . 0 , 0 

0 . 0 p -0 


3D obj4[N_PT 4 
- 0 . 8 , 1.21 ,{ 0 
2 ,- 2 . 2 } 
*>,- 0 . 2 ) 

4, 0.4) 


,(12 
.(26 
,(33 
.(38 
. M 6 
,(51 


, 6} 

,{ 6 

7J,{ 7, 4», 

18, 9j, 

,121 

,U3 

14) ,114,15), 

115,1 6), 

,20) 

,271 

.(20 

21),{ 2,201 , 

(20, 3 し 

,127 

281 •(28,29}, 

<29,26), 

,301 

,(33 

34) ,(34,35), 

135,21}, 

,391 

.43} 

,139 
,(47 

36), 140,41 }, 
48|,(48,49), 

141,42 J , 
149,501 , 

,52) 

,{11 

531 , 丨 53, 6), 

153,5 2), 


PT.PAIR _Jn*l[N_LN4] = ( 

10,1},T 1, 2l,{ 2, 0| 

18, 9| , { 9,10],(10,11) 
{15, 16},116,17 J,{17, 181 


JFdefine N 一 PT5 
tdefine N_LN5 


31 


POINT 

(-0 


obj5[N_PT5] 
I, 2.4), {-© 
i, 2.4),1-2 
I, 1.4} 


156: PT_PAIR _ln5[N_LN5]=( 

157: l 0, 1 ),T 1, 2),{ 2, 3},( 


41 • 


5), 


6 } , { 


U . 


6), 

15B: ( 0, 7),( 7, 2),{ 4, 8),( 8, 6},{ 9,10),{10,11),{11,12} , ( 9,13) 
159: {13.14),{14, 15}, (12,15),(15, 10),( 9,16),(16,11), (13,171 ,{17,15) 
160 ： (18,19), 119,2 0),{20,18), 122,23 ),(23,211,{25,26),{26,24}, 

161： }; 

162 
163 ： 


♦define MAX_OBJ 5 
164 : #define MAX EM 100 


/* 物体大数 " 

/» 要索（服 • 辺）の最大数 */ 
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►とうとう夏がきてしまいました。にはときどき，コンビニ 
ので困って しまいます。小さい; 弱風機は絶対に必要です ね。 


-夕が熱暴走をしてしまう 
内間正晃 (20) 骱岡県 


)*a)*c 
y)y 

>pt[>pt[ 

ii 


>pt>pti.xi-y 

l - i i i 

ob]objpt[pt[ 


c y n ; n - 二 - j.J 
sxiggpixyoo 
ananJ 


va » e e - 二 I 

o j! 11 n 3 ji 

issl 

teBCTii 


56789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789 G19~ 34 5 6789012345678901234 
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CRTMOD(16); 
0_CLR_0N ()； 


289: 

290 ： 

291: 

292 ： 

293: 

294 ： 


299: 
300 ： 
301 : 
302: 
303: 
3G4: 


310: 
311 ： 
312 ： 
313 ： 
314 : 
315: 
316 ： 
317: 
318 ： 
319 ： 
320 ： 
321 ： 
322 ： 
323 ： 
324: 
325: 
326 ： 
327 ： 
328 ： 
329 ： 
330: 
331: 
332 ： 
333 ： 
334 : 
335 ： 
336 ： 
337: 
338 ： 
339 ： 
340 ： 
341: 
342 ： 
343: 
344 ： 
345 ： 
346 ： 
347 ： 
348 ： 
349 ： 
350 ： 
351: 
352 ： 
353 ： 


357 ： 

358: 

359 ： 


362: 
363 ： 
364 : 
365: 
366: 
367 ： 


369 ： 
370: 
371 ： 
372 ： 
373: 
374 : 
375 ： 
376 ： 


#ifndef V70 
Diaplay(obj J 
OBJECT *obj; 


#ifdef 
#endif 


DEBUG 

struct LINEPTR LP0.LP1 : 


int 

int 

n=obj- 
DEBUG 
lp0= 
lpl = 


NEPTR ^lpG, 本 lpl; 


LINE 
i ,n 
fr.to; 
>nl; 


4LP0; 

1LP1 ； 


#ifdef DEBUG 


lp0=(struct LIHEPTRMOxblf 40 0 ； 
lpl=(struct LINEPTR*)0xblf40c ； 

for(i=0;i<n ； l++){ /* 穌本 / 

fr = obj->lnli].fr_point; 
to = obj->ln[iJ.to_point ； 
lp0->xl= obj->wk2[fr].x ； 
lp0->yl= obj->wk2(fr].y; 
Ip0->x2 = obj->wk2[to].x; 
Ip0->y2 = obj->wk2[to].y; 
lp0->color = 0; 
lpO->linestyle 
lpl->xl 
lpl->yl 
lpl->x2 

lpl-)y2 = obj->wkl[toj 
lpl->color = obj->color; 
lpl->linestyle =-1; 
if(doLINE){ 


lies* し ）- - l , 

= obj->wkl[fr].x; 
= obj->wkl[frJ.y ； 
= obj->wkl[to] .x ； 


1 P 0 

lpl 


/* ブレークチェック 


データの _ 匕 

*/ 

InitData() 


object[0] 

objectl0] 

object[0] 

objectfO] 

object[0] 

object[0] 

object[0] 

object!1] 
object!1] 
objectm 
object!1] 
objectfl] 
object[l] 
object[l] 

object[2] 
objectm 
0 bject[2J 
object!2] 
object(2] 
object[2] 
object[2] 

objectm 

objectl3] 
objectm 
objectl3] 

object[3 】 

objectO] 
objectl3J 

objectm 
object!4] 
object[4] 
object[4] 
object[4J 
object[4J 


pt - _objl; 
In =In 


_lnl; 

wkl=tw_objl[MAX_EM*0 ]； 
wk2 = &w_obj2 【 MAX_EM 本 0 】 ； 
np = N_PT1 ； 
nl=N_LN1 ； 
color=15; 


Tn ： -° bj2； 


_ln2 ； 

wkl=&w_objl 【 MAX_EM*1]; 
wk2 = &w_obj2[MAX_EM*l ]； 
np = N_PT2 ； 
nl=N_LN2 ； 
color= 9; 

pt = _obj3 ； 

In = _ln3; 

wkl=&w_objl(MAX_EM*2] : 
wk2 = &w obj2[MAX_EM*2]; 
np = N_PT3; 
nl=N_LN3 ； 
color=13; 


pt = _obj4 ； 


=_ln4 ； 
wkl=&w objl[MAX_EM«3] : 

,EM*3]; 


wk2 = &w_obj2 
np = N_PT4 : 
nl= 
color 

: 

wkl= 
wk2 = 
np = N_PT5; 


_obj5; 

ね川 M AX_EM*4] : 
&w_obj2[MAX_EM*4 ]； 


POINT_3D 

_POINT_2D 


24 

8 


ふ S 溢 


.globl _Slide 
.text 


14 : 
15: 
16: 
17 ： 
18: 
19: 
20 : 


fraov ： 

mov.d 


•w [ap],rl 
v3v.l4[ap],f 
l],r0 


fmov3v.1[r1],fr4 
fadd3v.l fr0,fr4 
fraov3v•1 fr4,[rl1 
add.w #S_P0INT 3D, 
dbr r0 f SLOOP 

ret #0 


*obj 

rO=n,rl= 


#1,frl6 

#0,frl7 

frl7,frl8 

frl7,fr20 

fr26,fr21 

fr25,fr22 

frl7,fr24 

fr25,fr25 

fr26,fr26 


0.0)； 

80.0); 


iuble)(end-atart))/10 


•,sin,fr26: 
'P.rl=*pt 


:: cos(x) 
---sin(x) 


object[4]. 


olor= 


Slide(&object[0】，0 
Slide(&objecttl],1 
Slide(&object[2] 
Slide(&object[3] 
Slide(&object[3],4 


7.0,14.0 ； 

12.0,-11, 


.0,6.0,7.0 ； 

， - 2.0,-10.{ 


それぞれの拽|_きを定義する関数 

本/ 

static double px0=O , pyO=0 , pz0=0; 
static double px1=0,py1=0,pzl=0 ； 
static double rad=0; 

actionO(obj) 

OBJECT *obJ; 

( 

Slide(obj,pxl-pxO,pyl-py0,pzl-F 
if(rad<(0.5*PI)) 

RotateByZ(obj,PI/90.0); 
else if(rad<(1.0*PI)) 

RotateByYJobj,PI/180.0) 

else 

RotateByX(obj,PI/90.0); 
rad += PI/180.0 ； 
if(rad>=(1.5*PI)) rad=0 ； 
px0=pxl; 
py0=pyl : 
pz0=pzl; 

pxl=1.2*coa(rad)-1.2 ； 
pyl=l.2*sin(rad) : 
pzl=2.0*sin(rad}; 

TransTo2D(obj )； 

Display(obj) : 



tateByX(obj,a 
TransTo2D(obj); 
Display(obj )； 


*obj ； 

(obj, 
RotateByY(obj,PI/ 
RotateByZ(obj,PI. 
TransTo2D{obj )； 
Display(obj )； 


90.0 )； 
90.0 )； 


ction3(obj) 
BJECT *obj ； 


RotateByZ(obj,PI/180.0) : 
RotateByY(obj,PI/180.0) : 
RotateByX(obj,PI/180.0 )； 


main( 

int 


メインプログラム 
2 ， argv) 


B_SUPER( 


InitData() : 

InitScreen(); 

3tart=0NTIME{); 
for(i=O;i<600;i++){ 

action0(&object[0 ])； 
actionl(&object[1],PI/9 
,PI/1 

action2(&object[3]); 


) 

end=ONT 
printf< 


ctionl(&object[2] 
ction2(&object[3] 
ction3(iobject[4] 


IME ()； 
"Total 


•Vn",((do 


•s 


.globl _RotateByX 
.text 
.align 4 
otateByX : 

mov.w [ap],rl 
fmov.l 4 【 ap],fr25 
fsincos.1 fr25,fr26 
mov.d [rl],r0 


fr25 

r0=r 



l r l 

0 

〇 I 


|0 

cos(x) 

-sin(x) | 


|0 

sin(x) 

coa(x) | 


U 


j 


11 

H W1111I11 

cvt.cvt.EitE: 


'789i0il)2i3M!516718 901234 5 67890123456789 01 234567 89012 34567890123456789 cll23Tr 567890123456789 C 
8888889999999999000000000011111111112222222222333333333344444444445555555555 G 
33333333333333333333 333444-44444 44444444-444 4444444444444 444444444444 444444-44444444441 


LAY 

sp 

□1 

2 


ス 

u 


X42526272829303 13233343536373839)!n 


►なぜ，ホクロに生えている毛は長いのだろう。 


小山優一⑽東京都 


特集 AFPP を使った 3 D グラフィック gj 










.align 
_RotateByZ: 

mov. w 


fraov 

fnea 

fcvt 


fmov 

fraov 

fcvt 


L 


fmov3v. 
frau!3v. 


.globl 
.tex t 
.align 
_TranaTo2D: 

mov. w 


mov. w 
raov. d 
fcvt.wl 
fcvt. k 1 
fcvt.wl 
fcvt.wl 
fmov.1 


fraov.1 
fmov.1 

fsub.1 
fdiv.l 
fmov.l 


fmul.l 

fmul.l 

fadd.l 

fmul.l 

fmul.l 

fadd.l 


_TransTo2D 


Up] ,r0 

16[r0],r2 

r2,2O[r0] 

r3,16[r0] 

[r0],r0 

#768,frl6 

#384,frl7 

#512,frl8 

#256,frl9 

_diat2,fr20 

_distl,fr21 

fr20,fr0 

fr21,frl 

16[rl],frl 

frl.frO 

frO.frl 

[rl),fr0 

frl6,fr0 

frl7,fr0 

8trl],frl 

frl8,frl 

frl9.fr! 


1 frl6,frl 
wl #G,frl7 
1 frl8,frl 
1 frl7,fr2 
wl #l,fr21 
1 frl7,fr2 
1 frl8,fr2 
1 frl7,fr2 
mov.l fr!6,fr26 


fcvt 


fmov 

fcvt 


fneg 


fmov3v.l [rll,fr0 
fnul3v.l frO.frO 
fn»ov3v.1 frO , f rl] 
add.w #S_POINT 3D, 
dbr r0,RYLOOP 

ret #0 


.globl _RotateByY 
.text 

_RotateByY: 

mov.w [ap],rl 
fmov.l 4[ap],f r 
faincos.1 frl8,f 
mov.d [rl],r0 


3<X) 


fraov3v.l [rl],fr0 
fmul3v.l fr0,fr0 
fmov3v.1 f r0,[rl] 
add.w #S_POINT_3D,rl 
dbr rO,RXLOOP 


frl8 ； sin,frl6: 
r0=np,rl= 專 pt. 


ain(x) 

os(x) 


fr20 ； 3in,fr21: 
rO=np,rl=»pt 


C03(X) 
-3in(x) 


sin(x) 

coa(x) 


— 0 


*obj 

r2=obj->w 


;1[0],r3=obj->wk2l0] 


—<r3> new obj->wk1[0] 

-- く r0> np, <rl> obj->ptl01 


‘19 

50 


57 

58 

59 

60 
61 
62 

63 

64 

65 

66 


70 

71 

72 

73 

74 

75 

76 


83 

84 

85 

86 

87 

88 
89 


92 

93 

94 


141 ： 
142 ： 
143 ： 
144 ： 
145: 
146 ： 
147: 
148 ： 
149 ： 
150: 
151 : 
152 ： 
153: 
154 ： 
155 ： 
156: 
157 ： 
158: 
159 ： 
160 ： 
161: 
162 ： 
163 ： 
164 ： 
165 ： 
166: 
167 ： 
168 ： 
169 ： 
170 ： 
171: 
172 ： 
173 ： 
174 : 
175 ： 
176: 
177 ： 
178: 
179 ： 
180: 
181 : 
182 ： 
183: 
184: 


187: 

188 ： 


fcvt.Iw f r0,[r3 J 
fcvt.lw frl, <1[r3 J 


add.w 

dbr 


jFS_POINT_3D,rl 

#S_PT_PAIR,r3 

r0,T2LOOP 

#0 

Display 


_Diaplay : 


prepare #(S_LINEPTR*2) 
pushm #0m<r9-r21> 
mov.w [ap],r0 -- 

mov.w 8[rB],r21 -- 

mov.d 12[r01,r11 -- 

mov.d 20[r0],rl3 
movs.hw #0xf400,rl5 
movs.hw #Oxf40c,rl6 
rot•h #8,rl4 
mov.h #0,8[rl5] 
#O,10[rl5J 
rl4,8[rl6] 

#0,10[rl6] 

Irll],rl7 
[rl3](rl7),rl9 
#8,rl9 
rl9, 【 rl5] 

#8,r20 
r20,2Lrl5] 

mov.d [rl3](rl8),rl9 
rot.h #8,rl9 
mov.h r19,4[rl5] 
rot.h #8,r20 
raov.h r 20 ， 6 [rl5J 


not.h 
mov. h 


rot.h 
mov. h 


nl 

rl1= ln[ ] , rl2=v.kl 
rl3=wk 2 ,r14=color 
1 P D 
lpl 

バイト傾序を変更 
カラーコード 
ラインスタイル 
カラーコード 
ラインスタイル 

rl7=fr , r18=to 
wk2[fr].s,wk2[fr]. 




rot.h 

mov.h 

mov.d 



：： 


wk2[ to] .x, wk2[-to1.y 

x2 

y2 

wk2[fr].x,wk2[fr].y 
xl 

wk2[to].x,wk2f to].y 
x2 

yZ 


97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 


113 

IH 

115 

116 
117 


121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 


191 : 
192 ： 
193: 
194 ： 
195 ： 
196: 
197 ： 
198 ： 
199 ： 
200： 
201： 
202: 
203 ： 
204 : 
205 ： 
206 ： 
207: 
208 ： 


212： 

213: 

214: 

215 ： 

216 ： 

217: 


221 : 
222 : 
223 ： 

224 : 

225 : 
226 ： 
227: 
228: 
229: 
230 : 
231 ： 
232: 
233 ： 
234 : 


Pa ン処理をフッ 
#0x8f,rC 


add.w 

dbr 

call 

popn 

dispose 

ret 


#S_PT_PAIR,rll 
r21.DLOOP 

_KEYSNS,(sp] 

#0m<r9-r21> 


#0 

B 一 SUBER もどき 

ユーザ—モー ドには戻れない！ 
_B_SUPER 



B_LPEEK 


B_LPOKE 
レペル 0 へ 


getpsw r0 

and.w #0x7fffffff,r 
Push r0 
movea.w h2,[-ap] 
retis #d 


fl [± 位ビットをクリア 


.w 


r29,/0xffffe060 
r30,ap 
#0m<rO-r30> 

#0 


リスト 3 LINE.S 


本#ネ本本:*:* 

i ； 分描_ 


本**拿尊»本本本**•♦本》» 


このブログラムは10 CS の ROM バージョン処理をフック 
別のライン処理 < 2つのラインを描く）を行う。 

引数は V 7 0ボードとの共有領域に道いてあるものとする 


本本本*本* ♦本本本 


.text 
.even 


BEGIN ： 

拿 

零 

gline ： 


_ R O M V E FM 


.1 al ， - (sp) 
i.l?F$blf400 ( a 


I N E を 2 度呼. 


i 域（その 


22 : 

23 : 

24 : 
25: 
26: 
27 : 
28 ： 
29 ： 
30: 
31: 
32 ： 
33 ： 
34 : 
35 ： 
36: 
37 ： 
38 ： 


jsr $00000000 

niovea.l #$blf 40c ,a 


(sp) + 


—このアドレスを潘 
引数領域 （その2 


move.w 
. dc . w 
addq. 1 


#$lb8,-(sp) 
$ff35 
#2 ,sp 

d0,linel+2 
d0,line2+2 

BEGIN ( pc ) 
#$18f,-(sp) 


( LINE 処理アドレス播得 1 


t 

O 

14 


021 3 D 
2 r o 6 7 01245 0 ] -p 
r f Xc)11 2 2 2 2 2 r 0 1 To 
If > o 1(、 rr 8 rrrrr 6 fr rNO 
r —orlns(fflfffff 2 >f [ I L 
, 32 , 3 ilsu J I o z 
plap fr lj-S CO 02120 ,f 2021181818 ,frlreropTR 


a [ r 
1411 


rrdrrrrr 


#1 


l#st#0 


S8 Oh! x 1992. 9. 















fnov.l 
mov .d 
raov. d 
push 
push 
call 
movea.w 
ret 


#0,fstw 
tap],fr0 
.18[ap],frO 
fstw,t-sp] 
rO 

r0,no_err 
#12,rO 
#l,rl 
err_fiv 
#9,?0 
#4,rl 
err fud 
#ioTre 
#3,rl 
err fov 


#0 

4 


リスト 8 



clr. w 
move. 
dc.w 


$ff25 * INTVCS <ROMVER 処理を変 g > 

#6,sp 


-( sp ) 

IMEND- 


-BEGIN),-{sp) 

$ff31 * KEEPPR (常駐終了 


_ J スト 5 


11 

20 

30 

31 
40 

49 

50 
68 

69 

70 
80 
90 

100 

110 

120 

130 

140 

150 

160 

170 

1000 

1010 

1011 

1020 

1021 

1030 

1031 

1032 
1040 
1050 
1060 


str s[256],t[256],cr 
cr=chr|(13)+chr${10} 

int n=l 

fpi=fopen("vfloat.s","r") 
fpo=fopen( •'vfloatp.s" , "c") 
while freadsU,fpi ) <> -1 
t=s+cr 

fwrites(t,fpo) 

if sr-LOOlfde:" then patch!) 
if s="L001ff4: M then patch() 
if s="L 00200 a:" then patch() 
if 3="L 002020:" then patch{) 
if s="L 00203 e:" then patch!) 
if a=”LO02054:" then patoh() 
if s="L 00206 c:" then patch() 
if s=”L 002084:” then patch() 
if s="L 00209 c：" then patch!) 
if 8="LO02Ob4：" then patch{) 
endwhile 
fcloseallt) 
end 

func patch ㈠ 
t=chr$(9)+"btst.b" 


continue 
continue 
continue 
continue 
tch() : continue 
toh() : continue 
tch() : continue 
continue 
continue 
continue 


t=chr$(9)+"btst.b"+chr$ 
fwritea(t,fpo) 
t=chr$(9)+"bne"+chr$(9) 
fwrites{t,fpo) 
t=chr$(9)+"movea" + 
fwritea(t,fpo) 
t=string$(n,"S")+" : 
fwrites(t,fpo) 
n=n+l 


) +"#5 , 16( sp)"+cr 
+string$(n,"S")+cr 
"usp,a6"+cr 


■ J スト 4 


10 fp=fopen( *'v70ipl.v70" , "rw") 
20 faeek(fp,&h48a5,0) 

30 fputc(&hc0,fp) 

40 fputc(&h80,fp) 

50 fputc(&h60,fp) 

60 fputc(&h06,fp) 

70 fputc(&hcd,fp) 

80 fclose(fp) 


前回，今回と V 70 ボードに関する記事を書い 
てきたわけですが，実際にポードを手にした人 
で動かないと悩んでいる人がいるかもしれませ 
ん。実は V 70 ボードのソフトウェアパッケージ 
にはいくつかのバグがあります。私はそれをデ 
バッグしながらプログラムを書いていきました。 
ここで私が発見したバグに関する状況と対処法 
を報告しておきましよう。なお，私が使用した 
のは VDTK -68 K (ボードパッケージ)， VDTK - C -68 
K ((デコンパイラ）とも ver . 1.01のものですか 
ら，今回のパッチは ver.l .01 のみに有効です。こ 
れ以降のバージョンの人は同様の症状がないか 
確認してください。もし誤動作したら発売元に 
問い合わせてください。 

バグその1- 

•症状 

VFL 0 AT . X で __ POWER ( FE 3 F „) のシステムコ 
—ルがむちゃくちゃな値を返す。 

•理由 

V 70 IPL . V 70 の_ _ POWER 処理ルーチンが引数 
として不定の値を受け取っているため。 

籲デバッグ 

V 70 IPL . V 70 を直接書き換える。カレントディ 
レクトリに V 70 IP し V 70 を置いて， X - BASIC からリ 
スト4のプログラムを実行する。 

バグその2-- 

•症状 

VFL 0 AT . X でスタックを介して引数を受け渡 
すシス テムコー ルである， 

__CDADD ( FEED „) 

__ CDSUB ( FEEEh ) 

__CDMUL ( FEEFh ) 

__CDDIV ( FEF 0„) 

__CDMOD ( FEFI h ) 


V 70 アクセラレータのデバッグ 

__CFADD ( FEF 3„) 

__CFSUB ( FEF 4„) 

__CFMUL ( FEF 5„) 

__CFDIV ( FEF 6 h ) 

__ CFM 0 D ( FEF 7 h ) 

の値がむちやくちやである。このバグのため 
GCC などが誤動作する。 

籲理由 

VFL 0 AT . X での処理が引数がスーパーバイザ 
スタックにあるものとして行われているため。 
それぞれの処理の先頭で， 
btst.b #5, 16( sp ) 
bne SKIP 
move.I usp ( a 6 
SKIP : 

という処理が抜けている。 

•デバッグ 

変更箇所が多いので直接 VFL 0 AT . X を軎き換 
えるということはできない。 DIS.X (創刊8周年 
PRO -68 K や電脳倶楽部に掲載）でソースコード 
を生成して，それにパッチを当てる。 

DIS VFLOAT.X VFL 0 AT.S 
によつて作られる VFL 0 AT . S というソース ファ 
イルをカレントディレクトリに置き， X-BASIC 
からリスト5のプログラムを実行すると，ハ°ッ 
チが当てられた VFLOATP . S というファイルが生 
成される（エディタで直接修正したほうが早い 
という説もある）。これをアセンブル，リンクす 
ると VFL 0 ATP . X というファイルができるので， 
VFLOAT . X にリネームして使用する。 

バグその3- 

•症状 

AFPP 用の数学ライブラリ ( C 0 PR 0. A ) を使用 
する場合， pow 関数の第丨引数と第2引数が逆 
になっている。当然，結果を誤る。 


•原因 

単なるケアレスミスのような気がする。真相 
はわからない。 

•デバッグ 

ライブラリを変更す る。 リス ト 6のプログラ 
ムを pow . s というファイル名で作成し， V 70 ポー 
ド付属の VAS . X でアセンブルして pow . o というフ 
ァイルを作る。これを，同じく V 70 ポードに付属 
の VUB .) (によリライブラリを変更す る。 カレン 
トデイレクトリに C 0 PR 0. A と pow . o を置き， 

VLIB /R COPRO.A pow.o 
を実行するとライブラリが変更される。 

バグその4- 

❿症状 

C コンパイラ （ VCC ) でスタテイックな口一力 
ル変数を使用するとき，最適化オプションを付 
けると，変数の領域がソースプログラムから消 
されてしまう。このためリンク時にエラーにな 
る。 

•理由，デバッグ 

おそらくは，変数領域が分岐命令で參照しな 
いラベル（不要なラベル）として削除されてし 
まうのだろう。修正はコンパイラを作ったハド 
ソン以外にはできない。 

バグその5-- 

•症状 

C コンパイラでプログラムが正しくコンパイ 
ルできない。特に構造体を使用した式のコード 
生成を誤ることが多い。たとえば，今回のリス 
卜 I の Display 関数などのコード生成を誤る。 
•理由，デバッグ 

ハドソンさん，なんとかしてください。せめ 
て XC の ver .2. 丨並の品質にしてくれないと， C 言 
語によるプログラム開発は不可能です。 
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68881 の性能を € 

FPP . MAC の作成 


Taki Yasushx 瀧康史 

FLOAT 3. X を使うことで，実数演算を高速化してくれる数値演算プロセツ 
サボード。ここでは， F し OAT 3. X によるオーバーへツドをなくし，88881の 
性能をより引き出すためのマクロを作成します。 


あなたは今日，秋葉原にいって数値演算 
プロセッサボード，もしくは68881を買って 
きました。これで家の X 68000 もちよっとは 
速くなるかなと，喜びの気持ちで家に帰り 
X 68000 に接続してみました。最初から実数 
演算だけ速くなると割り切って買った人は 
ともかく，こんな気持ちで買ってきた人は 
結構いると思います。でも，買ってみてそ 
の68881，いったいどうやって使うんでしよ 

5〇 

もっとも一般的で，比較的 X 68000 のシス 
テム 事情をよ〈わかって いる 人なら，まず 
FLOA 丁2 . X を FL 0 AT 3. X に変えてみて， 
いろいろなソフトを実行してみると思いま 
す。 ゲームの 中に入って いる FL 0 AT 2 .X 
を片っ端から FL 0 AT 3- X に変えた人もい 
る ことでしよう。結果はどうですか？い 
ろんなソフトが速くなりました？ 私の身 
の周りにあるソフトで，劇的に変化したも 
のは 「 CANVASPRO -68 K 」。 それから…… 
というように，探しても目に見えて速くな 
る ものってあんまりないんですよ。 

C で作られているソースは，一応すベて 
F ラインフアンクシヨンコール （FLOAT 
の コール） を使っているのですが，数値演 
算プロセッサが使われてかなりのスピード 
アップが望めるものは実数演算だけ。だか 
ら 「CANVAS PRO -68 K 」 のような実数演 
算ばっかりのソフトは，比較的スピードア 
ップが望めますが，現在あなたが使ってい 
るワープロ やゲーム， 通信ソフトなどは， 
人間の目で見る限り，まず速くなっていな 
いと感じるでしよう。 

また，よく 86系はコプロを差すだけでス 
ピー ドが速くなる，と勘違いしてる人がい 
ます 力す， これは ソースが あって，コプロあ 
りのオプションを付けて再コンパイルした 
場合に限ります。 UNIX のようにソフトウ 
エアを ソース レベルで配布して，個々の マ 
シンでコンパイルするものならともかく* 1 ， 
現時点でのパソコンのように，そのほとん 


どが実行形式のみで配布されている場合 
(特に市販品に多い）には，効果がないとい 
ってよいでしよう。 

それに比べて， Human 68 k では数値演算 
はファンクシヨンコールによって行います 
ので，市販 ソフトの ようなすでに実行形式 
のみで配布され ているソフト も，数値演算 
プロセ ッサを 使ったファンクションコール 
などに代えたり，ファンクシヨンルーチン 
の改善によって実数演算部分のみの高速化 
が可能になります。 

しかし，この方法では，数値演算に対して 
ある一定の ファンクシヨンコールを 呼び出 
すため，その呼び出し部分での オーバーへ 
ッドが数値演算のたびにかかります。また, 
数値演算プロセッサを使うときに，その数 
値演算プロセッサ内のレジスタを効果的に 
使った演算ができないため，数値演算プロ 
セッサの真の機能が発揮できないのです。 

以上のような理由で， FLOAT 3. X に入 
れ替えても，期待に応えるようなスピード 
アップが望めず，結局お金をかけたわりに 
は意味がなかったとか，ひどい場合には数 
値演算プロセッサボードを持って いるに も 
かかわらず， スロットの 関係で展示品にな 
ってしまう場合もありうるのです。 

しかし，数値演算プロセッサ自身は，か 
なり性能がよいものです。実際， FLOAT 3 .X 
を通さず数値演算プロセッサを直接アクセ 
スした場合は，かなりのスピードアップが 
望めます。それを実証するためにも，とり 
あえず，7月号の D 5 GACGA システムの中 
にある rendxvi . x を rend . x にリネームして 
みてください。そこでお試しシステムを立 
ち上げ，ワゴンの編隊飛行でも，なんでも 
いいんですから，アニメーションを作って 
みましよう。もちろん， FL 0 AT 2. X は 
FLOAT 3. X に代えておくことも忘れない 
でください。 

どうですか？1回やったものと同じも 
のをレンダリングするのがお勧めなのです 


が，目に見えてスピードアップがわかるで 
しょう。数値演算プロセッサもちゃんと使 
ってやれば，それなりに動作することがわ 
かってもらえましたか？ 


*1 マシンの利用者がすべて技術者ならともか 
く，パソコンのような ユーザー フレンドリである 
べきものには，この用法は必ずしもよいとはいえ 
ません。 

6昍81の性能 

68881そのものの性能はいろいろな書籍 
によって参照できるので，ここではざっと 
紹介程度ですませます。 

68881には，全部で FP 0 〜 FP 7 まで80ビッ 

卜長のレジスタが8本， コントロール レジ 

スタとして，32ビット長の FPCR ， FPSR , 
FPAIR (この FPAIR は外部バスとして接 
続している X 68000 には意味がない）の3本 
があります。コプロセッサとして接続する 
場合には，あたかも CPU にレジスタがこの 
分増えたように使えるのですが， X 68000 で 
は外部バスを通すため* 2 ，それなりに使い 
方が限定されます。 

68000で扱えるレジスタのデータフオー 
マットは，基本的に Byte ， Word,Longword 
の3つですが，68881ではこのほかに， 

1) Short Real 

23ビット小数部，8ビット指数部，1ビ 
ット小数符号 

2) Double Real 

52ビット小数部，11ビット指数部，1ビ 
ット小数符号 

3) Expand Real 

64ビット仮数，1ビット小数点，15ビッ 
卜指数部，1ビット仮数部符号 

4) Packed Decimal Real 

17ケタ仮数部，11ビット指数部，2ビッ 
卜無限大フラグ，1ビット指数符号，1ビ 
ット仮数符号 

と，合計7 つ （図 1) の データフ オー マツ 
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卜があるのです。なお ， Short Real , Double 
Real , Expand Real の デー タフ オーマット 
はそれぞれ IEEE 規格に準じてます。 

デ ー タフ オー マッ トを見てわかるように 
扱える数字には，計算して得られるそれぞ 
れの桁数の数字限界のほかに，無限大（最 
高指数の限界値を超えた！： きのオーバーフ 
口一），そして非数（無限大+無限大）など 
が扱えます。 

これらのデータフ オーマッ トは，68881外 
部とアクセスするときに利用されるもので 
あって，68881内部ではすべての演算が拡張 
精度で行われています（図2)。よってレジ 
スターレジスタ間演算（転送も含む）は， 
拡張精度しか存在しません。この場合でい 
うレジスタとは，68881のレジスタであっ 
て，68000のものではありません。そして， 
外部とはメモリや68000のレジスタなどを 
指します。 


*2 68000には，コプロセッサをハード的に接続で 
きません。パスを通して I / O デパイスとして利用し 
ます。 

68881を叩く 

問題なのはこの数値演算プロセッサを直 
接 アクセス する（俗語：叩く）には，結構 
面倒くさいことをしなくてはならないので 
す。 メーカーから も，数値演算プロセッサ 
を使う方法については提示されてませんし 
( FLAOT 3. X を使ってください，という 
ことですかね），資料のほうも，最近やっと 
「Inside X 68000」 が解説し直してくれたく 
らいです。あとは，1988年8月号の本誌特 
集で68881を叩くそれなりのマクロを掲載 
した，その程度でしょうか。 

数値演算プロセッサの命令は68020で使 
った場合，数値演算プロセッサ命令を直接 
アセンブラの ソースと 交ぜて（あたかも 
68020に命令が増えたかのように）使えるの 
ですが，68000では バス 接続のため，そうも 
いきません。 

X 68000 が命令を68881に与えるためには， 
CIR と呼ばれる68881との接続ポートをあ 
る一定の順序でアクセスします。これは使 
用する命令（というかオペランド）によっ 
て違います。たとえば，68881のレジスタ— 
68020のレジスタ間の命令には， （68881 のア 
センブラで表記すると）次のようなものが 
あります。ちなみに，命令の最初に F が付 
<のはコプロ命令です （68020 に接続時の名 
称)。 

FMOVE.X FP 0， D 0 

この FMOVE はデータを加工せずに FP 0 


— D 0 へ転送する命令です。この 「 FMOVE . 
XFPO . DOj を X 68000 で実行するには，次 
の手順を踏まなくてはなりません。 

1) コマンド CIR に コマンドコード * 3 を書 

き出す。 

2) 68881からの応答コード（ヌルプリミテ 
イブコード）を得るまでウェイトを入れる 
(この時間は微小）。 


はなりません。そのうえ，68881に送る コマ 
ンドコードを求めるのが，なかなか大変で 
す（当然ですが，デスティネーションのレ 
ジスタ， デー タフ オーマツ トなどを コマン 
ドコードに組み込む必要がある）。そのた 
め，ある一定の手順を連ねた マクロ を作り, 
それに併せてその マクロ を実行すれば効果 
的です。ということで，数値演算プロセッ 


3) この間 MC 68881は計算するので，しば 
し，応答コード（データ転送プリミティブ） 
がくるまで待つ（これも微小）。 

4) オペランド CIR から， D 0 レジスタに入 
れるべき内容を読み出す。 


サを直接叩くための マクロを 考えてみまし 
よラ〇 


*3 コマンドコードとは，それぞれのコプロ命令 
の命令形式の2ワード目です（コプロ命令は すべ 
て2ワード以上の命令)。 I ワード目はコプロ ID , 
実行アドレス表記のため， X 68000 のような外部パ 
スを通したものの場合，無意味になります。 


以上のようにデータを取り出す命令でも， 

このような4ステップの手順を踏まなくて 

図168881が扱うことができるデータのフォーマツト 


bit 7 bitO 



バイト整数⑻ 


ヮード整数 ( W ) 

ロングワード整数 ( L ) 


bit 31 30 23 22 


指数 


小数部分 


単精度実数⑸ 


し小数部分の符号 


bit 63 62 52 51 


bitO 


指数 


小数部分 


-小数部分の符号 


bit 95 94 80 79 64 63 



常に〇 

仮数部分 

j _ 

L - 仮数の符号 

T 



暗黙の小数点 


91 81 80 68 67 


1： 


常に0 

17桁の仮数 

I 


倍精度実数 ( D ) 


拡張精度実数( X ) 


パック形式10進 ( P ) 


暗黙の小数点 

-土無限大か NAN(Not A Number ) のときに使用される。通常は“0” 
-指数の符号 
•仮数の符号 


図2 68881内部での演算途中のフォーマツト 


指数 ( I 7 bit ) 


小数部分 (63 bit ) 


-整数ビット 小数部分の最下位桁¬ 

-オーバフロー ビット 


ステ イツキー ビット 
丸めビット 
ガードビット 
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これが，今回夕ーゲットにした68881 


68昍1のマクロ 

アセンブラの マクロと いっても，それほ 
ど強力なわけではないので，あたかも68020 
に接続したように，そのままアセンブラソ 
ースを通すほど完成されたものを作成する 
ことはできません。 

しかし，基本的には1対1で命令が置き 
換えられますから， ソースコンバータを 作 
成すれば，ほぼ数値演算プロセッサの命令 
を そのまま ソースレベルで 利用することが 
可能です。今回その ソースコンバータも， 
作成予定だったのですが，ひとえに私の時 
間の都合のため，結局先ほど述べたように 
マクロの制作のみということに落ち着きま 
した。そのため，現時点ではかなり面倒な 
ことをしなくてはなりません。 

まず，命令体系ですが，68881の命令は次 
のように分類することができます。ここで 
「外部」とは，68000のレジスタ D 0 〜 D 7， 
A 0 〜 A 7 やポイントされたアドレスも含ま 
れます。 

1) OPOOO 

• レジスタ間演算命令 
• レジスタ間データ転送命令 
• 単項レジスタ演算命令 
fadd.x fpO.fpl 
fmove.x fpD , ip 6 
rcosh.x fpO など 

2) OP 010 

•レジスタ，外部間演算命令 
• 外部—レジスタ転送命令 
fsub.x ( a 0), fpO 
fsinh.l dO , fpO 
fmove.l d 0, fp 0 など 

3) 68881 内部 ROM 内定数転送命令 
fmovecr # ofs , fp 0 など 

4) OP 011 

• レジスタ—外部データ転送 
fmove.x fpO ,( a 0) など 

5) OP 100 

•コントロール レジスタ—•外部転送命令 


imove.l fpcr , d 0 なと 

6) OP 101 

• 外部 — コントロ ールレジスタ転送命令 
fmove.l dO.fpsr なと 

7) 複数浮動小数点データレジスタ転送命 
令 

fmovem.x fpO - fp 7,-( SP ) 
fmovem.x ( SP ) +，fpO - fp 7 など 

8) OP 011， OP 100 の複数レジスタ版 
fmovem.x fpcr - fpsr , + ( SP ) など 

9) 条件付き分岐命令 
fbcc label 

fdbcc Dn,label など 

10) FSAVE/FRESTORE 命令 
fsave ~( a 0) 

frestore ( aO ) + 

11) 例外分岐命令 
ftrapcc 

ftrapcc.l #data など 
以上のように分類できる68881の命令を 
マクロに してみたの力 5 '，リスト1 ( FPP . 
MAC ) です。なぉ，今回作成した FPP.MAC 
でサポートしていないものがいくつかあり 
ます。 

まず， 4) レジスタ—外部データ転送では， 
静的 K - ファクターしかサポートしていま 
せん。理由は，外部バスにつなげるため動 
的 K - ファクターは，速度の面で命令そのも 
のが重くなるし，静的だけサポートすれば 
問題ないと考えたからです （ K - ファクター 
はパック型にしか適応されないのですが， 

そもそもパック型なんてめったに使いませ 
ん)。 

さて，このマクロを使った命令を実行さ 
せるためには， OP クラスをよく考えて実行 
しなくてはなりません。 

たとえば， OP クラス000の命令， 
fadd.x fpO.fpl 
なら， 

OPOOO fp 0， fpl，FADD 
と記述しますし，〇 P クラス010の命令， 
fadd.s d 0 , fpO 
なら， 

OPOOO #00，#00， d 0， fp 0， FADD，—SIN 
GLE 

と実行します。ほとんどの命令がこの程度 
の手間で実行できるのですが，いくつか不 
都合があります。ひとつはアセンブラで小 
数のイミディエイト値を記述できないこと。 
このため，一度マニュアルで小数にしなく 
はなりません。 

もうひとつは， FPP . MAC を使って数値 
演算プロセッサをアクセスするときには， 
必ず スーパーバイザモー ドでなくてはなら 


ないこと，です。これは，現時点のような， 
マクロによる命令の再現では，絶対に回避 
不可能なのでがまんしてください。 

最後にこの FPP . MAC で再現してない命 
令に ついて。 まず， 4) レジスタ — 外部デー 
夕転送で扱うことのできる FMOVE の動的 
K -ファクター0そして， 7), 8) 複数レジス 
夕転送命令， 10) frestore ， fsave , ll)ftrap 
などは，再現の方法が私には考えつきませ 
んてした 〇 FScc はマニュアルのいっている 
ことがよくわからず， fnop は意味がないと 
思ったので再現していません。 

サンプルプログラム 

せっかく数値演算プロセッサを直接アク 
セスするマクロを作成したので，ちょっと 
したサンプルプログラムを2つほど作成し 
てみました。 

まず，リスト2の— fsin . s というプログラ 
ムです。これは， FPP . MAC を使って作った 
関数を C のプログラムに応用する簡単な例 
です。この例では SIN 関数だけの演算です 
が，ソース中の FSIN を FCOS に変えたりす 
るだけで， COS 関数のルーチンになりま 
す。 

なお，引数は float , 返り値も float ですの 
で， このルーチンを 使うときには必ず， 
float fsin ( float ); 

という行を入れて使用してください。ソー 
ス中の sin 関数を書き換えるだけで，思った 
よりスピードアップしました。 

もうひとつはリスト3で，比較的計算量 
の多いプログラムを作ってみました。こち 
らは1991年12月号の本誌に掲載された，石 
上氏の FFT による音の スぺク トルを得る 
プログラムの FFT () 関数の部分を，数値演 
算プロセッサを直接叩くアセンブラに書き 
直して見ました（リスト4に再掲載）。 

すでに入力されている人は，あらかじめ， 
fft . s をアセンブルし ，石上さんのプロダラ 
ムから FFT () 関数を削除してコンパイル 
し， fft . o をリンクしてください。 

実行結果ですが，もともと7〜10秒ぐら 
いの計算スピードが2秒弱にまで短縮でき 
ました0もっとも，プログラムをアセンブ 
ラに書き直したり，アルゴリズムを多少変 
えたことも大きいと思いますが，満足でき 
る結果でしょう。 

それでは， FPP.MAC マクロマニュアル 
とこれらのサンプルプログラムを参照しな 
がら使い方を把握していってください。本 
格的に知りたい方は，参考文献 1) の 「Inside 
X 68000 j を参照するといいでしよう。 
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B 8881 と SX-WINDOW 

さて，直接数値演算プロセッサを叩くこ 
とで, 68881の性能をかなり引き出せること 
がおわかりいただけたと思います。 

しかし，直接数値演算プロセッサを叩い 
たプログラムには，意外なところで盲点が 
あります。それはシステムが数値演算プロ 
セッサのことを考えてないことに起因する 
弊害なのですが，マルチタスクシステム（疑 
似でも）では，同時に複数の数値演算プロ 
セッサを直接，もしくは間接的にアクセス 
するプ n グラムが実行できないのです。 

通常マルチタスクシステムでは，タスク 
の切り替え時にレジスタをスタックにプッ 
シユする必要があります。ところが SX - 
WINDOW や， OS -9, Human 68 k 上でもス 
レッドを使ったバックグラウンドプログラ 
ムは，数値演算プロセッサのレジスタのこ 


とを考えて作られていないのです。まあ， 
当たり前 M といえば当たり前ですが， SX - 
WINDOW などは今後発展する領域ですし, 
なんらかの処置をしてほしいところです。 

0 S -9 や Human 68 k のスレッドは，基本的 
にアプリケーシヨン側でタスクチェンジが 
いつ行われるか，知る手段がありません* 5 。 

イベントドリプン型の SX - WINDOW では， 
タ スク チェンジが行われそうな A ラインコ 
—ル （SX コール） が予測できるので，それ 
らの前にレジスタのセーブ，あとにリスト 
ァを入れればできなくもありません。しか 
し，非常に面倒ですし C から利用するのが 
難しいので，今後の検討事項でしょう。 

*4 先に述べたとおり，68881には実にたくさん 
のレジスタが あって， タスクチェンジ時にいちい 
ちそれをチヱックして転送作業を行うと，しこた 
ま時間がかかってしまうからです。 

*5 タイマを使って強制的にタスクチェンジを 
するからです。 


まとめ 

せっか〈買った数値演算プロセッサを活 
用させるのはあなた次第です。スロットの 
関係で，結局，数値演算プロセッサボード 
が飾り物に成り下がってしまうか，あって 
も FL 0 AT 2. X の少し速いものとしてしか 

使われないとか . それもひとつの使い方 

で，ムの立場では，ひとそれぞれ，としかい 
えませんが，それでもあなたの数値演算プ 
ロセッサが，少しでもあなたの役に立つよ 
うに，と思って作成した FPP . MAC が活用 
されると非常に嬉しいですね。 

く参考文献〉 

1) 菜野雅彦 ： 「Inside X 68000」，ソフトバン 
ク，1992 

2) 「 MC 68881ユーザーズマニュアル」，電波新間 
社，1988 

3) 石上達也：「冬の夜長のスペクトル解析 j , 
Oh ! X , 1991年12月号 


FPP . MAC マクロマニュアル 


#シンポル （ A 5 reg ) 

シンボル ( A 5 reg ) が定義されていると CIR へ 
のアクセスが， A 5 相対アドレッシングモード 
でアクセスされる。定義されていないと物理 
アドレスでアクセスする。これは，68000が1/ 
0アクセス時に物理アドレスでアクセスする 
より，アドレスレジスタ相対アドレッシング 
でアクセスしたほうが速いために用意したも 
の。定義すると丨命令のたびに4クロック 
〜12クロックほど高速化されるが， A 5 レジス 
夕はプログラム全体を通して使用できなくな 
る。 

_マクロ中で定義されるシンボル 

マクロ中で主に使用されて，通常は使われ 


ないもの。 

CIRADR 

CIR があるベースアドレス 

CIRRES 

応答 CIR 

CIRCON 

コントロール CIR 

CIRSAVE 

セーブ CIR 

CIRREST 

リストァ CIR 

CIRCMD 

コマンド CIR 

CIRCND 

コンデイシヨン CIR 

CIROPR 

オペランド（データ ） CIR 

CIRRS 

レジスタ選択 CIR 

•応答 CIR の返り値（ヌルプリミティブ） 

circc 

コンデイシヨン CIR への害き 

cirnull 

込みに対する応答（真） 

68881がアイドル状態である 

cirread 

ことを表す 

応答レジスタの再度読み出し 

cirbusy 

68881の BUSY を表す 


実行アドレス評価 
データ転送プ U 5 ティブの内容 


•OP クラス010,011のもの 
OP 0 I 0 b バイト整数 

opOlO w ワード整数 


opOIOI s 

ロングワード整数/単精度実 


数 

opOlO d 

倍精度実数 

opOlO xp 

•レジスタ群 

拡張精度実数/パック型10進 

fp 0- fp 7 

数値演算プロセッサレジスタ 

fpsr,fpcr 

数値演算プロセッサコントロ 
ールレジスタ 

•ソースデータフオーマツト 

BYTE 

バイト 

—WORD 

ワード 

一 LONG 

ロングワード 

"single 

シングルリアル(単精度実数） 

DOUBLE 

ダブルリアル（倍精度実数） 

EXTENDED 

エクステンドリアル（拡張精 


度実数） 

PACKED 

パックドデシマルリアル（パ 


ック型10進） 

♦ ROM 定数オフセット値 

MOVECR 命令で使用するもの。. 

Pi 

n 

loglO 2 

Iogio 2 

exp 

e : 自然指数 

log 2 e 

log 2 e 

log 10 e 

logio ( e ) 

zero 

0.0 

In 2 

ln (2) = log e 2 

In 一 m 

ln (2) = log e IO 

expo 

10° 

exp | 

I 0 1 

exp 2 

I 0 2 

exp 4 

I 0 4 

exp 8 

I 0 8 

exp 16 

I 0 16 

exp 32 

I 0 32 

exp 64 

I 0 64 

exp 128 

I 0 128 


exp 256 

I 0 256 

exp 512 

I 0 512 

exp 1024 

I 0 102 

exp 2048 

I 0 204 

exp 4096 

lO 409 


籲 FBcc , FDBcc 命令のコンデイシヨンコード 
F F 偽 
F EQ 等しい 

F 0 GT オーダーでより大きい 
F OGE オーダーでより大きいか等しい 
F OLT オーダーでより小さい 
F OLE 才ーダーでより小さいか等しい 
F OGL オー■ダーでより大きいか，小さい 
F OR オーダー 
F UN アンオーダー 
F UEQ アンオーダーか等しい 
F UGT アンオーダーかより大きい 
F UGE アンオーダーかより大きいか等しい 
F ULT アンオーダーかより小さい 
_ F _ ULE アンオーダーかより小さいか等しい 
F NE 等しくない 
真 

以後の条件は，68881内部の NAN(Not A Num ¬ 
ber : 数でない もの） のビツ 卜がセツトされてい 
ると， FPSR レジスタの BUN がセットされる。 


F SF 

シグナリング，偽 

一 F 一 SEQ 

シグナリング，等しい 

一 F—G 下 

より大きい 

~ F~GE 

より大きいか等しい 

~ F _ LT 

より小さい 

一 F _ LE 

より小さいか等しい 

F~GL 

より大きいかより小さい 

一 GLE 

より大きいかより小さいか等しい 

- F.NGLE GLE でない 

F NG し 

GL でない 

~ F~NLE 

LE でない 

_ F~NLT 

l _ T でない 
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F_NGE GE でない 

>~NGT GT でない 

>_SNE シグナリング.等しくない 

> ST シグナリング，真 


マクロ命令 


まず，マクロ中に利用されるマクロで，ユー 
ザ ー プログラム中ではほぼ使われないものを 
紹介する (outreg :出カデータ. cirreg : CIR レ 
ジスタ）。 

•害き 込み命令 

MOVE . W と変わらないが，シンボル （ A 5 reg ) 
をチェックする。それぞれ，バイト，ワード， 
ロングワード型。 

CIROUTB outdata,cirreg 

CIROUTW outdata,cirreg 

CIROUTL outdata,cirreg 

• ロングワード 長害き 込み命令 
CIRINB outdata,cirreg 

CIRINW outdata,cirreg 

CIROUTL outdata,cirreg 

例） 

CIROUTW sfppreg くく 丨〇 + dfppreg く <7 + 
op.CIRCMD 

CIROUTL si, CIROPR 
籲応答プリミティブ用ウェイト命令 
応答 CIR がコンディションの値になるまで 
待つ （cond :コンデイシ ョン）。 

W STAT cond 
例)一 

W STAT cirnull 

•応答 CIR のカムアゲインビットのチェック 

カムアゲインビットが寝ていたら真。 

CMCHK 

次に，ブログラム中で使用されるマクロに 
ついて説明する。 

•FSTART 

数値演算プロセッサの初期化をするため， 
用意したもので，68881の例外状態からの復帰 
を行う（リセットに意味が近い)。 

•OPOOO sfppreg.dfppreg.op 
# OP 010 si,s2, s3, dfooreg,op,sdf 
sfppreg ソース FPP レジスタ 
dfppreg デステイネーシヨン FPP レジスタ 
op 命令コード 

si 外部ソース丨 （. x ,. p のみ利用） 
s 2 外部ソース2 (. d ,. x ,. p のみ使用） 

S 3 外部ソース3 (すべて利用） 
sdf ソースデータフォーマット（下記参照） 
OPOOO は FPP レジスタ間転送命令や FPP レジ 
スタ間演算命令などを行う。 dfppreg と sfppreg 
のレジスタを同じにすると単項演算命令にな 
る。ソースフォーマットは拡張倍精度に固定。 

OPOIO は外部->レジスタ間のデータ転送命 
令で，ソースレジスタを68000側のポインタな 
どを使った表記や，データレジスタを使った 
表記が可能。なお， sl ， s 2, S 3 の関係は， 
si x 2 64 + s 2 x 2 32 + s 3 

である。デスティネーションが拡張倍精度も 
しくはパック型10進なら si , s 2, s 3 を使用す 
る。倍精度なら s 2, S 3 を使用し， si はダミー。 
¥れ以下のビツトの ソースフォーマッ トは， 

S3 だけ利用し si, s 2 はダミーとなる。 

なお，数値演算プロセッサ内のレジスタ 


FP 0 〜 FP 7 は，どのような型から代入されて 
も，拡張精度実数に変換される。データの丸め 
も同時に行われるので注意。 


#FPP.MAC で使用可能な演算命令 

FABS 

| sfppreg | (絶対値） —dfppreg 

FACOS 

arccos ( sfppreg)—dfppreg 

氺 FADD 

sfppreg + dfppreg—dfppreg 

FASIN 

arcsin(sfppreg 卜 dfppreg 

FATAN 

arctan ( sfppreg)-»dfppreg 

FATANH 

arctanh ( sfppreg)->dfppreg 

氺 FCMP 

dfppreg-sfppreg (比較のみ） 

FCOS 

cos ( sfppreg)—dfppreg 

FCOSH 

cosh ( sfppreg)—>dfppreg 

氺 FDIV 

dfppreg-r sf ppreg—dfppreg 

FETOX 

e sfppreg —►dfppreg 

FETOXM ! 

gSfppreg_ 1 - >dfppreg 

FGETEXP 

s sfppreg の指数部 — dfppreg 

FGETMAN 

sfppreg の仮数部 —dfppreg 

FINT 

sfppreg の整数部 -— dfppreg 

FINTRZ 

sfppreg の整数イヒ —dfppreg 

FLOG 10 

logio ( sfppreg)—dfppreg 

FL 0 G 2 

log 02 ( sfppreg )-* dfppreg 

FLOGN 

In ( sfppreg ) -> dfppreg 

F し OGNPI 

ln ( sfppreg + 1) の — dfppreg 

ホ FMOD 

( dfppreg ) mod ( sfppreg)->dfppreg 

氺 FMOVE 

sfjDpreg-^dfppreg 

氺 FMUL 

sfppreg x dfppreg->dfppreg 

*FNEG 

-( sfppreg)->dfppreg 

木 FREM 

dfppreg + sfppreg(IEEE 除算)— 
dfppreg 

* FSCALE 

dfppreg x int (2 sfpprt，g ) —dfppreg 

氺 FSGLDIV 

dfppreg -r sfppreg (単精度)- ► 
dfppreg 

氺 FSGLMUL 

dfppreg 

sf 叩 「eg x dfppreg (単稍度）— 

FSIN 

sin ( sfppreg)—dfppreg 

FSINH 

sinh ( sfppreg)->dfppreg 

FSQRT 

sfppreg -* dfppreg 

* FSUB 

dfppreg - sfppreg-^dfppreg 

FTAN 

tan ( sfppreg)-*dfppreg 

FTANH 

tanh ( sfppreg)—dfppreg 

FTENTOX 

I 0 sf 叩 reg -dfppreg . 

FTST 

sfppreg のテスト（単項演算のみ） 

FTWOTOX 

2 s,ppreg ->dfppreg 


* のついた命令は単項演算ができない命令。 
なお ， In (Natural Log ) は log e のことである。 
例） OPOOO fpO , fpl.FADD 

OPOOO fpO , fpO , SINH * 単項演算 
OPOIOdO , d !, d 2, fpO , MOVE , EXTENDED 
0 POIO # O , #0, d 0, fpO , MOVE , LONG 
OPO 10 d 0, d I ， d 2, fpO , FSIN , —EXTENDED 
•FSINCOS 命令 

この命令は特殊で，デスティネーションが 
2つあるものである。したがって通常の表記 
ではできないため以下のように行う。ちなみ 
に，丨命令の時間で SIN 関数， COS 関数の2つ 
の計算を同時に行うため，非常に速い。 

例） OPOOO fpO ， fpl , FSINCOS + fp 2 
式） sin ( fp 0 )=fpl 
cos ( fp 0)= fp 2 

• OPO 11 sfppreg , dl , d 2, d 3, Kfactor , ddf 
sfppreg ソース FPP レジスタ 
dl 外部デステイネーション I 
(• x ,. p のみ利用） 

d 2 .外部 デスティネーション2 


(. d ,. x ,. p のみ使用） 
d 3 外部デスティネーション3 
(すべて利用） 

Kfactor K ファクター値（ただし静的） 
ddf デスティネーションデータフォー 

マット 

これは FPP レジスタ—外部転送専用 fmove 
命令。 dl , d 2， d 3 の使い方は，前項の si , s 2, 
s 3 とほぼ同様。 

Kfactor は，送り先のデータがパック型10進 
の場合のみ必要。そのほかではすべて0にす 
ること。この KFactor の値は2の補数の整数で 
コード化しなくてはならない。この値は7ビ 
ットの整数で次のような意味をもつ。 

-64 〜〇 10進小数点の右側の有効数字の数 
I 〜17仮数内有効数字数 
18〜63 FPSR 例外バイト内で 0 PERR ビット 
が セッ トされ+ 17として扱われる 
なお，動的 K ファクターの設定には対応して 
いない。一64〜一丨は必ず4 ビッ ト16進に変換 
すること。 KFactor の データフォーマッ トは， 
デステイネーショ ンの データフォーマットと 
同じなので注意。外部に転送されるときは，自 
動的にそれに適した丸めが行われる。 

例） OPOIlfpO , do , dl , d 2,：0, EXTENDED 
OPOIlfpO , dO , dl , d 2,+5, PACKED 
•FMOVECR ofs,dfppreg 
ofs 定数 ROM オフセット値 
dfppreg デスティネーション FPP レジスタ 
ROM 定数内容転送命令。 MC 68881のオンチ 
ッブ ROM から拡張精度定数を転送し， FPCR に 
より指定される精度まで丸めて dfppreg に転送 
する。オフセット値は， ROM 定数オフセット値 
の項参照のこと。 

例） MOVECR pi.FPO 
•OPIOO sfppcrreg.dl 
• OP 101. si , dfppcrreg 
sfppcrreg FPCR MC 68881内部コント ロー 
J レレジスタ 

dfppcrreg FPCR MC 68881内部コント ロー 
ルレジスタ 

dl デスティネーション値。 
si ソー スイ直 

浮動小数点システムコントロールレジスタ 
の内容を直接やりとりする。 ソース データフ 
ォーマッ トは long に固定。 

FPCR は MC 6888 1で起きる例外的なイネーブ 
ル，デイスイネーブルの制御，丸め精度の変更 
を行い， FPSR は分岐命令のためのフラグ，割 
り算の商ビットの格納を行う。 

例） OPIOOFPCR，dO 
OPI 0 I d 0, FPSR 
參 FBcc cc.braadr 

cc 条件（コンデイションコード） 

braadr ブランチアドレス 
条件を満たしている場合は分岐を行う 。 Bcc 
命令の FPP レジスタ対応版。 

例） FBcc FGT,braadr 

#FDBcc cc , dreg,braadr 

cc 条件（コンデイションコード） 

dreg データレジスタ （ dO 〜 d 7) 
braadr ブランチアドレス 
条件が真の場合は，演算を行わずにデータ 
レジスタのデクリメントを行う。このとき，デ 
一タレジスタが一丨でない場合， braadr に分岐 
する。 

例） FDBcc FGT , d 0, braadr 
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UB 

119 

120 

121 

122 

123 

124 

125 

126 

127 



{•START macro 

ifdef A5reg 

Lea C1RADH.A5 

endif 

CIROUTW #$00O1,CIRCON 
endm 


F p p アドレスの転送 


B •き込み命令 


CIROUTB macro 
ifdef 
move.b 
else 
move.b 
endif 
endm 

CIROUTW macro 
ifdef 
move.w 
else 
move.w 
endif 
endm 

CIROUTL macro 
ifdef 
move.1 
else 
move■1 
endif 
endm 


outdata.cirreg * C:I 
A5reg 

outdata,cirreg(aS) 

outdata,cirreg+CIRADR 


曲令 


outdata,cirreg * 
A5reg 
outdata,cirreg(a5) 

outdata,cirreg+CIRADR 


outdata,cirreg » C I R アウ 
A5re« 

outdata,cirreg(aS) 
outdata,cirreg+CIRADR ' 


C I R アウト（ワード）命命 


* C 


: R «み込み命令 


macro 

ifdef 

move.b 

else 

move.b 

endif 

endm 

macro 

ifdef 

move.w 

else 

move.w 

endif 

endm 

macro 

ifdef 

move.1 

else 

move.1 

endif 

endm 


cirreg,indata # C I 
A5reS 

cirreg(a5),indata 
cirreg+CIRADR,indata 


oirreg,indata * C ] 
A5re« 

oirreg(ad),indata 
cirreg+CIRADR,indata 


cirreg,indata * C ] 
A5reg 

cirreg(a5),indata 
cirreg+CIRADB,indata 


ワード）命令 


: ロングワード）#令 


* 応答プリミティブ用ウェイト命令 

* 

W_STAT macro cond 

local w_loop 
w_ 100 p: ifdef A5reg 

cmpi.w #cond,CIRRES{a5) 


else 

cmpi.w 

endif 

bne 

bra 

local 


#cond,CIRRES+CIRADR 

cirerr 
w stat end 
cirerr 


ifdef A5reg 

cmpi.b #fld,CIRRES(a5) 
else 

cmpi.b #$ld,CIRRES+CIRADR 
endif 

bne w_ 10 op 

CIROUTW #$0001,CIRCON 
local w_atat_end 
_stat_end: 

endm 

W_STAT macro cond 

local w_ 10 op 

w_loop ： 

ifdef A5reg 

cmpi.w #cond,CIRRES(a5) 
else 

cmpi.w #cond,CIRRES+CIRADR 
endif 

bne w_loop 

endm 

カムアゲインビットチェック 


« 例外か 6 の解脉 


CMCHK 


macro 

ifdef A5reg 
btst.b 
else 
btst.b 
endif 
endm 


#7,CIRRES(a5) 

#7,CIRRES+CIRADR 


« —般的な曲令 OP クラス 000 レジスターレジスタ M 

* 

OP000 macro sfppreg,dfppreg,op 

* sfppreg :ソースレジスタ 

* dfppreg : デイステイネーシ 3 ンレジスタ 

* op :命令コード 

W_STAT cirnull 

CIROUTW *{sfppreg< <10)+(dfppre«< <7)+op,CIRCMD 
endm 


.nliat 

消算ブロセツサ { m c 6 8 8 81 ) 用マクロ 

以下の文字列を定 * することによ〇、 

2 糯の動作に分岐します 


リスト1 FPP.MAC 


128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 
183 
181 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 
2C7 
208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 
23) 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 
246 

249 

250 

251 

252 

253 

254 


«的な命令 OP クラス 0 


外部ーレジスタ間 


si , s2 , s3 ,dfppre|{ ,op , adf 

外部 • ノース 1(.x, .p のみ利用） 

外部ソース 2 ( .d, .x, .p のみ使用） 

外部ソース 3 ( すべて利用〉 

» adf : 、ノースデータフオーマット（下記 # 照） 

W_STAT cirnull 

CIROUTW #S-l00O+(adf<<10) + (dfppreg<<7)+op,CIRCMD 
if sdf= BYTE 


W_STAT 

op010_b * 

バイ 

卜 

W STAT 

cirread 



CIROUTB 

a3,CIROPR 



sdf= WORD 



W_STAT 

op010_w * 

ワー 

K 

W STAT 

cirread 



CIROUTW 

a3.CIROPR 



(sdf= LONG).or.(sdf= 

.SINGLE) 

W STAT 

opO10_l3 * 

ロングワード 

W STAT 

cirread 



CIROUTL 

a3,CIROPR 



Udf= DOUBLE) 



W_STAT 

op010_d * 

谄精度実数 

W_STAT 

cirread 



CIROUTL 

s2,CIROPR 



CIROUTL 

s3,CIROPR 



(sdf=_EXTENDED).or.(sdf= 

PACKED) 

W_STAT 

opO10_xp * 

拡弭精度実败 

W STAT 

cirread 



CIROUTL 

si,CIROPR 



CIROUTL 

a2,CIROPR 



CIROUTL 

a3,CIROPR 




endif 

* W_STAT cirbusy 

endm 

FMOVECR rn&cro of a ( dfppreg 

* MC 68881 内部定 »ROM の M み出す 
» フォー マッ トは拡祺稍度のみ 
» of s : オフセット（内容は下記 # 照） 

W_STAT cirnull 

CIROUTW #$5c00+(dfppreg<<7)+ofs,CIRCMD 
endm 


fppreg.dstl,dst2,dst3,Kfactor,ddf 

- 外部デイステイネーシヨン 1(.x,,p のみ利用） 
外部デイステイネーシ3ン2 < .d, ,x, .P のみ使用】 
外部デイステイネーシ3ン3 (すべて利用） 

K ファクタ-通 


OP011 macro 

* d8tl 

* dst2 

* dst3 

* Kfactor 
W STAT cirnull 
CIROUTW #$6000+ {ddf< <10 ) + {afppreg<<7)+Kfactor,CIRCMD 
if ddfs BYTE 

W STAT op0U_b 
CIRINB CIR0PR,dat3 
elaeif ddf=_WORD 

W_STAT open w 
CIRINW CIR0PR,dat3 
elseif (ddf= LONG>.or.(ddf=_SINGLE 1 
W_STAT op011_ls 
CIRINL CIR0PR,dst3 
elseif ddf= DOUBLE 

w STAT op0ll_d 
CIRINL CIR0PR,dst2 
CIRINL CIROPR,dBt3 

e 丄 aeif (ddf=_EXTHNDED).or.<ddf=_PACKED) 

W_STAT op0tl_xp 

CIROPR.dstl 
CIR0PR,dst2 
CIR0PR,dst3 


endif 

endm 


CIRINL 

CIRTNL 

CIRINL 


macro 3fppcrreg,datl 

* sfppcrreg:FPcr MC 68881 内部コントロールレジスタ 
W_STAT cirnull 

CIROUTW #$aOOO+{8fppcrreg<<10),CIRCMD 
W_STAT oirread 
CIRINL CIROPR.dstl 
endm 

macro si.dfppcrreg 

* dfppcrreg :FPcr MC 68881 内部コントロールレジスタ 
W_STAT cirnull 

CIROUTW #*80O0+(dfppcrreK<<lO) ,CIRCMD 
W_3TAT oirread 
CIROUTL si.CIBOPR 
endm 

macro oc,braadr 

* co :荣件（下記鬌照） 

* braadr :ブランチアドレス 
W ミ TAT cirnull 

CIROUTW #cc,CIRCMD 
ifdef A5reg 

cmp.w #circc,CIRRES{a5) 


#circc,CIRRES+CIRADR 


else 
cmp. w 
endif 
beq 
endm 


macro cc , dreg, braadr * dreg: デー タレジスタ 
W_STAT cirnull 
CIROUTW #cc,CIRCMD 
•ifdef A5reg 

cmp.w #circc t CIBRES(a5) 


else 
cmp. w 
endif 
dbeq 
endm 


#circc,CIRRES+CIRADR 


deTxne device address 


C1BADR 

CIRRES 

CIRCON 

CIRSAVE 

CIRREST 

CIRCMD 

CIRCND 

CIROPR 

CIRRS 


equ 

equ 

equ 

equ 

equ 

equ 

equ 

equ 

equ 


Address 

9E9E0O0 

900 

$02 

$04 

$06 

$0A 

$0H 

$10 

$14 


CIR 

Base Address 

Responce 

Contorol 

Save 

Restore 

Command 

Condition 

Operand(Data) 

Retfiater Select 


る 

なえ 
K えか 
一かつ 
モつが 
グが夕 
ンタス 
シスグジ 
ツジンレ 
レレシの 
ド 5 ツて 
ァ A レべ 
対がドす 
相いァ•か 
5 や接い 
A は ® jg 
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255 

1 







256 

1 

応¥ C I 

R の内容 （ 

ヌルブリ 

ミ テイブ） 


257 

拿 







258 

t 



Code * 

Status 



259 

circc 


equ 

S0800 » 

コンデイ 

シ 3 ン CI 只への 


260 




t 

書き込みに対する ( 爽） 


261 

cxrnull 


equ 

$0802 * 

68881 がアイドル状®であることを*わす 

262 

cirrend 


equ 

$8900 « 

応答 レジスタの a w み 出し 


263 

cirbusy 


equ 

$0900 * 

68881 が BUSY である場合 


26 4 

t 







265 

* 

実行アト 

レス評 B 

/ データ 転送 ブリミ 

ティブの内容 


266 

* 







267 

opOlO b 


equ 

$9501 




268 

opO10 w 


equ 

$9502 




269 

opOlO1 


equ 

$9504 




270 

opOlO d 


equ 

S9508 




271 

opOlO xp 

equ 

$960c 




272 








273 

opOll b 


equ 

SblOl 




274 

opOl1 w 


equ 

$bl02 




275 

op0111 b 

equ 

$ bie 4 




276 

opOll d 


equ 

$b208 




277 

opOll xp 

equ 

$b20c 




278 








279 

oplOO -t 


equ 

$9504 




280 

oplOO 8 


equ 

>9608 




281 

oplOO12 

equ 

• 960c 




282 








283 

opl01_4 


equ 

SblO-l 




284 

oplOl8 


equ 

Sb208 




285 

oplOl12 

equ 

Sb20c 




286 








287 








268 

* 







289 

♦ 

define fpp register name 




296 

< 







291 








292 

fpO 


equ 

0 




293 

fpl 


equ 

1 




29-t 

f P 2 


equ 

2 




295 

fp3 


equ 

3 




296 

fp4 


equ 

4 




297 

fp5 


equ 

5 




298 

fp6 


equ 

6 




299 

fp7 


equ 

7 




300 

f par 


equ 

2 




301 

fpcr 


equ 

4 




302 

t 







303 

t 

S)ource 

D)ata F)ormat 




3(M 

l 







305 

LONG 


equ 

0 




306 

SINGLE 


equ 

1 




307 

EXTENDED 

equ 

2 




308 

PACKED 


equ 

3 




309 

WORD 


equ 

4 




310 

DOUBLE 


equ 

5 




311 

BYTE 


equ 

6 




312 

* 







313 

t 

define 

unction 

code 




314 

毒 







315 

FABS 


equ 

S18 




316 

FACOS 


equ 

$1C 




317 

FADD 


equ 

*22 




318 

FAS IN 


equ 

*0C 




319 

FATAN 


equ 

S0A 




320 

KATANII 


equ 

SOD 




321 

FCMP 


equ 

$38 




322 

FCOS 


equ 

SID 




323 

FCOSH 


equ 

$19 




324 

FDTV 


equ 

S20 




325 

FETOX 


equ 

510 




326 

FKTOXM1 


equ 

$08 




327 

FGETEXP 


equ 

$IE 




328 

FGETMAN 


equ 

$1F 




329 

PINT 


equ 

$01 




330 

FINTRZ 


equ 

$03 




331 

KLOO10 


equ 

$15 




332 

FLOG 2 


equ 

$16 




333 

FLOGN 


equ 

914 




334 

FLOGNP1 


equ 

S06 




_J ズト 

1 ： 


.include 

fpp.mac 




2 ： 


.include 

doscall.mac 




3： 








4: 


• xdef 

fsin 





5： 








6 ： 








7 ： 


•offset 

4 





8 ： 

num 

ds.1 

1 





9 ： 








1G: 


.text 






11 : 








12: 

fain: 

move.1 

num(a7 ) ,d2 




13: 








14 ： 

mc881 : 

clr.1 

-(SP) 


* 

スーパバイザモー 

ドに移行 

15 ： 


DOS 

_SUPER 






1 


.include 

'' 

fpp.mac 




2 


.include 


doscal1.mao 



4 

*A5reg 

equ 






6 


.xdef 

_fft 





8 


.offset 

4 





9 

CMPLX y 

ds .1 

1 





10 

CMPLX e 

ds .1 

1 





11 

nuro 

ds.1 

1 





12 

iw 

ds.1 

1 





13 








14 

savesize 

equ 

4*9 




15 








16 


.text 






17 








18 

fft ： 







19 


movem.1 

d3-d7/a3-a6,-(ap 




20 


movem.1 

CMPLX_y 

+saveaize( 

a7) , a5-a6 



335 

FMOD 


equ 

$21 


336 

FMOVE 


equ 

$oe 


337 

FMUL 


equ 

)23 


338 

FNEG 


equ 

»32 


339 

FREM 


equ 

S25 


340 

FSCALE 


equ 

S26 


341 

FSGLDIV 


equ 

$24 


342 

FS0LMUL 


equ 

*27 


343 

FSIN 


equ 

$0E 


344 

FSINCOS 


equ 

$30 


345 

FSINH 


equ 

902 


346 

FSQRT 


equ 

$04 


347 

FSUB 


equ 

S28 


34 8 

FTAN 


equ 

*0F 


349 

FTANH 


equ 

909 


350 

FTENTOX 


equ 

$12 


351 

FTST 


equ 

S3A 


352 

FTWOTOX 


equ 

SI1 


353 

* 




354 

* 

ROM 

定 》 才 

フセット 


355 

拿 





356 

Pi 


equ 

$00 

* n 

357 

log 10.2 


equ 

SOB 

* logl0(2) 

358 

exp 


equ 

30c 

» e: 目然指 ft 

359 

360 

log2_e 
log10_e 


equ 

equ 

S0d 

SOe 

* 1 〇 8 2(e) 

» loglO(e) 

361 

zero 


equ 

toe 

» 0.0 

362 

ln_2 


equ 

S30 

* ln(2)=log et 

363 

364 

ln_ 10 
t*xp0 


equ 

equ 

$31 

332 

搴 ln<2>=log el 
* 10*0 

365 

expl 


equ 

$33 

* lO'l 

366 

exp2 


equ 

<34 

* 10，2 

367 

exp4 


equ 

$35 

« 10*4 

368 

expB 


equ 

S36 

» 1(T8 

369 

expl6 


equ 

#37 

» 10*16 

370 

exp32 


equ 

S38 

* 10-32 

371 

exp6 4 


equ 

S39 

» 10*64 

372 

expl28 


equ 

)3a 

* 10~128 

373 

exp256 


equ 

93b 

寧 10-256 

374 

expS12 


equ 

13o 

* 10"512 

375 

expl024 


equ 

拿 3d 

* 10*1024 

376 

exp2048 


equ 

|3e 

拿 10~2 〇 48 

377 

exp4096 


equ 

$3f 

* 101096 

378 

攀 





379 

拿 

比較 




380 

拿 





381 

_F_F 


equ 

$eo 


382 

-F_EQ 


equ 

<01 


383 

F OGT 


equ 

S02 


384 

_F_OGB 


equ 

S03 


385 

F OLT 


equ 

骞 04 


386 

_F_OLE 


equ 

$05 


387 

一 F_OGL 


equ 

$06 


388 

_F_OR 


equ 

$07 


389 

_f_un 


equ 

$08 


390 

F UEQ 


equ 

尊 09 


391 

_>'_UGT 


equ 

SOa 


392 

_F_UGE 


equ 

(0b 


393 

F ULT 


equ 

S0c 


394 

_F_ULE 


equ 

90d 


395 

-F_ne 


equ 

*Qe 


396 

_ F _ T 


equ 

*0f 


397 

_F_3F 


equ 

no 


398 

_F_SEQ 


equ 

111 


399 

-F.GT 


equ 

S12 


-100 

_ し OE 


equ 

$13 


401 

_^_LT 


equ 

$14 


<102 

_F_LE 


equ 

$15 


.103 

_F_QL 


equ 

$16 


404 

_F_0LE 


equ 

S17 


405 

F NGLE 


equ 

$18 


406 

F NGL 


equ 

S19 


407 

_F_NLE 


equ 

Sla 


408 



equ 

tlb 


409 

_F_NGE 


equ 

91c 


410 

_P_NGT 


equ 

$ld 


•ill 

F SNE 


equ 

Sle 


412 

_F_ST 


equ 

tlf 


414 


.list 





FSIN.S 


16 


addq.1 

17 

18 


move.1 
FSTART 

19 


OPO 10 

20 

f 8 i r»: 

OPO11 

21 

fnove : 

move.1 

22 


DOS 

23 


addq.1 

24 


move.1 

25 


rts 

26 



27 


.bss 

28 

_SSP: 


29 


ds.1 

30 


.end 


#4,SP 

d0,_SSP 

*0,#0,d2,fpO,FSIN,_SINGLE * fp0=sin(d2) 

fp0,#0,#O,d2,0,_SINQLE 

_SSP,-(SP) * ユーザモードに愎掃 

: SUPER 

#4 ,SP 

d2,d0 


FFT.S 


num+savesize(a7),d6-d7 


22 







23 

_strt : 

move.1 

a6 , al 

* 

c 


24 


move.1 

a5, a0 

拿 

y 


25 


move.1 

d6,d0 

拿 

num 


26 


add.1 

#8 ,a0 




27 


add.l 

*8,al 




28 







29 

fr_i: 






30 


move.1 

(a0)+,(al)+ 

1 

c(i) .Re 

=y[ij.Re 

31 


move.1 

(a0)+,(al)+ 

< 

c(i].Io 

=ylil.lB 

32 


subq.1 

«1,d0 




33 


bne 

fr_i 




3‘l 







35 


move.1 

#l,d3 

拿 

cli 】 の 

i(d3> 

36 


move.1 

#l,d4 

* 

c 【 JJ の 

J(d4) 

37 







38 


cmp.1 

d3,d6 

* 

num(d6)-i(d3)<0 

39 


bit 

mc881 




40 


cmp.1 

d3,d4 

t 

j(d4)=i(d3)=<0 
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9areal6,30O,699,428 )； 
hile (1){ 

maatat(4ms_x,ims_y,ima_bl, 
mspos(Ama_x,&ms_y )； 
if(ms_bl==-1)mslDownJmB.x, ma_y )； 
if(ms_br ==-1)raarDown<ma_x, ms_y )； 


r) : 


一文字入力 */ 
rncpy(key, b_inkey0( 

itch(toupper< «key)) 
case 'A »： 


ipo() 
xit(0 


loadData () 
break ； 


(int lin 
int 


locate(0,28) : 
whiledine—) 


whilefcnt--) putchar(* 
putchar(* Vn *); 


OP0OO 

OPOO0 

OP000 


OP0OO 

OPOOO 

OPOOO 

OPQOO 


fpl,fp5,FMUL 
fp2,fp4,FMUL 
fp5,fp4,FADD 


fpS=c(j].Im{fp5) « cos(fpl) 
fp4=c[j].Re(fp4) * ain(fp2) 
• (fp4)str.Iro 


(a6,d3.1),d0 

#0,#O,dO,fp3,FM0VE,_SIN0LE 
fp3,fp5,FMOVE 
4(a6,d3.1) f dC 

#0,#0,d0,fp6,FMOVE, SINGLE 
fp6,fp7,FMOVE 


fp0,fp3,FSUB 
fp4,fp6,FSUB 
fp0,fp5,FADD 
fp4.fp7.FADD 


fp3=cm. 

fp5=c 【 i]. 


* fp6 


fp7: 


c【i ]. Im 


* c(jj.Re{fp3)=c[i].Re(fp3)-str.Re(fp0) 

* c 【 JJ.Im{fp6)=o[i].Ira(fp6)-atr.Im(fp4> 

* c fi|.Re(fp5)r C fi].Re < f P 5)+s tr.Re(fp 0 ) 
» c[i].Im(fp7)=c[i].Im(fp7)+str.In(fp4) 


inolude 

include 

include 

include 

include 


float 

float 


<baaic0.h> 
<basic.h> 
<roouse.h> 
<«raph.h> 
<fcntl.h> 
<math.h> 

cmplx ( ハ 
Re: 

Ira ； 


リ朴 4 MAINF.C 


•define NASI 0x4 
Jldefine BUFF_SIZE 


void 

void 


CMPLX C{BUPF_SIZE+1J, 
y[BUFF_SIZE+lJ, 
z(BUFF_SIZE+lJ ； 

double aC64+l]; 

short data{BUFF SIZE+1 ]； 

short moto[BUFF_SIZE+l]; 

char fileName[40J; 

int fn; 

drawGraph(short 本 , inti; 
fft(CMPLX *,CMPLX *, int, 


maint)( 

unaigned char atrtmpO[ 

unsigned char key[lj ; 


int 

int 


,ms_bl,ma_br; 



512,30 +256,8.NASI) : 
line (30,30+128,30 + 512,30+128,8^ 
mouse(4); 


#3,d4 

#3,d3 

(a6,d3.1),d0 
(a6,d4.1),U6,d3.1) 
d0,(a6.d4.lj 
4(a6,d3.1) ， d0 
4(a6,d4.1),4(a6,d3.1 
d0,4(a6,d4.1) 

#3,d3 

#3,d4 


fp3,#O,#O,d0,O,.SINGLE * c(j].Re(fp3) 
dO,(a6,d4.1) 

fp6,#O,#0,dO,O, SINGLE * o[J].Im(fp6> 
d0,4(a6,d4.1) 

fp 5) 


OPOll 
move.1 
OPOll 
move.1 

OPOll fp5,#0, 
move.1 d0,(a6,d3.1) 

OPOll fp7,#0,#0,d0,0, SINGLE 
move.l d 0 ， 4 (a6,d3.1) 


.#O.d0,0, 


INGLE * c(i]. 

c[ij.Im(fp7) 



cmp.1 
bit 


la し 
lsl. 


OP01O 

OP0O0 

OPOOO 

OP00O 

OP0OO 


d3,d6 
fr_i2_end 
d3,d4 
d5,d4 

#3,d4 拿 

#3 ， d3 * 

(a6,d4.1),d0 

tfO,*0,dO,fp4,FMOVE,_SINGLE 
fp4,fp0,FMOVE 
4(a6,d4.1),d0 

#0,#0,d0,fp5,FMOVE,.SINGLE 
fp5,fp3,FMOVE 


n(d6)-i(d3)<0 

j(d4)=i(d3) 


o[j].Im(fp5 t fp3) 


fpl,fp0,FMUL 
fp2,fp3,FMUL 
fp3,fp0,FSUB 


ip0=ctjJ.Re(fpO) * cos{fplI 
* ain(fp2) 


* ipO=cUJ.Re . 

* fp3=c[j].Im(fp3) 

* (fpO)str 


cmp.l 

ble 

sub.l 

aar.1 

cmp.l 

bge 

add.l 

addq.l 

bra 

clr.1 

DOS 

addq.l 


d6,d5 
#1,d5 

d5.d4 

wend_j 

d5,d4 

#1,d5 

#2.d5 

while_j 

d5,d4 

#l,d3 

-(SP) 

.SUPER 

f4,SP 

dO,_SSP 


r\(d6) = >m(d5 ) 
m(d5)/2s>m(d5) 


j(d4)=J-m(d5) 
ra(d5)/2=>m(da) 
in(d5)-2> = 0 


J(d4)=j(d4)+m(d5) 


: ードに以降， 


ble 

move.1 
add.l 
move.1 

cmp.l 

bit 

FMOVECR 

OPOIO 

OPOOO 

subq.1 

OPOIO 

addq.l 

OPOIO 


d5,d6 

wend_max 

d5,d2 

d2,d2 

*l,dl 


max|d5)=>ia 
ia(d2)*2s>i8 
l=>k(dl) 


dl,d5 
fr_k_en< 

Pi.fp7 

#0,#O,d7,fpO, 
fp7.fp0.FMUL 
ll.dl 

#0,#O,dl,fp0 
»1,dl 

*O,#0,d5 ， fp0,FDIV,_L 

dl,d3 

fp0,fp2,FSINCOS+fpl 


FMOVE,_LONG 


_LONQ 


iw(fp0)=iw(d7) 

iw(fp0)=iw*pi(fp7) 


iw(fp0)=iw»(k-l 
theta(fpOJ=iw/m 


( dl ) 

x(d5) 


i(d3)=k(dl) 
fp2=sin(theta) fpl= 



74: 

75: while t 
76: 


►文月さんの副業は，自勋車会社の仕事だったんですね。本業はライターですか？ 
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fr 12 end: 

addq 

bra 

fr_k_end ： 


fr_i3: 


cmp.l 
bit 
181.1 
move.1 
OP01O 
OP01O 
OPOll 
move.1 


OP01O 

OP010 


move.1 
lsr.l 
addq 
bra 


#1,dl 
fr_k 

d2,d5 * ia(d2) 

while_max 

#l,d7 * iw(d7) 

fftend 

#l,d3 * i(d3)= 

d3,d6 拿 num(d6 

fftend 
»3,d3 

(a6,d3.1),d0 
#0,#0,dO,fpO,FMO' 

#O,#0,d6,fp0,- 
fpO.fO.IO.dO, 
d0,(a6,d3.1) 

4(a6,d3.1),d0 

#0,*O,dO.fp0,FMOVE,_SINGLE * fp0=c[i 
#0,#O,d6,fp0,FDIV, LONO * c(i].Im=cti).Im(fpO)/n 
fp0,#0,*O,c!0,O,_SINGLE 
d0,4(a6,d3.1) 

»3,d3 
#l,d3 
fr_i3 

_SSP,-(SP) * ュ 

_SUPER 
#4,SP 

(sp)+,d3-d7/a3-a6 


* *8 

FMOVE, SINGLE » fp0=c 【 i】.R 
FDIV, LONG * c[iJ.Re=c[iJ. 
0, SINGLE 


Re(fp0)/n 


⑴ .Im 


add.l d2,d3 * i=i+is 

bra fr i2 


lsr.l *3,d4 
lsr.l #3,d3 
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** マウスの左ボタンが押された 
*/ 

mslDown(ir»t x, int y)( 
int ch; 

ch=(x - 3) / 11; 
erasVr(ch) : 
if{s[ch] >= 0) { 

slch]=(double)(428-y) / 30.0 ； 
s[ch]=pow((double)10.0,a[ch]) : 

} else { 

s[ch]=(double)(428-y) / 30.0; 
8[ch]=-pow((double)10.0,s[oh ])； 

} 

drawVr(ch )； 


** マウスの右ボタンが押された 
*/ 

msrDowntint x,int y)( 
int ch; 

int trap ； 

chsu - 3) / 11; 
locate(0,28); 
if ( x < 353 ) { 

printfr S I N M 数の Xd 番目の係数の逋は X4.2f です 
ch+ 1 •8[ch ]) ； 

1 else ( 

printfC* COS M» の Xd 番目の保 K の « は X4.2f です 
ch-31,8[ch]); 

} 

b_input (" 斬しい M を人れて下さい -> ",0x204 ； 

era3Vr(ch) ; 

s[ch]=tmp X 0x8900 : 

drawVr(ohJ : 

clrWin(2); 


»* ffl 面の初期化 
*/ 

int initSoreent) 
int i ； 


screen (2,0, 1.1 )； 
for (i=0 ； i< = 31 ； i++M 

line(6+i»ll,300,6+i*ll ,428, 9.NASI) : 
line(358+i* 11,300 ,358+i»11 ,428, 9.NASI )； 

} 

line (351,300,351 ， 42 8,5,NASI); 
locate( 76,3); 
puts("Commands ")； 
locate(77,5 )； 
puts("A)nalize"); 
locatet 77,?); 
puta("V)iew " 
locate(77,9 )； 
puts("Slave " 
locate(77,11J 
putat"L)oad " 
locate(77,13} 
putaC'E)xit '* 

for (i=0;i<=63;i + +) ( /* ボ •， 

a[i]=0 ； 
drawVr(i); 

) 


• ムを « く */ 


*/ 

int 


ボリューム安描く 
drawVr(int oh) 


x ~ ch 拿 n; 
if(a[ch]= 


0 ) 

428 ； 


428-loald(fabs(s[ch]))*30; 


拿 / 

int 


if) y < 300) y = 300; 
if( y > 428) y = 428; 
box(x,y,x+ll,y,9,NASI >； 


ボリュームを消す 


eraaVrt int ch) 
int x,y ； 


x = ch*11 
if(a[ch] 


ifl y 
if( y 


0 ) 

428; 


428-logie(fabs{a[oh)))*30; 


300) y = 300 ； 
428) y = 428; 


fill{x,y,x+ll,y,0 )； 

line(6tch*ll,3O0,6+ch*ll,428,9,NASI) : 
if < ch==31 I ch==32 J { 

linet 351,30 0,35 1,428, 5,NASI )； 

) 


*/ 

void 


面面に波形を描く 

drawQraph(short dat[], int olr) { 
int oy,ny ； 

int 1 : 

oy=158-dat[0]/32; 

for {i=l;i <= BUFF_SIZE ； i++> l 
ny =158 - dat[i] / 32; 
if(ny > 30+256) ny = 30+256; 
if(ny < 30) ny = 30 ； 

line(it29,oy f i+30,ny,clr,NASI); 
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oy=ny ； 

) 

box<30,30,30+512,30+256,8,NASI )； 
line(30,30+ 128,30+512,30 +128,8,NASIJ ； 


/* 

»* ファイルよ 0 « み込む 

»/ 

loadDataO I 

int fn ； 

int i; 

int length: 


locate!0,28 )； 

b_lnput<"File Name : " f sizeof(fileName ), fileName ， - 1 )； 
clrWin ⑴； 


fn = open(fileName, 0 BINARY | 0 RDONLY); 
if (fn >= 0) { 

length = filelength(fn); 

if (length > BUFF_SIZE 丨 sizeof(short>)( 

read(fn, (void * )dat&, BUFF_SIZE * aizeof(short)) : 

)else ( 

read(fn, (void *)data,length) : 
for(islength/8izeof(short)J i<= BUFF_SIZE; i++) 
data[i]=0 ； 

) 

cloae(fn}; 

fill{31,31,30+511,30+255,0 )； 
drawGraph(data,11 )； 

for(i=0; i<= BUFF_SIZE; i++) 
moto[i]=data[ij ； 


located 0,28}; 
puta{" ファイルがォ • 


プン出来ません ‘'}; 


»ノ 

BaveDataf) 

( 

int 


フ： r イルに保存する 


looate{0,28 )； 

b_input{"File Name: ",sizeof(fileName),fileName,-1 )； 
clrWin ⑴； 

fn = open(fileName, 0_BINARY | 0_WR0NLY | 0_CREAT) : 


if (fn >= 0) { 

write(fn, (void *)data, BUFF_SIZE 拿 sizeof!short)) : 
closetfn); 

} else { 

100 ate (0,28) ; 

puts T • フアイルがオーブン出来ません。； 


/* 

** 波形を解折する 

拿 / 

analize() { 

int i ; 


locate(0,28); 

puts("Now Calculating 


"M 


for{i=l；i <= BUFF_SIZE; i++) 
y[i].Re = motofi +1]; 
y 【 i 】 .Im = 0: 

) 

fft(y,c,BUFF_SIZE,-l )； 

for(i=0 ； i<=31 ； i+t) { 
eraaVr(i); 
s[i] = c[i+l].Re; 
drawVr(i); 

J 

for<i:32; i<=63; i++) { 
erasVr(i )； 
s[i) = c[i-30].Im ； 
drawVr(1 )； 

J 

cirWin ⑴； 


t* 

** 坡形を合成する 
*/ 

view()( 

int i; 


locate(0,28); 

puts("Now Calculating 

for(i=l;i <= BUFF.SIZE; i++) { 
y[i].Re = data[i] : 
y[i].Im = 0; 

} 

for{i=0 : i<s31; i++) 

c[i + l].Re = ati ]； 
for(i=32 ； i<=63; i++) 

cti-30J.Im = s[i]; 

fft(c, z, BUFF_SIZE,1) : 

for(i=l;i <= BUFF.SIZE ； i++)( 
data[i] = z[i].Re; 

I 

fill(31,31,30+511,30+255,0); 
drawGraph(moto,11); 
drawGraph(data, 131; 

clrWin(1) : 



Oh! X 1992.9. 










68881 並列駆動への挑戦 


Kuwano Masahiko 菜野雅彦 

高連に浮動小数点演算を実行してくれる6888101台使えば高速演算，2台使 
えば……とい5ことで，用意されている£1つの I / O ポー•卜を使い，数値演算プ 
_ロセツサ求一 K 0 並列駆動に挑戦してみます。 



X 68000 シリーズでは，浮動小数点演算プ 
ロセッサ （ MC 68881 :以下68881と略しま 
す）を I / O デバイスとして接続して，細々と 
した68881とのやりとりはすべてプ ログ ラ 
ムで処理するようになっています。68020 
以降の CPU では，浮動小数点演算命令を実 
行する！:， CPU 自体が自動的に（プロダラ 
マからは見えないところで)68881と連絡を 
とって演算処理を実行してくれます。その 
ため68881の存在自体を意識することもな 
く，単に CPU に浮動小数点レジスタが追加 
されたように見えるのです力 ? ，68000には 
残念ながら68881と直接接続するための信 
号がないため， I / O として接続するほかな 
いわけです。 

68881が I / O デバイスとして接続される 
ため，操作こそ面倒ではありますが，アド 
レスを変更してやれば複数の68881を接続 
することも可能となります。実際， X 68000 
でも数値演算プロセッサボード （ CZ -6 
BP 1) は基板上にあるピン設定で2種類の 
アドレス （$ E 9 E 0 O 0~/$ E 9 EO 8 O ~) が選択 
できるようになっています。ただし， X 68000 
の浮動小数点ドライバ （ FLOAT 3. X ) が対 
応するのはこのうち片側 ($ E 9 E 000~> だけ 
で，もう一方のアドレスは使い道もなく放 
置されています。 

今回は，ここに目をつけてアドレスを変 
えた数値演算プロセッサボード2枚を拡張 
スロットに挿入し，2つの68881を直接操作 
して演算処理性能の改善が図れる力’，実験 
をしてみることにしました。 

サンプル作成 

浮動小数点演算が多用される例としてす 
ぐ 思い浮かぶのは， レイトレーシング や流 
体力学のような重たさの極致のようなもの 
です。今回もこのような例を扱ぉうかとも 
思ったのですが，68881を直接扱うとなる 
と，ちょっとした演算処理でもプログラム 


の行数は予想以上に増加してしまい，見る 
のも打ち込むのもうんざりといった感じに 
なってしまいます。ここではもう少し簡単 
な例として，惑星の航行モドキのシミュレ 
ーシヨンを取り上げてみました。 

3つの物体のうち，ひとつを固定してお 
いて（太陽とでも考えてください），残る2 
つに適当な場所から適当な方向に初速度を 
与え，さらにそれぞれの物体どうしの間に 
距離の2乗に反比例するような，引力を働 
かせておきます。 

W 力や初速度などを適当に調整すると， 

2つの物体は太陽の周りを円や楕円を描き 
ながら周回し始めます力 5 '，回っている物体 
どうしの間にも引力があるため話は簡単で 
はありません。前方を進んでいるものが減 
速され，後方にあるものが加速される結果， 
軌道が少しずつ変化してしまうわけです。 

これをとりあえずエイヤ！とプログラ 
ムにしてしまったのがリスト1。初期値が 
変な値になっているのは当初，太陽，地球， 
月の3つにしようと思ったときの名残です。 
また，ソースが C にしてはやや奇妙になっ 
ているのは，お察しのとおり， X - BASIC の 
プログラムを BC . X にかけて得た C のソー 
スに手を加えて作っているためです。 

そして，68881を直接 アクセス するように 
書き換えたのがリスト2。だいぶ見苦しく 
なったような気がします。 コーディング 自 
体もあまりほめられたものではありません 
が，速度にはあまり影響はないでしよう。 
計算をすべて main () から追い出すためと， 
次のステツプである，68881を2個使うとき 
のことを考えて似たような計算をしている 
部分を関数にまとめてみました。 

そして，リスト2をさらにボード2枚化 
に対応させるように書き換えたのがリスト 
3です。68881の CIR を指すポインタが2つ 
になるとともに，同期をとるための wait_co 
pro () 関数が1枚目用と2枚目用の2つに 
分かれます。 


2枚同時に制御するとなると wait_copro 
() の呼び出し方，というか待つタイミングの 
考え方も少し変えなくてはなりません。1 
枚のときには，演算処理が終了したのを確 
認して次のコマンド発行にとりかかる，と 
いう方針でしたが，2枚のときには命令を 
与える前に前回の処理が完了しているかを 
チヱックするようになります。つまり，片 
側に命令を与えたら完了を待たずに他方に 
命令を与え，その次に最初に命令を与えた 
側を再度アクセスするときに初めて同期を 
気にするわけです。 

また68881の演算動作は応答 CIR の読み 
出しから開始されるようですので，コマン 
ドを与えたあとで応答 CIR を読み捨てる処 
理を マクロで 定義しています。 

結果はどラなったか 

さて，これらを コンパイルして 走らせて 
みました。描画する部分 （ circle ) はとりあ 
えず取り払って，走りだしたときと5000回 
ループが終了した時点の時刻だけを表示す 
るようにして実行します。 

結果は，ごく当たり前の float 3. X を使用 
した場合が約47秒, 68881が1個の場合が 
20秒，注目の68881が2個の場合は期待に反 
して1個のときと同じ20秒となってしまい 
ました。 

直接68881に アクセス することで（エラー 
処理がまったくないということもあります 
が）2倍以上速くなったのはまず満足でき 
る結果！：して，1枚と2枚で結果が同じと 
いうのは気に入りませんので，もう少し調 
ベてみました。 

その結果, wait _ copro () で CPU が待たさ 
れることはほとんどないということがわか 
りました。っまり，ほとんどの場合68881に 
命令を与えたあ t , ステータスを 見るとす 
でに処理が完了しているのです。68881を2 
個使って速くなるためには, 68881が演算処 
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理の最中に次の演算命令を他方の68881に 
与えられるというのが前提条件です。つま 
り，68881に比べて CPU が十分高速でなく 
てはならないわけです。 

t ころが, X 68000 では CPU のプログラム 
実行速度に比べて68881の演算処理速度が 
かなり速く， CPU が68881を侍つことはほ 
とんどないのが現状です。このため，68881 
を2個使っても単に交互に動作するという 
だけで，2つ同時には動作しておらず， 
処理性能はほとんど改善されないのです。 

さらに今回の演算がほとんど四則演算で 
あった t いうことが大きな原因ではないか 
と 考え，マニュアルを あたってみると，四 
則演算は50クロックから100クロック程度 
しかかからないことがわかりました。68000 
ではイミディエイト値の MOVE 命令など 
力?，ワード サイズであっても16クロック程 
度かかりますので，4命令程度実行してい 
る間に数値演算プロセッサ侧の演算が終了 
しています。しかも，元祖タイプの X 68000 
ではクロックは 10 MHz であるのに対し， 
68881は 16 MHz ですからますます CPU の 
処理の遅さが目についてきます。 


»» リスト 1: float?.x を旱师 
*/ 

参 define X68K 1 
倉 define J31 0 


#if X68K 
ixnclude 
# include 
♦include 
#endif 


<basic0.h> 
<basic.h> 
<graph.h> 


static 

int 

cx; 

static 

int 

cy; 

static 

int 

mxx 

static 

int 

roxy 

static 

double 

apx 

static 

double 

apy 

static 

double 

adx 

static 

double 

ady 

static 

double 

bpx 

static 

double 

bpy 

static 

double 

bdx 

statio 

double 

bdy 

static 

double 

ble2 

static 

double 

ale2 

static 

double 

xle2 

static 

double 

blex 

static 

double 

bley 

static 

double 

alex 

static 

double 

aley 

static 

double 

xlex 


static double xley ； 
static double aforce; 
static double bforce ； 
static double xaforce; 
static double xbforce; 
static double afx ； 
statio double bfx ； 
static double axfx ； 
static double bxfx ； 
static double afy; 
static double bfy; 
static double axfy ； 


45 

static 

double 

bxfy; 

46 

static 

double 

cstl; 

47 

static 

double 

cst2; 

48 

statio 

int 

i ； 


#if J31 

double aqrt(); 
#endif 

void prtime(); 
double calforce() 


/ 拿 t 韋 t 專 ， program start 
main(b_argc,b_argv) 
int b_ar«c; 


再挑戦してみる 

かなり長いリストを作りながら残念な結 
果しか得られなかったわけですが，このま 
ま引き下がるのはなんとも悔しいので，な 
んとか一矢報いる手を考えてみました。マ 
ニュアルを見る！:，三角関数や LOG など， 
超越関数関係は500クロックから600クロッ 
ク程度かかるようなので，こちらを多用す 
れば2個使った成果が出せそうです。試し 
に FSINCOS 命令を使って，角度を0.001か 
ら0.001刻みで変化させながら SIN 値と 
COS 値を求める演算を50万 x 2回やらせ 
てみました。極力単純にするため，内部演 
算だけで結果は取り出さずにやってみます。 
リスト4力 ? 68881を1個だけ，リスト5は 
68881を2個使ったプログラムです。 

これは大きな効果がありました。68881が 
1個のときは43秒なのに対し，2個使うと 
26秒 t なり約1 . 7倍も高速化されました。こ 
の結果により，超越関数を多用するときは 
68881を複数使うことで,大きく処理速度を 
引き上げられることがわかります。 

リスト1 


char *b argv[] ; 

{ 

8creen( 2 ,0,1,1); 
mxx= 767;mxy= 511 ； 
cx= 384 ； cy= 256; 

circle(cx,cy,5,15,*NASI , ,'NASI', , NASI , )； 

ox ； apy= oy-149.6 ； adx= 2.9718 ;ady= 0; 

bpx= cx-10 ； bpy= cy-139.6 ;bdx= 3.141 ； bdy= 0 ； 

C3tl= 6.672*1.989l ； cat2= cBtl 本 0.02; catl= cstl*10O; 
prtime(); 

for(i=0 ； i<= 50O0;i++){ 

ble2 = callentbpx,(double)cx,bpy,(double)cy,&blexi&bley); 

ale2 = callen(apx,(double)cx,apy,(double)cy,&alex,&aley) : 

xle2 = callen(apx,bpx,apy,bpy,&xlex,4xley); 

aforce= cstl/ale2 ； 

bforces cstl/ble2 ； 

xaforces cst2/xle2; 

xbforoe= cst2/xle2; 

afx = calforce{aforce,alex,ale2,apx,(double)cx) : 
bfx= calforce(bforce,blex,ble2,bpx,(double)cx) : 
axfx= calforce{xaforce,xlex,xle2,apx,bpx); 
bxfx= cal force(xbforce,xlex,xle2,bpx,apx J : 
afy= calforce(aforce,aley,ale2,apy,(double)cy); 
bfy= calforce(bforce,bley,ble2,bpy,(double)cy); 
axfy= calforce{xaforce,xley,xle2,apy,bpy )； 
bxfy= calforce(xbforce,xley,xle2,bpy,apy); 
adx= adx+afx+a.vfx;ady= ady+afy+axfy ； 
bdx= bdx+bfx+bxfx : bdy= bdy+bfy+bxfy; 

/* adx=adx+afx : ady=ady+afy*/ 

/» bdx=bdx+bfx : bdysbdy+bfy*/ 

circlet(int)(apx),{int)(apy),3,0,'NASI', , NASI , ,'NASI'); 
cirole((int)(bpx),(int)(bpy),3,0,'NASI*,'NASI', 'NASI') : 
circlet(int)(apx+adx),{int)(apy+ady),3,13,^NASI*,'NASI*,'NASI *)； 
circle ( ( int) (bpx+bdx) , (int) (bpy+bdy),3,15, ， NASI. r , *NAS2 • , *NASI •) : 

apx= apx+adx ； apy= apy+ady; 
bpx= bpx+bdx;bpy= bpy+bdy; 

if( apx>mxx | apx<0 | apy>mxy 丨 apy<0 )(break；J 
if ( bpx>m.\x j bpx<0 I bpy>mxy I bpy<0 )| break;} 

) 

prtime(); 


callenfpx.cx.py.cy,lex,ley) 

double px,cx,py,cy,*lex,*ley; 

( 

return( (*lex = (px-cx)*(px-cx)) ♦ { 掌 ley = (py-cy)t(py-cy))) : 


double calforce(force,lei,le2,p,c) 
double force,lei,le2,p,c ； 

l 

double f; 

f = force t aqrt(lel/le2 )； 
If (p > c) 

return(-f >； 
return(f); 


#if J3I 
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結論 

浮動小数点の四則演算が主体の場合には, 
68881を2枚使ってもほとんど効果が得ら 
れないこと，より複雑な関数演算では大き 
な成果が得られることが実証できました。 
考えようによっては，四則演算が速くなら 
ない理由として，整数演算が主体の場合に 
68881を付けても速くはならない，というの 
t 同じようなものだということもできるで 
しょう。 

つまり，整数演算が主体なら CPU だけ 
で，浮動小数点の四則演算など単純な演算 
なら68881が1個だけで十分であり，複雑な 
関数計算が主体になったときには，68881を 
複数使うと性能を大きく改善することがで 
きるということになります。 

そして，ほとんど68881の演算ばかりとい 
うプログラムでは， CPU による処理を100 
クロック程度と見積もった場合，5個程度 
までは同時に動かすとそれなりの効果が得 
られそうです。どなたかチヤレンジしてみ 
ませんか？ 
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123 

circle(x , y,1,col) 


134 

#endif 

124 

int x,y,1,col : 


135 


125 

{ 


136 

void prtime() 

126 

crt_line(x-l,y,x+l,y,col) : 


137 

{ 

127 

crt_line(x,y-l 1 x,y+l l col) : 


138 

int bt ； 

128 

) 


139 

bt = TIMEBIN(TIMEGET ())； 

129 



140 

printfC'Xd Xd¥n" , (bt>>8)&0xff, bt k 0xff); 

130 

acreen() 


141 

) 

131 

1 


142 


132 

ort mode(0x74 )； 


143 


133 

} 一 





'」 スト e 


12 

union 

DAT l 



13 


unsigned 

char 

cdat; 

14 


unsigned 

short 

sdat ； 

15 


unsigned 

int 

idat; 

16 


float 


fdat; 

17 


unsigned 

int 

i2dat 【 2J; 

18 


double 


ddat; 

19 

)dat ； 




20 





21 

struct 

CIR ( 



22 


unsigned 

short 

response; 

23 


unsigned 

short 

control; 

24 


unsigned 

short 

save; 

25 


unsigned 

short 

restore; 

26 


unsigned 

short 

operation 

27 


unsigned 

short 

command; 

28 


unsigned 

short 

reaervel ； 

29 


unsigned 

short 

condition 

30 


unsigned 

int 

operand; 

31 


unsigned 

short 

regiater_ 

32 


unsigned 

short 

reserve2; 

33 


unsigned 

int 

instructi 

34 


unsigned 

int 

operand_a 


96 

97 

98 

99 
100 
101 
102 
103 


* リスト 2 : 68881 面接操作 
*/ 

# include 
^include 
finclude 
finclude 
(include 


<basic0.h> 
<ba8ic.h> 

く graph.h> 

<iocslib.h> 

<stdio.h> 


Idefine wait_copro(x) while((cir->response&0xbfff)!=x) 


double の分柳 | き液し用 


on_j 

ddr< 


address : 
esa; 


/* Not used 


/* Not used */ 


volatile struct CIR 本 cir = (struct CIR 本） 0:ce9e000; 


39 

40 

static 

static 

int 

int 

cx; 

cy; 


41 

Btatic 

int 

nxx 


42 

static 

int 

mxy 


43 

static 

double 

dcx 

dcy 

44 

static 

double 

apx 


45 

static 

double 

apy 


46 

47 

static 

static 

double 

double 

adx 

ady 

bpx 


48 

static 

double 


49 

static 

double 

bpy 


50 

static 

double 

bdx 


51 

static 

double 

bdy 


52 

static 

double 

ble2; 

53 

static 

double 

ale2; 

54 

atatio 

double 

xle2 ； 

55 

static 

double 

blex; 

56 

static 

double 

bley; 

57 

statio 

double 

alex; 

58 

atatio 

double 

aley; 

59 

static 

double 

xlex : 

60 

statio 

double 

xley; 

61 

static 

double 

aforoe; 

62 

static 

double 

bforce : 

63 

static 

double 

xaforce 

64 

static 

double 

xbforce 

65 

statio 

double 

afx ； 

66 

static 

double 

bfx 


67 

static 

double 

axfx; 

68 

static 

double 

bxfx; 

69 

70 

static 

statio 

double 

double 

afy; 

bfy ； 

axfy; 

71 

static 

double 

72 

static 

double 

bxfy ； 

73 

static 

double 

cstl ； 

74 

static 

double 

C8t2 : 

75 

76 

static 

int 

i ； 


77 

double 

calforce(); 



void calf() : 
void caidxy ()； 
void calpxy(); 
void prtirae(); 

/• 本 ** 專 ••• 拿 * program start ♦ 本 **** 本 * 本 */ 

main{b_argc,b_argv) 

int b_argc ； 

char *b arav[]; 

l 

SUPER(0 )； 
screen(2,0,1,1); 
mxx= 767;mxy= 511; 
cxs 384 ； cy= 256; 

dcx = (double)cx; dcjr = (double)cy; 
cirole(ox,cy,5,15,'NASI','NASI *,'NASI 1 ) 
apxs cx : apy= cy-149-6 : adx= 2.9718 

bpx= cx-10 ； bpy= cy-139.6 ;bdx= 3.141 


cstls 6.672*l,9891 ； CBt2= 


ady= 0; 
bdy= 0; 


tlt0.02 ； cat.l= cat 1» 100 ； 


prtime ()； 

for(i=0 ;l<= 5000;i++)( 

ble2 = callen(ftbpx,idcx,&bpy,tdcy,&blex,&bley) 
ale2 = callen{&apx,&dcx,4apy,&dcy ， & alex,&aley) 
xle2 = callen (lapx, &bpx, iapy, itbpy, &xlex ， & xley) 
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159 

160 
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165 

166 
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171 

172 

173 

174 
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177 

178 

179 
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aforce= cstl/ale2 ； 
bforce= cstl/ble2 ； 
xaforce= cst2/xle2 : 
xbforoe= cat2/xle2 : 

/ 

calf(); 

afx = cal force(&aforce,&alex,&ale2,4apx,&dcx )； 
bfx= cal force (Jtbforce, &blex ， & ble2 , &bpx ,&dcx )； 
axfx= calf orce (Sixaf orce ， & xlex, &xle2 , &apx, 4bpx > ; 
bxfx= calforce(&xbforce ， & xlex,&xle2,4bpx,&apx) : 
afy= ca] force {4a force , &aley, &ale2 , &apy,Scdcy )； 
bfy= ca1 force(&bforce,&bley,&ble2,ibpy,tdcy )； 
axfy= ca1 force(txaforce,txley,&xle2,&apy,&bpy); 
bxfy= ca1force(&xbforce,ixley ， & xle2,&bpy,&apy); 


adx= adx+afx+axfx;ady= ady+afy+axfy; 
bdx= bdx+bfx+bxfx;bdy= bdy+bfy+bxfy; 

/ 

caidxy() : 

cirole((int)(apx),(intKapy),3,0,'NASI','NASI*,*NASI , ); 
circle" int) (bpx) , ( int) ( bpy) , 3,0 , 'NASI * , 'NASI* , 'NASI* )； 
circlet(int>(apx+adx),(int)(apyfady),3,13,’NASI’,'NASI','NASI 1 ) : 
circlet(int)(bpx+bdx),(int)(bpy+bdy),3,15,'NASI 1 ,'NASI *,'NASI ')； 


apx= apx+adx;apy= apy+ady ； 
bpx= bpx+bdx ； bpy= bpy+bdy; 


calpxy() : 


prtime(} 


callen(px,cx,py,cy,lex,ley) 

double *px,*cx,*py,*cy, 本 lex, 本 leyJ 


union DAT *dat; 
double retdat; 
return((<lex = 


dat = px ； 

cir->command = 0x5400 ； 
wait_copro(0x9608 )； 
cir->operand = dat->i2dat[0] : 
cir->operand = dat->i2dat[1j ； 
wait_copro(0x0802) : 

dat = cx ； 

cir->command = 0x5428; 
wait_copro(0x9608) : 
cir->operand = dst->i2dat[01 : 
cir->operand = dat->i2dat[1] : 
wait_copro(0x0802) : 

cir->command = 0x0023 ； 
wait_copro(0x0802 )； 

dat =lex ； 

cir->coramand = 0x7400 ； 
wait_copro{0xb208); 
dat->i2dat{0] = cir->operand; 
dat->i2dat 【 1 】 : cir->operand : 
wait_copro(0x0802 )； 


dat = py; 

cir->command = 0x5480 : 
wait_copro(0x9608 )； 
cir->operand = dat->i2dat[0] : 
cir->operand = dat->i2dat[1] : 
wait_copro(0x0802); 

dat = cy; 

cir->command = 0x54a8 ； 
wait_copro{0x9608) : 
cir->operand = dat->i2dat(0]; 
cir->operand = dat->i2dat[1]; 
wait_copro(0xO8O2) : 

cir->coramand = Ox04a3; 
wait_copro(0x0802) : 

dat =ley; 

cir->command = 0x7480 ； 
wait_copro(0xb2O8) : i 

dat->i2dat(0J = cir->operand ； 
dat->i2datl1]=cir->operand; 
wait_copro(0x0802); 

cir->command = 0x0422 ； 
wait_copro(0x0802 )； 

dat = &retdat; 
cir->command = 0x7400; 
wait_copro(0xb20S )； 
dat->i2dat[0] = cir->operand ； 
dat->12dat[11=cir->operand ； 
wait_oopro(0x0802); 


(pk-cx>*{px-cx)} + け ley = (py-cy)»(py-cy)) ) ;*/ 
/♦ FMOVE.D px,FP0 */ 


/* FSUB.D cx,FP0 


/« FMUL FPO.FP0 


/* FMOVE.D FP0,*lex 


/* FMOVE.D py.FPl 


/* FSUB.D cy.FPl 拿 / 


/« FHUL FP1.FP1 


/* FMOVE.D FPl,*ley 


/* FADD FP1.FP0 


ft FMOVE.D FPO.retdat */ 


特集 68881 並列駆動への挑戦 101 















oir->command = 0x7480; 
wait_copro(0xb208) : 
dat->i2dat[0) = cir->operand; 
dat->i2dat 【 1]=cir->operand ； 
wait_copro(0x0802) : 


/* FMOVE.D FP1.bforce 


dat = &cst2; 
cir->command = 0x5400 ； 
wait_copro(0x9608 )； 
cir->operand = dat->i2dat[0 ]； 
cir->operand = dat->12dat(1 ]； 
wait_copro(0x0802); 

cir->command = 0x0080 ； 
wait_copro(0x0802 )； 

dat = &xle2; 
cir->oonmand = 0x5420 : 
wait_copro(0x9608); 
cir->operand = dat->i2datl0J; 
cir->operand = dat->i2datl1 】 ； 
wait_copro(0x0802 )； 

dat = &xle2 ； 
cir->command = 0x54aO; 
wait_copro(0x9608) : 
cir->operand = dat->i2dat[0J : 
cir->operand = dat->i2dat 【 11; 
wait_copro(0x0802 )； 

dat = &xaforce; 
cir->comraand = 0x7400; 
wait_copro(0xb2O8) : 
dat-)i2dat[0] = cir->operandJ 
dat->i2dat[11=cir->operand ； 
wait_copro(0xO802 )； 

dab = &xbforce; 
cir->command = 0x7480; 
wait_copro(Oxb208 )； 
dat->i2dat[0] = cir->operand; 
dat->i2dat[1)=cir->operand ； 
wait_copro(0x0802) : 


/* FMOVE.D cat2,FP0 


/拿 FMOVE FP0.FP1 


/拿 FDIV.D xLe2,FP0 


/* FDIV.D xle2,FPl 


/* FMOVE.D FP0,xaforce 


I* FMOVE.D FPl.xbforce 


* adx= adx+afx+axfx ； ady= ady+afy+axfy ； 

* bdx= bdx+bfx+bxfx;bdy= bdy+bfy+bxfy; 

*/ 

void caldxy(J 


union DAT 


»dat; 


dat = &adx; 

cir->command = 0x5400; 
wait_copro{0x9608); 
cir->operand = dat->i2datl0 ]； 
cir->operand = dat->i2dat[1] : 
wait_copro(0x0802) : 

dat = &afx; 

cir->command = 0x5422 : 
wait_copro(0x96O8); 
oir->operand = dat->i2dat[0]; 
cir->operand = dat->i2dat(1j; 
wait_copro(0x0802 )； 

dat = 4axfx ； 
cir->command = 0x5422 : 
wait_copro{0x9608) : 
cir->operand = dat->i2dat 【 0]; 
cir->operand = dat->i2dat(1 ]； 
wait_copro(0xO8O2 )； 

dat = &adx ； 

cir->command = 0x7400; 
wait_oopro(0xb208 )； 
dat->i2dat[0] = cir->operand; 
dat->i2dat[1]=cir->operand ； 
wait_copro(0x0802); 


/* FMOVE.D adx,FP0 


/» FADD.D afx,PP0 


/* FADD.D axfx.FPO 


/* FMOVE.D FP0,adx */ 


dat = tady; 

cir->command = 0x5400; 
wait_copro(0x9608) : 
cir-> operand = dat->i2dat[0] : 
oir->operand = dat->12dat(1] : 
wait_copro(0x0802 )； 

dat = &afy ； 

cir->command = 0x5422 ； 
wait_oopro(0x9608 )； 
cir->operand = dat->i2dat(01; 
cir->operand = dat->i2dat[1j : 
wait_oopro(0x0802 )； 

dat = &axfy; 
cir->coromand = 0x5422 : 
wait_copro(0x9608) : 
cir->operand = dat->i2dat[0); 
cir->operand = dat->12dat(1]; 
wait_copro(0x0802); 

dat = &ady : 

cir->command = 0x7400; 
wait_copro(0xb208 )； 
dat->i2dat(0] = cir->operand : 
dat->i2dat[1]= oir->operand ； 
wait_copro(0x0802 )； 


/* FMOVE.D ady,FP0 


/* FADD.D afy,FP0 


/» FADD.D axfy,FP0 


t* FMOVE.D FP0,ady »/ 


dat = &bdx; 

cir->command = 0x5400 : 
wait_copro(0x9608 )； 
cir->operand = dat->i2datI 0] : 
cir->operand = dat->i2dat[1] : 
wait_copro(0x0802) : 


/« FMOVE.D bdx.FPO 
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return(retdat); 


double calforce(force,lei,le2.p ( c) 

double 零 force,»lel, 尊 le2,»p ，蓴 o; 

{ 

unsigned int ack ； 

double f; 

union DAT *dat; 

/< f = force * sqrt(lel/le2 )； */ 

dat =lei; 

oir->conwnand = 0x5400; 
wait_copro(0x9608){ 
cir->operand = dat->i2dat[0]; 
cir->operand = dat->i2dat(1]; 
wait_copro(0x0802); 

dat =le2; 

cir->command = 0x5420 : 
wait_oopro(0x9608); 
cirOoperand = dat-> i2dat [ 0]; 
cir->operand = dat->i2dat[1]; 
wait_copro{0x0802 )； 

cir->command = 0x0004; 
wait_copro(0x0802) : 


dat = force; 
cir->command = 0x5423 ； 
wait_copro(0x9608); 
cir->operand = dat->i2dat[0 ]； 
cir->operand = dat->i2dat[1]; 
wait_copro(0x0802) : 


ft FMOVE.D lel,FP0 


/» FDIV.D le2,FP0 


/« FSQRT.D FP0,FP0 


FMUL.D force,FP0 


if (p > c) 

return<- 
return(f )； 


dat = p ； 

cir->command = 0x5480; 
wait_copro(Ox9608) : 
cir->operand = dat->i2dat{0J; 
cir->operand = dat->i2dat[1] : 
wait_copro(Ox0802) : 

dat = c ； 

cir->command = 0x54a8; 
wait_copro(0x9608); 
cir->operand = dat->i2dat[01; 
cir->operand = dat->i2dat[1j; 
wait_copro(0x0802); 


cir->condition : 
do ( 

ack 

)while((ack & 0xbffe) 

if ((ack & 1)== 0) { 

cir->command = 0x001a ； 
wait_copro(0x0802); 

) 

dat : &f; 

cir-)command = 0x7400 ； 
wait_copro(Oxb208); 
dat->i2datl0) = cir->operand; 
dat->i2dat(1]=cir->operand ； 
wait_copro(0x0802 )； 

return(f )； 


aforce= catl/ale2; 
bforce: catl/ble2 ； 
xaforce= cst2/xle2 : 
xbforce= cst2/xle2; 


/« FMOVE.D p.FPl 


/* FSUB.D c.FPl 


/* Yes 

/* FNEQ FP0.FP0 


/< FMOVE.D FP0,f 


void calf() 


union DAT- *dat; 

dat = &cstl; 
cir->command = 0x5400; 
wait_copro(0x9608 )； 
cir->operand = dat->i2dat[0 ]； 
cir->operand = dat->i2dat[1J ； 
wait_copro(0x0802 )； 

cir->command = 0x0080 : 
wait_copro(0x0802); 

dat = &ale2; 
cir->command = 0x5420 : 
wait_copro(0x9608 )； 
oir->operand = dat->12dat[0 ]； 
cir->operand = dat->i2dat[1 ]； 
wait_copro(0x0802); 

dat = &ble2 : 
cir->command = 0xS4a0 ； 
wait_copro(0x9608); 
cir->operand = dat->i2dat[0 J; 
cir->operand = dat->i2dat[1] : 
wait_copro(0x0802}; 

dat = &aforce : 
cir->command = 0x7400 : 
wait_copro(0xb208); 
dat->i2dat[0] = cir->operand ； 
dat->12dat[1j = cir->operand; 
wait_oopro(0x0802); 

dat = &bforce ； 


/* FMOVE.D cstl f FP0 


/* FMOVE FP0,FP1 


/* FDIV.D ala2,FP0 


/* FDIV.D ble2,FPl 


/* FMOVE.D FPO.aforce 
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volatile struct CIR ♦cira = (struct CIR *)0xe9e0QO; 
volatile struct CIR *cirb s (struct CIR * )0xe9e080: 


/» 

* リスト 3: 

»/ 

iinclude 

•include 

•include 

•include 

•include 


<basicO.h> 
<baaic.h> 
(graph.h> 
<iocslib.h> 
<8tdio.h> 


•define wait_coproa(x) 
参 define wait_coprob(x) 
書 define read_coproa() 
•define read_coprob() 


union 


while((cira->responaei0xbfff)!=x) 
whileitcirb->re8ponse&0xbff f)!=x) 
dummy = cira-> response 
dummy = cirb->response 


DAT l 

unsigned char 
unsigned short 
unsigned int 
float 

unsigned int 
double 


cdat; 
sdat; 
idat; 
fdat ； 
i2dat(2]; 
ddat; 


/* double の分鹏 | き渡し用 


41 

42 

43 

44 

45 

46 


49 

50 


54 

55 

56 

57 

58 

59 


CIR ( 

unsigned 

unalsned 

unsigned 

unsigned 

unsiffned 

unaisned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unaisned 

unsigned 


short 

short 

short 

short 

short 

short 

short 

short 

int 

short 

short 

int 

int 


response ； 
control; 
save; 
restore : 
operation_word ； 
command : 
reserve1; 
condition ； 
operand; 


re8erve2; 

in8truction_addreaa : 
operand_addres8 ； 


/* Not used 


/* Not used 
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U スト 3 


►水谷優子さんの CD 「元気」を聴いて いる と切なくなってしまう。ちよっとしたことに心 
を動かされてしまうのは，心の貧しさの現れか，それとも哉をとったからか。 

坊農誠 (21) 福井県 


特集68881並列駆動への挑戦 1〇3 
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dat->i2dat[ 1 ] = cir->operand; 
wait_copro(0x0802); 

dat = &apy; 

cir->oommand = 0x5400 : 
wait_copro{0x9608); 
cir- 孓 operand = dat->i2dat[0] : 
cir->operand = dat->i2dat[1]; 
wait_copro(0x0802); 

dat = &ady; 
cir->command = 0x5422 
wait_copro(0x9608); 
cir->operand = dat->i2dat10 】 ； 
cir->operand = dat-r>i2dat[1 ]； 
wait_copro(0x0802); 

dat s &apy; 

cir->command = 0x7400; 
wait_copro(0xb208 )； 
dat->i2dat(0J = cir->operand; 
dat->i2dat(1]=cir->operand ； 
wait_copro(0x0802); 


dat = &bpx ； 

cir->command = 0x5400; 
vmit_copro(0x9608); 
cir->operand = dat->i2dat[0 ]； 
cir->operand = dat->i2dat[1] : 
wait_copro(0x0802 )； 

dat = &.bdx; 

cir->oommand = 0x5422 : 
wait_copro(0x9608); 
oirOoperand = dat-> i2dat(0] : 
cir->operand = dat->12dat[I]; 
wait_copro(0x0802); 

dat = &bpx ； 

cir->command = 0x7400; 
wait_copro(0xb2O8); 
dat->i2dat(0] = cir->operand ； 
dat->i2dat[1]=cir->operand; 
wait_copro{0x0802); 

dat = &bpy; 

cir->command = 0x5400 ； 
wait_copro{0x9608); 
cir->operand = dat->i2dat{0]; 
cir->operand = dat->i2dat[1]j 
wait_copro(0x0802) : 

dat = &bdy ； 

cir->command = 0x5422 : 
wait_copro(0x9608) : 
oir->operand = dat->i2dat{0] : 
cir->operand = dat->i2dat 【 1 】 ； 
wait_copro(0x0802 )； 

dat s &bpy; 

cir->command = 0x7400 ； 
wait_copro(0xb208 )； 
dat->i2dat[OJ = cir->operand; 
dat->i2dat11J = cir->operand; 
wait_copro<0xO802) : 


/* FMOVE.D apy t FP0 


/* FADD.D ady,FP0 


/* FMOVE.D FPB.apy */ 


/本 FMOVE.D bpx,FP0 


i* FADD.D bdx,FP0 


/» FMOVE.D FP0,bpx */ 


/t FMOVE.D bpy,FP0 


/* FADD.D bdy,FP0 


/> FMOVE.D FP0,bpy */ 


void prtime() 


int bt; 

bt = TIMEBXN<TIMBGET ())； 

printf("Xd Xd¥n M ,(bt>>8)40xff, bt & Oxff); 
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dat = &bfx; 

cir->command : 0x5422 ； 
wait_copro(0x9608); 
cir->operand = dat->i2dat[0]; 
cir->operand = dat->i2dat[1] : 
wait_copro(0x0802 )； 

dat = ibxfx; 
cir->command = 0x5422; 
wait_copro(0x96O8); 
oir->operand = dat->i2dat[0]; 
oir->operand = dat->i2dat[1]; 
wait_copro(0x0802); 

dat = &bdx ； 

cir->command = 0x7400 : 
wait_copro(0xb2O8); 
dat->i2dat[0J = cir->operand ； 
dat->i2dat{1J = cir->operand; 
wait_copro(0x0802 )； 

dat =.4bdy; 

cir->command = 0x5400: 
wait_copro(0x96O8) : 
oir->operand = dat->i2dat(0J ; 
cir->operand = dat->i2dat{1]; 
wait_copro(CxC802); 

dat s 4bfy; 

cir->command = 0x5422; 
wait_copro(Ox9608 )； 
cir->operand = dat->i2dat[0]; 
cir->operand = dat->i2dat[1] : 
wait_copro(Ox0802); 

dat ’= &bxfy; 
cir->command = 0x5422; 
wait_copr.o( 0x9608 J : 
cir->operand = dat->i2dat[0J ; 
cir->operand = dat->i2dat[1] : 
wait^.copro(0x0802); 

dat = &bdy; 

cir-> command- = 0x7400; 
wait_copro{0xb208); 
dat-ii2dat[0 J = cir->operand ； 
dat->i2dat 【 1]=cir->operand; 
wait_copro ( 6x:O802 ) : 


/* 

* apx= apx+adx;apy= apyfady ； 

* bpx= bpx+bdx ； bpy= bpy+bdy ； 

*/ 

void calpxy() 

{ 

union DAT *dat ； 
dat = &apx; 

cir->command = 0x5400; 
wait_copro(0x9608 )； 
cir->operand = dat->i2dat[0]; 
cir->operand = dat->i2dat[1]; 
wait_copro{0x0802 )； 

dat = &adx : 

cir->command = 0x5422 ； 
wait_copro(0x9608) : 
cir->operand = dat->i2dat[0); 
cir->operand = dat->i2dat[1) : 
wait_copro{0x0802)j 

dat = &apx; 

cir->command = 0x7400; 
wait_copro(0xb2€8) : 
dat->i2dat(0] = cir->operand; 


/* FADD.D bfx.FPO 


/* FADD.D bxfx,FP0 


/* FMOVE.D FP0,bdx */ 


/» FMOVE.D bdy,PP0 


/< FADD.D bfy.FPO 


/» FADD.D bxfy,FP0 


/* FMOVE.D FP0,bdy >/ 


/* FMOVE.D apx,FP0 


/« FADD.D adx.FPO 


/• FMOVE.D FP0,apx ♦/ 
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Btatio double cst1 ； 
static double cat2 ； 
static int i; 
static unsigned short dummy ； 

void calforce {)； 
void calf {)； 
void caldxy ()； 
void calpxy ()； 
void prtime {)； 

••尊拿 program 3tart • 本 *** 事 * 本 **/ 
main(b_argc,b_ar«v) 
int b_argc ； 
char *b_argv[1; 

{ 

SUPER(0); 
screen(2,0 >1,1 )； 
nxx= 767;mxy= 511; 
cx= 384 : cy= 256; 

dcx = (double)ox ； dcy = (double)cy ； 
circle(cx f cy,5,15, ， NA3I.,•NASI 1 ,'NASI*) 
apx= cx : apy= cy-149.6 : adx= 2.9718 
bpx= cx-10 ； bpy= cy-139.6 ;bdx= 3.141 

C8tl = 


prtimet )； 

for(i=0 ;i<= 5000 ； i++){ 

bie2 = callen(&bpx,&dcx,&bpy , &dcy,&blex ， & bley) 
ale2 : callen{&apx,&dcx,&apy,&dcy,&a ： Lex,&aley) 
xle2 = callen<&apx,&bpx,&apy,4bpy,&xlex,4xlej つ 


ady= 
bdy= 

6.672*1.9891;cst2= cstl*O.02 ； cstl= 


/* 


aforce= catl/ale2; 
bforce= cstl/ble2; 
xaforce= cst2/xle2 ； 
xbforces cst2/xle2 ； 

/ 

caif ()； 

calforce (&aforce,&alex,&.ale2, &apx, &dcx ， & afx, 
abforce,&blex,&ble2,ibpx,&dcx,&bfx); 

cal force(&xaforce ,&Klex,ixle2, &apx,&bpx,&axfx, 
ixbforce, &.xlex ， & xle2 , &bpx, , tbxfx); 

calforce(iaforce,&aley,4ale2 t &apy,idcy,&afy, 
Ibforce,4bley,&ble2,&bpy,tdcy,tbfy); 

calforce{&xaforce ， ixley,&xle2 , &apy,&bpy,&axfy, 
ixbforce,&xle ハ &xle2,&bpy,&apy,&bxfy) : 


* adx= adx+afxtaxfx : ady= ady+afy+axfy ； 

* bdx= bdx+bfx+bxfx ； bdy= bdy+bfy+bxfy ； 

*/ 

caldxy(); 

circle ((int) (apx), (intMapy) ,3,0, 'NASI' , *NASI' , •NASI,}; 
circle((int)(bpx),(int)(bpy),3,0,* NASI','NASI','MASI'); 
circlet{int}(apx+adx) r (int)(apy+ady),3,13 >'NASI *, 1 NASI *,'NASI ' 
circled(int)(bpx+bdx),(int)(bpy+bdy),3,15, , NASI , ,*NASI , ,'NASI* 

/* 

* apx= apx+adx ； apy= apy+ady; 

* bpx= bpx+bdx;bpy= bpy+bdy ； 

拿 / 

calpxy ()； 


prtioie () : 


callen(px,cx,py,cy,lex,ley) 

double *px, *cx, *py, *cy, «lex ，拿 ley 


union DAT *dat ； 
double retdat : 
returnt (<lex = 

cira->command 
cirfa->command 


{px-ox)*(px-cx)) 


{•ley = (py-oy>Mpy-cy}> >; »/ 


0x5400; 

0x5480; 


/« FaMOVB.D px,FP0 
/« FbMOVE.D py.FPl 


*/ 


dat = px ； 

wait_coproa(0x9608) : 
cira->operand = dat->i2dat(0| : 
cira->operand = dat->i2dat(1j : 
read_coproa(); 

dat = py; 

wait_coprob(0x9608 )； 
oirb-> operand = dat->i2dat(0] : 
cirb->operand = dat->i2dat[1]; 
read_coprob(); 


wait_coproa(0x0802); 
cira->command = 0x5428 : 

wait_coprob(0x0802) : 
cirb->command = 0x54a8; 

dat s cx ； 

wait_coproa(0x9608 )； 
cira->operand = dat->i2dat{0J ； 
cira->operand = dat->i2dat[1j ； 
read_coproa {)； 

dat = cy; 

wait_coprob(0x9608) : 
cirb->operand = dat->i2dat[0] : 
cirb->operand = dat->12dat[1J; 
read_coprob ()； 


wait_coproa(0x0802); 
cira->coramand = 0x0023 ； 
read_coproa ()； 

wait_coprob(0x0802); 
cirb->command = 0x04a3 : 
read_coprob(); 


PaSUB.D cx,FP0 


/* FbSUB.D cy.FPl 


*/ 

*/ 


/* FaMUL FP0.FP0 


/* FbMUt FP1.FP1 


wait_coproa(0x0802) : 
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cira->command = 0x7400 ； 
read_coproa ()； 

wait_coprob{0x0802) *, 
cirb->command = 0x7480 : 
read_coprob(); 

wait_coproa(0xb208) : 
dat = lex; 

dat->i2dat[0] s cira->operand; 
dat->12dat[1j = cira->operand ； 

wait_coprob(0xb208); 
dat =ley ； 

dat->i2datl01=cirb->operand ； 
dat->i2datj1]=cirb->operand; 

watt_coproa(0x0802) : 
cira->command = 0x5-122 : 
wait_coproa(0x9608); 
cira->operand = dat->i2dat[0] : 
cira->operand = dat->i2datl1 ]； 
wait_coprob(0x0802 )； 
wait_coproa(0x0802 )； 

cira->command = 0x7400; 
wait_coproa(0xb208); 
dat = iretdat; 

dat->i2dat[0] = cira->operand; 
dat->i2dat[1]=cira->operand; 
wait_coproa(0x0802 )； 


/* FaMOVE.D FP0,*lex */ 

/* FbMOVE.D FPl,*ley */ 

/* FaADD.D *ley,FP0 «/ 

1* FaMOVE.D FP0,retdat */ 


return(retdatj; 



void calforce(forcea,lela,le2a,pa,ca,fa,forceb,lelb,le2b,pb,cb,fb) 

double *forcea,*lela,*le2a,*pa,*ca, 拿 forceb,»lelb,*le2b,*pb,>cb; 
double *fa,* fb; 

l 

unsisned int ack; 

union DAT 本 dat,; 

/t f = force * aqrt(lel/le2) : */ 

cira->command = 0x5400 ； /< FaMOVE.D lela,FP0 */ 

cirb->command = 0x5400; /* FbMOVE.D lelb,FP0 »/ 

dat =lela ； 
wait_coproa{0x9608); 
oira->operand = dat->i2datl0]; 
cira->operand = dat->i2dat 【 1 】 ； 



dat =lelb; 

wait_coprob(0x9608) : 

cirb-> operand = dat->i2dat[0 J ； 

cirb->operand = dat->i2dat[1] : 

read_coprob(); 

wait_coproa(0x08O21; 

cira->command = 0x5420 ； /* FaDIV.D le2a,FP0 */ 

wait_coprob<0x0802) : 

cirb->command = 0x5420; /« FbDIV.D le2b,FP0 本 / 

wait_coproa(0x9608 )； 
dat =le2a; 

cira->operand = dat->i2dat[0 ]； 
cira-〉operand = dat->i2dat(1 ]； 
read_coproa ()； 


dat s le2b; 
wait_coprob(0x9608 )； 
cirb->operand = dat->i2dat[0] : 
cirb->operand = dat->i2dat[1]; 
read_coprob(); 


wait_coproa(8x0802) : 
cira->command = 0x0004 : 

/* 

FaSQRT.D 

FP0.FPO 

*/ 

read_.coproa () ； 





wait_coprob(0x0802) ; 
oirb->command = 0x0004; 

/* 

FbSQRT.D 

FP0.PP0 

*/ 

read_ooprob() : 





wait_coproa(0x0802) : 
cira->command = 0x5423; 

/* 

FaMUL.D 

forcea,FP0 

*/ 

wait_coprob(0x0802); 
cirb->command = 0x5423 : 


FbMUL.D 

forceb,FP0 

«/ 


dat = forcea; 
wait_coproa(0x9608) : 
cira->operand = dat->i2dat[0]; 
cira->operand = dat->i2dat[ 1 ]； 
read_coproa(J; 


dat = forceb ； 
wait_coprob(0x9608 )； 
cirb->operand = dat->i2dat(01 ; 
cirb->operand = dat->i2dat[1]; 
read_coprob(}; 


/* 

* if (p > o ) 

* f = -t； 

*/ 


wait_coproa(0x0802) : 
cira->command = 0x5480 : 

/* 

FaMOVE.D pa.FPl 

V 

wait_coprob(0x0802); 
cirb->command = 0x5480; 

/* 

FbMOVE.D pb.FPl 

*/ 


dat = pa ； 

wait_coproa(0x9608); 


104 Oh ! X 1992. 9. 


►「 MATIER 」 が面白そう。後編の記取を楽しみにしています。19,800円くらいなら迷わ 
ず買っちゃうのになあ。 林裕司（16> 福岛谓 
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cira->operand = dat->i2dat[0] : 
cira->operand = dat->i2dat[1j; 
read_ooproa(); 

dat = pb; 

wait_coprob(0x9608); 
cirb->operand = dat->i2dat[0] : 
cirb->operand = dat->i2dat[1]; 
read_coprob(); 

wait_coproa(0x0802) : 
cira->command = 0x54a8 : 

wait_coprob(0x0802) : 
cirb->command = 0x54a8 : 


/* FaSUB.D ca.FPl 


/* FbSUB.D cb.FPl 


dat = ca ； 

wait_coproa(0x9608) : 
cira->operand = dat->i2dat[0] : 
cira->operand = dat->i2dat[1]; 
read_coproa(>; 

dat = cb ； 

wai t_copi - ob( 0x9608 )； 
cirb->operand = dat->i2datf 0]; 
cirb->operand = dat->i2dat[1 ]； 
read_coprob(); 

wait_coproa(0x0802) : 

cira->condition = 0x0014; / 搴 

do { 

ack = cira->respon8e; 

} while!(ack k 0xbffe) != 0x0800); 


((ack tc 1)== 0) { 
cira->command 
read_coproa(J; 


/* Yes 

0x00la; /* FaNEG FPO.FP0 


) 


wait_coprob(0x0802) : 
cirb->condition = 0x0014 ； /* 

do ( 

ack = cirb->response; 

]while((ack & Oxbffe) != 0x0800) : 


9 / 


((ack & 1)== 0) { 

cirb->command = 
read_coprob(); 


/t Yes 

0x00la; ft FbNEG FP0.FPO 


wait_coproa(Ox08O2); 

cira->command = 0x7400 ； /* FaMOVE.D FP0,fa ♦/ 

read_coproa ()； 

wait_coprob(0x0802); 

cirb->comraand = 0x7400; /» FbMOVE.D FPO.fb 拿 / 

read_coprob{); 

dat = fa ； 

wait_coproa(0xb2O8 )； 

dat->i2dat[0] = cira->operand : 

dat->12dat[1j = cira->operand ； 


dat : fb; 

wait_coprob(0xb2O8 )； 

dat->i2dat[01=cirb->operand ； 

dat->i2datl1]=cirb->operand; 

wait_coproa(Ox08O2); 
wait_coprob{0x0802) : 


拿 aforces 

* bforce= 

* xaforce= 

* xbforce= 
*/ 

void calf() 


C8tl/ale2; 
C3tl/ble2; 
cst2/xle2; 
cat2/xle2 ； 


union DAT *dat; 

cira->command = 0x5400 : 
cirb->comraand = 0x5400 : 


/» FaMOVE.D oatl,FP0 */ 
/* FbMOVE.D cst2,FF0 ♦/ 


dat = &cstl ； 
wait_coproa(0x9608) : 
cira->operand = dat->i2dat[0] : 
cira->operand = dat->i2dat[1]; 
read_coproa(); 


dat = &cst2 ； 
wait_coprob(0x9608 t; 
cirb->operand = dat->i2dat[0 ]； 
cirb->operand = dat->i2dat 【 1]; 
read_coprob(); 


wai t_coproa( 0x0802) : 
cira->command = 0x0080 ； 



/* FaMOVE FP0.FP1 


wait_coprob(0x0802) : 

cirb->command = 0x0080 ； / 本 FbMOVE FP0.FP1 事 / 

read_coprob(); 


wait_coproa(0x0802) : 

cira->command = 0x5420 : /t FaDIV.D ale2,FP0 拿 / 


wait_coprob(0x0802 )； 

cirb->command = 0x5420; /* FbDIV.D xle2,FP0 ♦/ 


dat = &ale2; 
wait_coproa(0x9608 )； 
cira->operand = dat->i2dat[0] : 
cira->operand = dat->i2dat[1j; 
read_coproa ()； 
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dat = &xle2 : 
wait_coprob(0x9608); 
cirb->operand = dat->i2dat 【 0 】 ； 
cirb->operand = dat->i2dat[11 ； 
read_coprob(); 

wait_coproa(0x0802) : 
oira->command s 0xS4a0 : ft 

wait_coprob(0x0802 )； 

cirb->command = 0x54a0 : /拿 
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dat = &ble2; 
wait_coproa(0x9608 )； 
cira->operand = dat->i2dat(0] : 
cira->operand = dat->i2dat[1] : 
read_coproa ()； 

dat r 4xle2 ； 
wait_coprob(0x9608) : 
cirb->operand = dat->i2dat[0] : 
cirb->operand = dat->i2dat[l] : 
read_coprob ()； 

wait_coproa(0x0802); 

cira->command = 0x7400; /* 

read_coproa(); 

wait_coprob(0x0802) : 

cirb->command = 0x7400 ； /* 

read_coprob(); 


dat = &aforce ； 
wait_coproa{0xb208) : 
dat->i2dat[0] = cira->operand; 
dat->i2dat[1]=cira->operand ； 


dat = &xaforce; 
wait_coprob(0xb2O8); 
dat->i2dat(0] = cirb->operand; 
dat->i2dat[1J = cirb- 〉 operand; 


wait_coproa(0x0802}; 
c ira-> command = 0x7480 ； /拿 

read_Goproa ()； 


wait_coprob(0x0802); 

cirb->command = 0x7480; f* 

read_coprob(); 


dat = ibforce ； 
wait_coproa(0xb2O8 )； 
dat->i2dat[0] = cira->operand; 
dat->12dat{1j = cira->operand ； 


dat =Ixbforce : 

wait_coprob(Oxb208) : 

dat->i2dat(0] = cirb->operand ； 

dat->i2dat[1j = cirb->operand; 

wait_coproa(0x0802); 
wait_coprob(0x0802) : 


/* 

本 adx= adx+afx+axfx : ady= ady+afy+axfy ； 

* bdx= bdx+bfx+bxfx;bdy= bdy+bfy+bxfy; 

void caldxy() 

{ 

union DAT *dat ； 

cira->command = 0x5400 ； /拿 

oirb->command = 0x5400 ； /> 

dat = &adx; 

wait_coproa(0x9608 )； 

cira-> operand = dat->i2dat[0]; 
cira->operand = dat->i2dat[1 ]； 



dat = &bdx ； 
wait_coprob{0x9608); 
cirb->operand = dat->i2dat[01 ； 
cirb->operand = dat->i2dat[1] : 
read_coprob(); 


wait_coproa(0x0802); 
cira->comraand = 0x5422 ； It 

wait_coprob(0x*O8O2) : 
cirb->command = 0x5422 : /• 

dat = &afx; 
wait_coproa(0x9608) : 
clra->operand = dat->i2dat[0] : 
cira->operand = dat->12dat(1] : 
read_coproa ()； 

dat = 4bfx ； 

wait_coprob(0x9608); 

cirb->operand = dat->i2dat[0] : 

cirb->operand = dat->i2dat 【 1j; 

read_coprob(); 

wait_coproa(0x0802); 
oira->command s 0x5422 : /* 

wait_coprob(0x0802 )； 

cirb->command = 0x5422 ； /* 


dat = &axfx; 
wait_coproa(0x9608); 
cira->operand = dat->i2dat[0]; 
cira->operand = dat->i2dat[1] : 
read_coproa ()； 


FaDIV.D ble2,FPl ♦/ 

FbDIV.D xle2,FPl »/ 


FaMOVE.D FPO.aforce 拿 / 

FbMOVE.D FP0,xaforce */ 


FaMOVE.D FPl.bforce */ 


FbMOVE.D FP1.xbforce */ 


FaMOVE.D adx,FP0 */ 

FbMOVE.D bdx f FP0 */ 


FaADD.D afx.FPO 
FbADD.D bfx.FPO 


FaADD.D axfx,FP0 */ 


FbADD.D bxfx.FPO 


►初めてパソコンに触れた日から 9 年ほどたちました。迸時•使っていた MZ - 2000が眠って 

から，まともにプログラムを組んでいません。現在， X 680 ⑻にはかわいそうな思いをさせ 特集 68881並列駆動への挑戦 105 

ています。アッコちよんを見習ってプログラムを組もう！ 受験勉強の合問にできるでし 
よう。できたら投稿します。 古川とおる （17) 兵雖県 
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dat = &bxfx ； 
wait_coprob(0x9608); 
cirb->operand = dat->i2datl0) : 
cirb->operand = dat->i2dat[1 ]； 
read_coprob(); 


wait_coproa(0x0802 )； 
cira->command = 0x7400 : 
read_coproa(); 

wait_coprob(0x0802) : 
cirb->command = 0x7400; 
read_coprob(}; 


dat = &adx ； 
wait_coproa(6xb208); 
dut->i2dat[0] = cira->operand; 
dat->i2dat[1]=cira->operand; 

dat = &bdx; 
wait_coprob(0xb208); 
dat->i2dat[0] = cirb->operand; 
dat->i2dat[1]=cirb->operand; 

wait_coproa(0x0802) : 
cira->conmand = 0x5400; 

wait_coprob{0x0802) : 
cirb->command = 0x5400; 

dat = Siady : 
wait_coproa(0x9608 )； 
cira->operand = dat->i2dat[0 ]； 
cira->operand = dat->i2dat[1j : 



dat = &bdy; 

wait_coprob(0x9608); 

cirb->operand = dat->12dat[0 )； 

cirb->operand = dat->i2dat(1 )； 

read_coprob(); 

wait_coproa(0x0802); 
cira->command = 0x5422 ； 

wait_coprob(0x0802) : 
cirb->command = 0x5422 ； 


dat = 4afy ； 
wait_coproa(0x9608) : 
cira->operand = dat->i2dat[01 : 
oira->operand = dat->I2dat(1] : 
read_coproa(); 

dat = Itbfy; 
wait_coprob(0x9608 )； 
cirb->operand = dat->i2datl0); 
cirb->operand = dat->i2dat[1J : 
read_coprob(); 

wait_coproa(0x0802) : 
cira->command = 0x5422 : 

wait_coprob(0xO8C2) : 
cirb->command = 0x5422 ； 

dat = &axfy ； 
wait_coproa(0x9608); 
cira->operand = dat->i2dat[0]; 
cira->operand = dat->i2dat[1] : 



dat =Ibxfy ； 
wait_coprob(0x9608); 
cirb->operand = dat->12dat[0] : 
cirb->operand = dat->i2dat[1 )； 
read_coprob{) : 


wait_coproa(0x0802); 
cira->oommand = 0x7400; 
read_coproa(}; 

wait_coprob(0x0802) : 
cirb->command = 0x7400 ； 
read_coprob(); 

dat = &ady; 
wait_coproa(0xb208); 
dat->i2dat 【 0] = cira->operand ； 
dat->i2dat[1]=cira->operand; 


dat = 4bdy; 
wait_coprob(0xb208) : 
dat->i2dat(0] = cirb->operand : 
dat->i2dat[1J = cirb->operand; 

wait_coproa(0x0802 )； 
wait_coprob(0x0802 )； 


/* 

* apx= ap.\+adx ； apy= apy+ady ； 

* bpx= bpx+bdx : bpy= bpy+bdy ； 

*/ 

void calpxy() 

l 

union DAT <dat ； 
cira->command = 0x5400; 
cirb->command = 0x5400 ； 


dat = &apx; 
wait_coproa{0x9608); 
cira->operand = dat->i2dat[0]; 
cira->operand = dat->i2dat(l]; 
read_coproa ()； 


/* FaMOVE.D FPO.adx */ 

/* FbMOVE.D FPO.bdx */ 


It FaMOVE.D ady.FPO 
/* FbMOVE.D bdy.FPO 


/* FaADD.D afy,FP0 
/* FbADD.D bfy.FPO 


/* FaADD.D axfy,FP0 
/* FbADD.D bxfy.FPO 


/* FaMOVE.D FP0,ady */ 

/* FbMOVE.D FPO.bdy */ 


/* FaMOVE.D apx,FP0 
/* FbMOVE.D bpx.FPO 


*/ 


*/ 


*/ 


*/ 
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dat = &bpx; 
wait_coprob(0x9608 >; 
cirb->operand = dat->i2dat[0]; 
cirb->operand = dat->i2dat[1J : 
read_coprob(); 


wait_coproa(0x0802) : 

cira->conmand = 0x5422 : /* FaADD.D adx,FP0 

wait_coprob(0x0802) : 

cirb->coromand = 0x5422; /< FbADD.D bdx,FP0 

dat = &adx : 
wait_coproa(0x9608) : 
cira->operand = dat->12dat[0]; 
cira->operand = dat->i2dat[1] : 
read_coproa(} : 


dat = &bdx; 
wait_coprob(0x9608 )； 
cirb->operand = dat->i2dat{0J ； 
cirb->operand = dat->i2dat[1 ]； 
read_coprob(J; 


wait_coproa(0x0802) : 

cira->command = 0x7400 ； /* FaMOVE.D FP0,apx •/ 

read_coproa(); 

wait_coprob(0x0802) : 

oirb->conimand = 0x7400 : /* FbMOVE.D FP0,bpx */ 

read_coprob(); 


dat = &apx : 
wait_coproa(0xb208J; 
dat->i2dat[0] = cira->operand; 
dat->i2dat{1j = cira->operand; 

dat = &bpx; 

wait_coprob(0xb208); 

dat->i2dat(0) = cirb->operand; 

dat->i2dat[1]= oirb->operand ； 


wait_coproa(0x0802); 

cira->command = 0x5400 : /* FaMOVE.D apy,FP0 

wait_coprob(0x0802 )； 

cirb->command = 0x5400 : /* FbMOVE.D bpy,FP0 


dat = &apy ； 
wait_coproa(0x9608); 
cira->operand = dat->i2dat[0] : 
cira->operand = dat->i2dat[1) : 
read_coproa ()； 


dat = &bpy; 
wait_coprob(0x9608) : 


cirb->operand 
read_coprob() : 


01； 

1J; 


wait_coproa(0x0802); 

cira->command = 0x5422 : /* FaADD.D ady,FP0 


wait_coprob(0x0802) : 

cirb->command = 0x5422 : /* FbADD.D bdy,FP0 

dat = 4ady ； 
wait_coproa(0x9608); 
cira->operand = dat->i2dat[0 ]； 
cira->operand = dat->i2dat(1] : 
read_coproa ()； 

dat = 4bdy; 
wait_coprob(0x9608) : 
cirb->operand = dat->i2dat[0]; 
cirb->operand = dat->i2dat[1] : 
read_coprob ()； 

wait_coproat0x0802 )； 

cira->conunand = 0x7400 ； ft FaMOVE. D FP0 , apy •/ 

read_ooproa(); 

wait_coprob(0x0802); 

cirb->command = 0x7400; /» FbMOVE.D FP0,bpy «/ 

read_coprob(); 

dat = &apy; 
wait_coproa(0xb208 )； 
dat->i2dat[0] = cira->operand : 
dat->i2dat[1J = cira->operand; 

dat = &bpy ； 
wait_coprob(0xb208) : 
dat->i2dat(G] = cirb->operand; 
dat->12dat[1)= oirb->operand ； 


wait_coproa{0x0802); 
wait_coprob(0x0802 )； 


void prtime() 

\ 

int bt; 

bt = TIMEBIN(TIMEGET ())； 

printf("Xd XdVn",(bt>>8)&0xff, bt k 0xff )； 


*/ 


*/ 


*/ 


*/ 


► SX - WINDOW のアプリケーシヨン作成ユーザーのことを 「 SXerj と呼ぶそうです。そ 
の例にならうと Oh ! X の说者は，さしずめ 1 " Oh ! Xer 」 でしょうか。でもって，読み方は「才 
一！ エクサー」， 縮めて「 オエツ！ 吳〜 」。 1987年8月号180ページ以米進歩のない私で 
した。 野田敏之 (21) 神奈川似 


106 Oh ! X 1992. 9. 
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リス M 


/ スト 4 

； in{0 . 000 ) • cos(0.000} 〜 8in( 1000 . 0 00 ) ,cos( 1000 . 000 )co|f|| 


linclude <iocslib.h> 

•include <Btdio.h> 

•define wait_copro(x) while<(cir->reaponse&Oxbfff>! 

union DAT { 

unsigned char cdat 

unsigned short adat 

unsigned int idat 

float fdat 

double ddat 

I dat; 


struct CIR ( 

unsigned short 
unsigned Bhort 
unsigned short 
unsigned short 
unsigned short 
unsigned short 
unsigned short 
unsigned short 
unsigned int 
unsigned short 
unsigned short 
unsigned int 
unsigned int 


response : 
control : 
save; 
restore; 
operation_word; 
command : 
reserve !； 
condition; 
operand : 


reserve2; 

instruction_address; 
operand_address; 


)； 

volatile struct CIR «cir = (struct CIR *)0xe9e00O; 

void main ()； 
void prtime(); 

void main!) 


unsigned int i; 
SUPER10 )； 

cir->command = 0x4400; 
dat.fdat = 0.0; 
walt_copro( 0x9504 )； 
cir->operand = dat.idat; 
wait_copro( 0x0802); 

cir->command = 0x4480 ； 
dat.fdat = 0.00 1; 
wait copro( 0x9504 ); 


〆 》 FMOVE.S #0.0,FP0 


/* FMOVE.S #O.O01,FP1 */ 


cir->operand = dat.idat : 
wait_copro{0x0802) : 

prtime(J : 

for (i=0; i く 50000 0: i.+l | 

cir->command = 0x0133 : 
wait_copro(0x0802) : 

cir->command = 0x0422 : 
wait_copro(0x0802); 

cir->command = 0x0133; 
wait_copro(0x0802 J ； 

cir->conmand = 0x0422; 
wait_copro(Ox08O2) : 

1 

prtime(); 

cir->conmand = 0x6400; 

wait_copro(0xblO4) : 

dat. idat = cir->opertind ； 

wait_copro(0x0802); 

printf("ANG = XfVn",dat.fdat); 

oir->command = 6x6500; 

wait_copro(0xblO4); 

dat.idat = cir->operand : 

wait_copro(Ox0802) : 

printf f'SIN = Xf¥n",dat.fdat) : 

cir->conmand = 0x6580 : 

wait_copro(0xbl04); 

dat.Idat = cir->operand ； 

wait copro(0x0802); 

printf (..COS = *f¥n" .dat.fdat) : 

) 

/* 

void wait_copro{response) 

unsigned short response : 

{ 

while((cir->response & Oxbfff) 


*/ 

void prtime() 

( 

int bt; 

bt s TIMEBIN(TIMEGET ())； 
printf("Xd XdVn",(bt>>8)fc0xff, 


/* FSINCOS.S FP0.FP2.FP3 •/ 
/* PADD FPI.FP0 *t 

/* FSINCOS.S FP0,FP2,FP3 拿 / 
/* FADD FP1,FPfl */ 

/» FMOVE.S FP0.XXX «/ 

/* FMOVE.S FP2.XXX */ 

/* FMOVE.S FP3,xxx */ 

!= response) 

bt k 0xff )； 


リスト 5 

ain(O.0O0) ,coa{0.000)-sin(500. 000) ,cos( 500 . 000) 2 


tinclude 

•include 


<iocslib. i 
<stdio.h> 


•define wait_coproa(x) 
Idefine wait_ooprob(x) 
*define read_coproa() 
#define read_coprob() 


union DAT ( 

unsigned char cdat 

unsigned short sdat 

unsigned int idat 

float fdat 

double ddat 

)dat; 


CIR { 
unsigned i 
unsigned ： 
unsigned i 
unsigned i 
unsigned : 
unsigned i 
unsigned i 
unsigned i 
unaiKned 
unsigned i 
unsigned i 
unsigned 
unsigned 


while((cira->re8panse&0xbfff)! -x ) 
whi.le ( (cirb-> response&0xbff f ) ! =x ) 
b =* cira—reaponae; 



reserve2 ； 

in8truction_address : 
operand_address ； 


volatile struct CIR *cira : 
volatile struct CIR tcirb : 

void main ()； 

/* 

void wait_coproa() : 
void wait_coprob() : 

•/ 

void prtimel )； 


(struct CIR *)Oxe9e00O; 
(struct CIR *)0xe9e080; 


•define 
#define 


wait_coproa{x) while((oira->reatGxbfff) ! 
wait_coprob(x) while((cirb->res40xbfff)! 


unsigned int i; 
unBigned short a : 
SUPER(O); 

cira->command = 0x4400 ； 
dat.fdat = 0.0; 
wait_coproa(0x9504); 
oira->operand = dat.idat; 
wait_coproa(0x0802) : 

cira-> command = 0x4-180 : 
dat.fdat = 0.001; 
wait_coproa(0x9504) : 
cira->operand = dat.idat ； 
wait_coproa(0x0802); 

cirb->command = 0x4400 : 
dat.fdat = 0.0 ； 
uait_coprob(0x9504) : 


t* FMOVE,3 #0.0,FPO */ 


/« FMOVE.S #0.001,FP1 */ 


/* FMOVE.S »0.O,FP0 
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123 

124 
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cirb->operand = dat.idat; 
wait_coprob(0x0802 )； 

oirb-> command = 0x4-180 : 
dat.fdat = 0.00 1; 
waiv_coprob(0x9504) : 
cirb->operand = dat.idat ； 
wait_ooprob(0x0802) : 

prtine(); 

for (i=0 ； i<5OOO00; i+t)( 

wait_coproa(0x0802) : 
cira->command = 0x0133 ； 
read_coproa ()； 

wait_coprob(0x0802); 
cirb->coamand = 0x0133; 
read_coprob ()； 

wait_coproa( 0 x 08021 : 
cira->command - 0x0422 : 
read_coprob(); 

wait_coprob(0x0802) : 
cirb->command = 0x0422 : 
read_coprob {)； 


wait_coproa(0NO8O2) : 

wait_coprob(0x0802); 

cira->comnand = 0x6400 : 

wait_coproa(0xbl04) : 

dat.idat = cira->operandj 

wait_coproa(0x0802) : 

printf("ANO = Xf¥n",dat.fdat) : 

cira->comnand = 0x6500; 

wait_coproa(0xblOH); 

dat.idat = cira->operand ； 

wait coproa(0x0802); 

printf("SIN = Xf¥n",dat.fdat); 

cira->command = 0x6580 ； 
wait_coproa(0xbl04) : 
dat.idat = cira->operand; 
wait coproal0x0802); 
printf("COS = XfVn",dat.fdat); 


/« FMOVE.S >0.001,FP1 


/* FSINCOS.S FP0.FP2.FP3 »/ 


/* FSINCOS.S FP0,FP2,FP3 •/ 


/* FADD FP1,FP0 


/* FADD FP1,FP0 


/• FMOVE.S FPO,xxx 


FMOVE.S FP2,xxx 


/* FMOVE.S FP3,xxx 


void wait_ci 
uns 


short res; 
while ((ci'ra->reaponae i Oxbfff) 


void wait_coprob(res) 

unsigned short re8 ； 


{(cirb->response k 6xbfff J != res) 


*/ 

void prtime{) 


Int bt; 

bt = TIMEBIN(TIMEGET ⑴； 

printf("Xd XdVn",(bt>>8)40xff, bt & 0xff )； 


^ そろそろ X 68000 を封印しなきや，と思ってぃたら8月号のプレゼント、レ I 選者擱に名前 
が嵌ってぃた。これで浪人になる確率が上昇するのでしようね（実は嬉い、）。 

大谷泮徳 (18) 広岛 m 


特集68881並列駆動への挑戦 1〇7 


スト5 


• J スト4 


34567890123456789 01234567890123456789 012345678901234 
555555566666666667777777777888888888899999 9999900000 













バックナンバー案内 


ここには1991年9月号から1992年8月号までをご紹 
介しました。現在1991年丨，5, 9, II , 12, 1992年 
I 〜8月号の在庫がございます。バックナンバーおよび 
定期購読の申し込み方法については，137ページを参 
照してください。 
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umXK 


g 月号 

特集 Brush up your MAGIC. 

—マシン語プログラミング / D 6 GA / Z 80 ’s Bar / ショートプロ 
響子 in CG わ〜るど/ハードエ作/シミュレーション入門 
吾輩は X 68000 である/大人のための X 68000/ C 言語 

• XI 用ゲーム Manual Runner 

♦ ANOTHER CG WORLD 

LIVE in ’91 One/WHITE MANE 

THE SOFTOUCH イース/生中継 68/ ア-クス.オデッセイ他 

全機種共通システム SLANG 用 NEW ファイル入出カライブラリ 



iihiXS 



10月号（品切れ） 

特集マシン語との邂逅 

轚子 in CG わ〜るど/マシン語プログラミング/ショートプロ 
ハ-ドエ作 / Z 80 's Bar / よいこの SX - WINDOW/ANOTHER CG WORLD 
吾輩は X 68000 である/ようこそ C 言語/大人のための X 6_ 

⑩新連載 Computer Music 入門 
•NEW Print Shop PRO -68 K Ver 2.0 

LIVE in '91 うれしい！たのしい！大好き / SPANISH BLUE 
THE SOFTOUCH ボナブラザ-ズ / ロードス島戦記/ジーザス II 他 
全機種共通システム Small - C 活用講座（初級編） 




11月号 

特集空間彷徨型ゲーム大分析 

響子 in CG わ〜るど/大人のための X 68000 /ANOTHER CG WORLD 
DoGA / ショートブ a / Co_ter Music 入門/吾輩は X 68000 である 
ようこそ C 言語/マシン語プログラミング / Z 80 ，s Bar / ハ-ドエ作 
■ X 68000 用力ードゲームギャップ 
•新製品紹介 F-Card GT 
UVE in '91 オーダイン 

THE SOFTOUCH キャメルトライ/アクアレス/フューチャーウォ-ズ他 
全機種共通システム Small - C 活用講座(応用編 )/ MORTAL 

12月号 

特集音•そして音楽とコンピュータ 
別 M 録 X 68000 THE GAME SOFTWARE BEST SELECTION 

響子 in CG わ〜るど/ 7 シン語プログラミング/ショートブロ 
ハードエ作 / Z 80 _s Bar / ようこそ C 言語 / ANOTHER CG WORLD 
吾輩は X 68000 である / Computer Music 入門/大人のための X 68000 

春エレクトロニクスショウ&データショウ 
LIVE in '91 OH YEAH !/ サイレント•イヴ/ジングルベル 
THE SOFTOUCH フェアリ-ランドスト-リー/ブロサッカー68他 
全機種共通システム Small - C 用 SLANG コンパチ関数 




1日号 

特集 SX-WINDOW の未来 

—響子 in CG わ〜るど/ D 5 GA ， CGA / 大人のための X 68000 
ハードエ作 / Z 80 ，s Bar / ショートブ □/ 吾輩は X 68000 である 
ANOTHER CG WORLD/Computer Music 入門/カードゲーム 
• MAGIC 用ゲーム 3 DMAZE 
參 CM -300/500& LA 音源の活用法 
LIVE in '92 DRAGON SABER / すき / THE ENTRETAINER 
THE SOFTOUCH 出たな!！ツインビー/ブリッツクリーク/飛翔鮫他 
全 機種 共通システムバズルゲーム LINER 



/JhiXI 




iJhiXI 




3 月号 

特集 SCSI の活用 

響子 in CG わ〜るど/ D 6 GA . CGA / 大人のための X 68000/ Z 80 ’s Bar 
ショートプロ/吾輩は X 68000 である/マシン語プログラミング 
ハードエ作/ ANOTHER CG WORLD/Computer Music 入門/力ードゲーム 
• Z-MUSIC 支援ツール ZPDCON.X 
籲 Z ， s - EX 用拡張コマンド MASK_reverse 
LIVE in *92 ギヤラクシーフォース/君が代 
THE SOFTOUCH グラディウス1ルミンダス/大戦略/11，90/伊忍者 
全檄種共通システムカードゲーム KLONDIKE 



4月号 

特集成熟するゲームと日本の文化 

よい子の SX - WINDOW / 大人のための X 68000/ Z 80 ’s Bar 
饕子 in CG わ〜るど/ショートプロ/吾輩は X 68000 である 
ハードエ作 / ANOTHER CG WORLD/Computer Music 入門 
•発表 1991 年度 GAME OF THE YEAR 

♦バーコードノくトラー 

LIVE in '92 あじさいのうた/ショパン練習曲作品 25-2 ヘ短調/ lt，s MAGIC 
THE SOFTOUCH ファーストクィーン I / マスタ-オブモンスターズ I 他 
全機種共通システム実践 Small - C ( l ) オプティマイザ080 



月€ 

特集明日のための環境づ〈り 
第7回言わせて〈れなくちゃだワ 

響子 in CG わ〜るど/大人のための X 68000/ Z 80 ’s Bar 
ハードエ作/シヨートプロ/マシン語プログラミング 
Computer Music 入門/吾輩は X 68000 である 
•製品紹介 MIDI 音源 03 R / W / MIC 68 K 
し IVE in ’92フレンスン Danger Line 
THE SOFTOUCH エイリアンシンドローム/苦胃頭捕物帳他 
全機種共通システム実践 Small - C (2) COMMAND.OBJ 



B 月号 

特別企画 Oh ! MZ ， Oh ! X 10 年間の歩み 
特別付録創刊 10 周年記念 PRO -68 K (5〃2 HD ) 

_ 響子 in CG わ〜るど/大人のための X 68000/ マシン語プログラミング 
ハードエ作/シヨートプロ / ANOTHER CG WORLD / Z 80 ，s Bar 
吾輩は X 68000 である / Computer Music 入門 
• 新製品紹介 Z’sSTAFF PRO -68 K ver .3.0 
UVE in '92 Shake the Street/Ancient relics 
THE SOFTOUCH スヒ•'ノデイジー I / ロイヤルブラッド/テ f フ & デス他 
全機種共通システム実践 SmaH - C 講座 (3) COMMAND . OBJ 2 



フ月吞 

特集起空間美術論 

特別付録 DoGA CGA システム&お試しディスク (5"2HD) 

"' よいこの SX - WINDOW / 響子 in CG わ〜るど / Z 80 ，s Bar 
ANOTHER CG WORLD / 大人のための X 68000 
Computer Music 入門/ハードエ作/ショートブロ 
■試用レポート V 70 アクセラレータボード 
LIVE in '92 Bye Bye My Love/MATERIAL GIRL / ヴェクザシオン 
THE SOFTOUCH 将棋聖天 & 棋太平 68 K / シムァース/太闇立志伝 
全機種共通システム実践 Small - C 講座⑷関数リファレンス 




2月号 

特集 2 D グラフィックの拡張 

醬子 in CG わ〜るど/大人のための X 68000/ マシン語プログラミング 
ハート.工作/ショートプロ / ANOTHER CG WORLD / Z 80 's Bar 
吾輩は X 68000 である / Computer Music 入門/カードゲーム 

• TREND ANALYSIS 

• MIRAGE MODEL STUFF/Press Conductor PRO -68 K 
LIVE in ’92 ストリートフアイター D /Tide Over 
THE SOFTOUCH ジェノサイド 2 / アルシャーク /コー ド•ゼロ他 
全機種共通システムシミュレーションゲーム P 0 LANYI 



imiXS 



日月号 

特集プログラミング再入門 

—響子 in CG わ〜るど/吾輩は X 68000 である/よいこの SX-WINDOW 
マシン語プログラミング/ハ-ドエ作 / ANOTHER CG WORLD 
大人のための X 68000 /Computer Music 入門/ショートプロ 
•新製品紹介 MATIER.TG 100 , SOUND SX -68 K 
LIVE in *92 氷穴/ガラガラへビがやってくる/風の贈り物 
THE SOFTOUCH 三國志111/シムアース/ウルティマ VI /バトルテック 
全機種共通システム実践 Small - C 講座 (5) ワイルドカード 
グラフィックライブラリ GRAPH.LIB 
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く対応機種一覧〉籲 MZ-80K/C/ 700 /1500_MZ-80B/ 2000 
lMZ-2500/286l#XI #XI turbo/Z#PC-8001 /880I/88# 
SMC-777/C_PASOPIA/5#PAS0PIA 7#FM-7/77/AV # 
PC-286/386/9801/98 #X68000 

掲載されたプログラムの利用には备 ft 種用の S^0S“SW0RD" 
システムが必要です。 


第124部 


magic 用モデラ 0 EDIT 
データコンバータ M 0 DCNV 


•MAGIC 用モデラ 

先月の予告どおり，今月は GRAPH 丄旧を 
使った MAGIC 用モデラ「〇 - EDIT 」 をお届けし 
ます。これは，ワイヤ_ フレームの 物体を 
作成する支援ツールです。 

黒木さんは Oh ! X に掲載された X 68000 版の 
MAGIC 用モデラを見て， S -0 S 版の作成を決 
意したようです。使用感はいたって快適で， 
解像度の差はあるにせよ， X 68000 版と比べ 
ても，決してひけを取りません。といった 
らいいすぎですが，実際ユーザーインタフ 
ェイス以外はほぼ同等のものを持っている 
といえます。このプログラムを見れば，ひ 
と目で SLANG と MAGIC を統合した， 「 GRAPH . 
LIBj の有用性を理解してもらえることでし 
ょろ 0 

ただ残念なことには，先月号の扉の写真 
にあるポリゴンの描画機能には対応してい 
ず， ワイヤーフレームの モデルしか作れま 
せん。メモリ容量の関係で削除となってし 
まったようですが，やる気は失っていない 
ようなのでぜひ期待したいところです。 

いままで， MAGIC を自在に操れる言語は， 
アセンブラしかありませんでした。そのた 
め，高級言語指向の人たちには敬遠されて 
きた面もあるかと思います。しかし ， 「GR 
APH . LIB 」 の登場により， SLANG でも MAGIC 
を本格的に扱える環境が提供されました。 


高級言語で扱うことができるようになった 
MAGIC の世界が，どのように展開していく 
のか，非常に興味深いですね。 

•MODCNV 

さて，モデラで作った物体データを，そ 
のまま眠らせておく手はありません。そこ 
で2つ目のプログラムとして， MODCNV が 
用意されています。モデラで作ったデータ 
を，先月号の 「 GRAPH . LIB 」 で扱えるような 
形式に書き出してくれます。 

その後は……。もう続ける必要はありま 
せんよね。モデラで作った物体をただぐる 
ぐる回して楽しむのもいいでしよう。しか 
し，ここまでお膳立てしてもらっておいて， 
活用しないのはあまりにももったいないこ 
とです。使いこなすのは容易ではありませ 
んが，努力したぶんの成果はきっと得られ 
ることでしよう。 

また，グラフィックを使ったプログラム 
をこの THE SENTINEL に採用するのは確か 
に躊躇が伴います。でもスゴイ作品につい 
ては別です。こちらとしても，よい作品は 
載せないわけにはいかないのですから。力 
作をお待ちしています。 

鲁 S-OS の系譜 (36) 

「 ELFES 」 といえば S -0 S の歴史に残るシ 
ユーティングですが，1988年の丨丨月号では， 
その第3弾 「ELFES IV 」が発表されました。3 


作目にもかかわらず，名前はなぜか 「ELFE 
S IVj 0 これは ， 「ELFES II 」との間にもうひ 
とつストーリーが用意される予定だったの 
です。 

このシリーズのサイドストーリーは，一 
貫して寨走した自動支援戦艦「 ELFESj を倒 
せ，というものです。丨，2作目ではあと一 
歩のところで 「 ELFES 」 を逃していました。 
で，この3作目でも地上要塞となった 「EL 

FESj 中枢部にたどり着いたものの . 

というところで終わってしまい，結局，最終 
目的が達成されていません。 

ゲームシステムもバラエティーに富んで 
いて，丨作目で疑似3 D ，2作目でサイドビ 
ューときて，3作目の 「ELFES IV 」では卜 
ップビューの画面を採用。パワーアップあ 
り，オプションありのシューティングであ 
るにもかかわらず，丨作目からの高速性は 
そのままに，回を追うごとに演出は派手に， 
ボスキャラは大きくなっていきました。こ 
のような，次々と新しいものに挑戦しよう 
とする作者の意欲は，並ではありません。 

惜しむらくは，記事の中でほのめかされ 
ている第4作 「 ELFESII 1」 が，未発表であ 
ること。やはり，いろいろとお忙しくなっ 
たのでしようか。 S -0 S の歴史に残るほどの 
名作。このまま完結せずに終わるのは，し 
のびないものです。 

围ィンデック麵 

■ 92 年 1 月号- 

第 115 部 LINER 

■ 92 年 2 月号- 

第 116 部 シミュレーションゲーム P0LANYI 

■ 92 年 3 月号- 

第 117 部 力ードゲーム KLONDIKE 

■ g2 年4月号- 

第 118 部 オプティマイザ080実践 Smal 卜 

■ 92 年 5 月号- 

第 119 部 C0MMAND.0BJ 実践 Smal 卜 C 講座⑵ 

■ 92 年 6 月号- 

第 120 部 C0MMAND.0BJ2 実践 SmaH-C 講座⑶ 

■ 92 年 7 月号- 

第 121 部 関数リファレンス実践 SmaN-C 講座 (4) 

■ 92 年 8 月号- 

第 122 部 ワイルドカード実践 SmaH-C 講座 (5) 

第 123 部 グラフィックライブラリ GRAPH 丄旧 
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MAGIC 用モデラ S 
データコン八'一夕 

0-EDIT 

M0DCNV 

要 MAGIC, GRAPH.LI 巳， 
NEW ファイル入出カライブラ 1 J 


Kuroki Jumchi 

黒木淳一 


GRAPH . U 巳を使ったユーテイリテ 
イの第1弾として， MAGIC 用モデラ 
「〇 - EDITj をお届けします。これで方 
眼紙から物体データを取らずにすみます。 
手軽に3□世界を楽しんでください。 
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今月は予告どおり， MAGIC 用モデラ「0 
- EDIT 」 を発表します。そして，「〇 - EDIT 」 
で作成されたデータを SLANG で使えるよ 

うなソースファイルにする，コンバータ 

「 M 0 DCNV 」 も一緒に発表します。 

MAGIC には， 3 D 物体を扱うための機能 
が付いています。しかし，簡単に扱うとい 
っても結局人間がデータを作成する必要が 
あります。たとえ方眼紙を使ったとしても 
しょせんは2次元の世界，自分の思いどお 
りのものを作るためには，かなりの慣れが 
必要になってきます。 

そこでこの「〇 - EDIT 」 の出番というわけ 
です。2次元と3次元の表示を同時に行い 
ながらエディツトできるため， 3 D キャラク 
夕を作成する手間がかなり軽減されること 
でしょう。 

入力方法 R K 動 方法 

まず，何かのテキストエディタを使って 
リスト3を入力してください。入力が終わ 
ったら “0- EDIT . S じとしてセーブし， 

]C 0- EDIT.SL 

のようにして SLANG でコンパイルしてく 
ださい〇コンパイルが終わったら， 

]S 3000終了#地3000 9000 : 0 
-EDIT 

のようにセーブします。 

なお，このプログラムをコンパイルする 

ときには 「 GRAPH 丄 IB 」 が，実行するとき 
には 「 MAGIC 」 が必要です。このプログラ 
ムでは r SOROBAN . LIBj を使用していま 
せんので，メモリを余裕を持って確保した 
い方は 「 GRAPH 丄 IB 」 中の， 

INCLUDE SOROBAN.LIB 
を削除してください。 

起動方法は， S - OS のコマンドラインから， 

# 0 -EDIT [: FILE NAME . MOD ] 
のようにします 。 “FILE NAME . MOD ” を 
指定すると，起動時にエディットしたい物 
体データを読み込んでくれます。もちろん 
[] 内のファイルは省略可能です0 

11111111111111 iiiiifii!mmimu 機能説明 iiimiimmmmimiHiii 

このプログラムを起動すると図1のよう 
な画面になります。基本となるのはこの画 
面で，操作についてはテンキーまたはカー 
ソル キーを中心にしています。 データのセ 
ット には‘‘ 5”，“ リターン”キー，キャン 
セルに “0”， “スペース” キーを使用しま 
す。それぞれのメニューで使用するキーが 
違うこともありますが，画面右のところに' 


は常にキー操作が表示されています。わか 
らなくなったら，そちらを参考にしてくだ 
さい。 

それでは，メインメニューにある機能を 
説明していきます。 

1) SET POINT 

その名のとおり，物体の頂点をセットし 
ます0 •テンキー（カーソル）の上下左右で 
X ， Y 方向の移動， “ Q ” “ Z ” キーで Z 方向の 
移動ができます。そして，カーソルの移動 
量を“+ ” “ S ” キーで調節することができ 
ます（デフォルトは移動量= 5)〇思いどお 
りの場所に移動したら，決定キーを押しま 
しよう0すると，カーソルのあった場所に 
頂点がセットされます。 

2) SET WIRE 

ここでは， 1) でセットした頂点を結ぶ線 
分を引くことができます。メニューを選択 
すると画面の色が変わり，セットした頂点 
のひとつが赤くなったと思います。この赤 
くなっている頂点が，選択しようとしてい 
る頂点です。ここでテンキーの上下を押せ 
ば，次々と別の点に移動します。線分を結 
びたい点のひとつにきたら，決定キーを押 
してください。すると，次の点を要求して 
いきますので同じように頂点を選択して決 
定キーを押します。このような操作を行う 
ことで2頂点を結ぶ線分が引かれます。 

3) ERASE POINT 

このメニューで不要となった頂点を削除 
します。基本操作は 1) と同じです。注意し 
てほしいのは，頂点を削除するとその頂点 
に結ばれている線分が消去されてしまう点 
です。一応，消去したい頂点と線分の関係 
を確認してから実行してください。 

4) ERASE WIRE 

すでに描画してある線分の消去を行いま 
す。基本操作は 2) と同じ，特に注意するこ 
とはありません。 

5) ROTATION 

エディットしている物体の表示角度，位 
置を調節します。 

6) PA し ET ON 

7) PA し ET OFF 

パ レツ トを切り替えてグラフィ ックの 表 

示を ON / OFF します。 

8) POINT MOVE 

1) で設定した頂点の移動を行います。ま 
ず，移動させる頂点を選択してから好みの 
場所まで移動させてください。部分的な修 
正をするときに役立つでしよう。 

S) SAVE DATA 
し ） LOAD DATA 

エディットした物体のセーブ，ロードを 




































6 #INCLUDE GRAPH.LIB 

7 

8 // MAGIC 31) DATA 

9 

10 CONST PANEL_PMAX= 003 , PANEl._WMAX= 0 

11 

12 AHUAY PANEL_0[ 003][ 21=( 

13 %-00l00.X-00100,% 00000, 

14 %-O0100,% 00100,% 00000, 

15 X 00100,% 00100,% 00000, 

16 % 0010 0 ， X- 00100,% 00000] , 

17 

18 BYTE PANEL_W[ 003][1]=[ 

19 000, 001 , 001 , 002, 002, 003 

20 

21 MAIN ㈠ 

22 VAR I; 

23 l 

24 QINIT ()； (* 

25 FOR 1=0 TO 8 [ _PARfIJ = 0 ; 】 （本 

26 «SliTOD( PANKL_D , PANEL,_PMAX ); (本 

27 @SETWD( PANEL_W , PANEL.UMAX )； (* 

28 PAR(2] = 5000 ； (本 

29 WHILE( PAR[2] .>. 0 ) け Z 

30 l 

31 3MAGIC(0) : ( * 

32 @MAGIC(1 )； (* 

33 «CHTKN( 7,0,0 )； (零 

34 @CLS ()； (* 

35 PAU[2]=_PAR[2]-15; (* 

36 ] 

37 ] 


;(* 座棵、棟分の 》* > 


D スト S 


2 ORG $9000 ； 

3 

4 CONST _PLOTSW = 0, THREE ： 1,_FLOAT=0 , _STNCOS = 0 , TIL!-SW=0 , _GHIK = 0 ； 




④ 


① 






② 


③ 


① XZ 平面 

② XY 平面 

③ YZ 平面 

念エディット物体表示 

⑤メインメニュー 


表1 データ 構造 


オフセット 

アドレス 


0000 „-05 FF „ 
0600 „-07 FF „ 
0800,, 

0802 H 

頂点データ ( W 0 RD_DATA []) 

線分データ ( BYTE_DATA []) 

頂点の数 ( W 0 RD_DATA []) 

線分の数 ( W 0 RD_DATA []) 


行います0ディレクトリが表示されたあと 
にファイル名を要求してきますので，拡張 
子を付けずに入力して〈ださい。拡張子は 
“• MOD ” が自動的に付きます。 

C) CLEAR 

現在エディットしているデータをクリア 
します。 

R) ROTATION2 

画面が切り替わり，エディットしている 
物体が画面全体に表示されます。全体像の 
確認用に使ってください。 

M) MOVE 

エディットしている物体の中心座標を変 
更します。 

E) END 

「〇 - EDIT 」 を終了します。 

H) HELP 

いわゆるヘルプ機能です。「〇 - EDIT 」 の 
基本的な使い方を表示していきます。記憶 
力に自信のある方は，ソースリスト中のこ 
の部分を入力しなくてもかまいません。 

多少，操作にとまどうことがあるかもし 
れませんが，習うより慣れろ，ということ 
で実際に使ってみてください。 

HiiiiNiiMiNiiiiminN データ構浩 iimiimmmmimim 

次にこの「〇 - EDIT 」 で作成されるデータ 
の構造を説明します。前項で述べたとぉり， 
作成されるデータファイル名の拡張子は“. 
MOD ” で，データ構造は表1のとぉりとな 

つています（アドレスはオフセットアドレ 
図丨 基本画面 


スです）。 

そして，頂点データは[ XI ] [ Yl ] [ Z 1] 
[ X 2] [ Y 2] [ Z 2] ……，線分データは [ P 1] 
[ P 2] [ PI ] [ P 2] [ PI ] [ P 2] ……のように 
格納されています。セーブされる領域は才 
フセツトアドレス （ WORD—DATA []) 
の0000 „-0 FFF H となっています。とりあえ 
ず， SLANG で使うためのコンバータは用 
意しました。アセンブラなどで使いたい人 
は，これらの情報をもとにコンバータを制 
作してください。 

_____MODCNV_____ 

冒頭で述べたとおりこの 「 MODCNV 」 
は，「〇 - EDIT 」 で作成された 3 D キャラクタ 
データを， SLANG で使用できるようなテ 
キスト形式にコンバートしてくれるもので 
す。ただし， SLANG で使えるといっても 
「 GRAPH 丄 IB 」 で使うことを前提としてい 
ます0なお，コンパイルするためには，1991 
年9月号で発表された 「 NEW ファイル入 
出カライブラリ」が必要ですので注意して 


〈ださい0結構シンプルなプログラムです 
ので，すぐに打ち込めることでしよう。 

川 1 "川""""""|川フ5"…川"川川川 1 川…""川 I 

このプログラムも「〇 - EDIT 」 と同じく 
SLANG で記述されているので，エディタ 
でリスト4のプログラムを打ち込み， 

]C MODCNV.SL 

としてコンパイルしてください。うま〈コ 
ンパイルできたら， 

]S 3000終了 番地3000 9000 : 
MODCNV 

としてセーブしましよう。 

使い方は， S - OS のコマンドラインから， 

#L MODCNV 
# J 3000 

とするだけです。そして，実行後にディレ 
クトリが表示されコンバートするファイル 
名を聞いてきます。ここで，「〇 - EDITj を 
使って作成したデータファイルを入力して 
〈ださい。すると，入力したファイル名の 
拡張子を“. SL ” にして， SLANG の ソース 


リスト1 

2 // MAGIC 3D DATA 

3 


4 

CONST PANEL_PMAX 二 003, PANEL_WMAX= 

003 ； 

い座標 


梂分の数 

*) 

6 

ARRAY PANEL D[ C03][2]=[ 


(本 

座 

ffl デー 

夕 

*> 

7 

%- 〇〇 1 〇〇 ,%-0010 〇 ,% 00000, 


(* 

X 

, Y . 

Z 

*) 

8 

%-00100 ,% 00100 , % 00000 , 


け 

X 

, Y , 

Z 

*) 

9 

% 00100 , % 00100 , % 00000 , 


(* 

X 

.Y , 

Z 

*) 

1C 

11 

% 00100,%-0010 0, % 000001 , 



X 

.Y . 

Z 

*) 

12 

13 

1‘1 

BYTE PANEL W[ 003J[1]={ 

000, 001 , 001 , 002, 002, 

003, 

け球分 デー 
003, 000]: 

夕 

*) 


$ $ * $ * 夕 
夕 z ZZZ 一 
一•，--デ 
iTYYYy . 

ffixxxx 株 M 

本*••零本 * 


哀 t 本本零 t 本本本本本 

で 

化 ま 
期義義る え 
初定定な D 換去 
〇に 3 I ?消5 
タタタ〇ス 切ン1 
I - - 〇ナ t 示ンーー 
化メデデ5イ 表 I レ Z 
期ラ棵分 II マ D 面レブ-1 
切パ座梂乙が 2越ブ與 Z 


0- EDIT / M 0 DCNV 111 


























形式になったファイルを生成してくれます。 
出力されたソースは，リスト1のように初 
期値を設定した配列と頂点数，線分数を設 
定した定数が書き込まれます。ちなみにリ 
スト1には注釈がありますが，実際には出 
力されません。 

そして，この出力されたソースをプログ 
ラムへ組み込んでみたものがリスト2です。 
このリスト2で注目してほしいのは，26， 

27行です。 @ SETOD , @ SETWD 関数の引 


数に出力された配列名と，定数名があるの 
がわかるでしよう。このように記述するだ 
けで， 3 D 物体のキャラクタ定義をすること 
ができるのです。 

11111111こ 111111111111111111111111111111111 

以上で説明は終わりです。さすがにマウ 
スが使えないため，ちょっと使いづらいと 
ころもありますが， MAGIC 対応のソフト 


を作るときにはきつと役に立つと思います。 
今回はワイ ヤーフレームの 3 D 物体のみで 
したが，ポリゴンを使えれば完璧。といつ 
てもメモリが足りなかつたので作成途中で 
外しちゃいましたけどね。今度は機能を一 
部削除してでも作つてみたいです。 

最後に. 「 MODCN V 」のファイルライトル 
—チンを作成してくれた S - OS ユーザーズ 
クラブの森喜一郎さん，ありがとうござい 
ました。 


U スト3 O-EDIT 


2 

3 

4 

5 

6 

7 

8 

9 

10 


/« 


<< O-EDIT Ver 2.1 1992/06/13 23:32:47 >> 

Programed by KUROKI JUNICHI 


ORG $3000 
OFFSET $6000 
WORK $13000 


12 CONST _PLOTSW = 

13 _TILESW = 

14 

15 #INCLUDE GRAPH.LIB 

16 

17 ARRAY WORD 


_SINCOS 
_FLOAT = 


_THREE =1, 
_GHIN = $A8; 


88 

*7» 

@PALET(0 

10,0, 

0 , 0 , 0 , 0 , 0 )； 

89 

*8' 

PMOVE() : 



90 

•S* 

SAVE(); 



91 

•L' 

LOAD() : 



92 

•E 1 

[©PALET(0 

0, 0, 0, 

0, 0, 0, 0 )； RETURN 

93 


[READY() : 

IF (KFLAG 

==1)GOTO START;] 

94 

'R 1 

LOOK ()； 



95 

•M* 

OMOVE ()； 



96 


HELP ()； 



97 

1 




98 

GOTO MLOOP1 ； 



99 

END ； 




100 





101 

HELP() 




102 

BEGIN 




103 

©PALET(0 

,0,0, 

0,0,0 

,0 , 0 )； PRINT("VC 


18 

19 

20 
21 
22 

23 

24 

25 VAR 

26 

27 

28 

29 

30 

31 MAIN い 

32 VAH 

33 BEGIN 


OBJD0[255][2] :$9000, 

BYTE OBJW0[255J[1] ： $960O, 

WORD MSTEP[3] = [%1,X2,%5,XI0], 

WORD LSTEP[5] = [%1,X5,X10,%40,X60,%100], 

WORD DUMMYP[8] = [%0,%0,%0,%0,%0,%0,X0,%0,%0], 

BYTE DUMMYW[5] = [0,1,1,2,2,0], 

BYTE FLNAME[20 ]； 

PMAX：$9800 ,WMAX：$9802 ,PX ,PY ,PZ ,KFLAG ,NOWP , 
SPEED , FNAD , PNI,N , GENX , QENY , GENZ , 

DTADR = $1F70 , SIZE = $1F72 , EXADR = $1F6E, 

FILE = $1FA3 ,WOPN = $1FAF , ROPN = $2009 , 

WRD = $1FAC , RDD = $ 1FA6 , MPOT ； 


104 

105 

106 

107 

108 


PRINT(" HELP MODE¥N¥NVN ")； PK<); 


PRINT(" く < テ *- タケイシキニツイテ >>¥N¥N ") ； 

PRINT (” コノツールハ， MAGIC ヨウノ 3D キャラクタテ*-タヲマクセイスルタメノ 
* ノ _ ルテ ■ ス * テ * VN¥N ") ； 

109 PRINT(" •• タケイシキハ ¥N¥N¥N"}; 


KEY 


34 

35 

36 

37 

38 


R , FF ； 

FNAD = "DE ； 


GETREG ()； 

START : 

»PALET(0 ,0,0 
PMAX = 0 ； WMAX 
SPEED 


,0,i 

0 ； PX 


0 , 
PY 

GENY 


110 

PRINT ( ，■オフセット 

アト•レス 

0000-05FF 

7 テ - »• 

ヒ■ゥ 

テ * 

-9 .[ 

WORD 

D 

ATA JYNYN ")； 









111 

PRINT( '•オフセット 

アト*レス 

0600-07FF 

7 テ * 力 * 

•t ンフ*ン 

テ * 

[ 

BYTE 

D 

ATA )¥N¥N ")； 









112 

PRINT (•• オフ t ツト 

アト*レス 

0800 

力 - 

tr ヒ■ゥ 

ノ 

H7T [ 

WORD 

D 

ATA ]¥N¥N ")； 









113 

PRINT (.•オフセット 

アト*レス 

0802 

力 . 

•t ン : r ン 

ノ 

» ス - [ 

WORD 

D 

ATA ]¥N¥N ")； 









114 

PK () ； 









115 

PRINT( •• テ*イスク 

ニキロク 

サレル V■ ウイキ ¥N¥N M ) 

； 





116 

PRINT (" オフ tv 卜 

アト•レス 

O000-0FFF 

マテ•卜 

ナフテ： TV マス •¥N¥N¥N" 

); 


117 

PRINT (" キ n クケイシキ ¥N¥h 

1 ")； 







118 

PRINT( __ サ * ヒ b ウ 

テ -- 夕： 

[ XI ， 

n H 

Z1][ 

X2 

][Y2 

][Z2 


0 ； PZ 
0 ； GENZ 


...¥N¥N ")； 

119 PRINT<"1r ンフ * ンテ'*-夕 


[PI] [P2] [PI][P2] [PI] [P2] [P1HP2]. 


39 

IF (MEM[FNAD] > 0) 

AND (FF == 

0) 

LOADFILE(FNAD )； FF 

•.¥N¥N 

•)； 




； ] 




120 

PRINT (” サ • ヒ b ウコスゥ 

: [PCT 

]¥NYN ") ； 


40 

FNAD = &FLNAME ； 




121 

PRINT(”t ンフ*ンコスウ 

: [LCT 

]¥N¥N M ) ； 


41 

FOR R = 0 TO 8 [ PAR[R] = 0 ;】 



122 

PRINT( •• 拿チュウイ ¥N¥N M 

； 



42 

PAR[ HEAD ] =75; 




123 

PRINT(" テ*ィスクニ t- 

つ . スル！ ' キ《 

シ *ro テキニカクチ b ウシ 1 MOD * 

力*ツキマ 

43 

_PAR 【 _PITCH] = 360 

-10; 



ス 、 

» クチ nO¥N¥N" > J 




44 

_SHEAD =15 ； 

SPITCH = 

360 

- 10; SBANK = 0 ； 

124 

PRINT (” シハッケナイテ * 

クタ * サイ • 7 夕、 D - 卜 * スルトキ乇シ • 卜•ウテキニ 

» クチ!!ウシ 

45 

OFSX = 0 ； 

OFSY = 

0 ； 

_OFSZ = 200 ； 

^OD* 

ヲツケテ ¥N¥N"); 




46 

WSCR ()； REDRAW ()； 




125 

PRINT ("フアイルオーフ•ン 

ヲスルノテ '*, 

ツヶナイテ - クタ • サイ • ¥N¥N¥N" > 

PKO ； 

47 

MLOOP1 : 




126 






48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 
B6 
87 


«MODE{2,1) : «GRAD(0 )； 

@WINDOW(1,1, 98, 98 )； ®FULL( 1,1,198, 98 )； 

@WINDOW(200, 0, 399, 98 )； «FULL( 200, 0, 399, 99 )； 

«WINDOW( 1,101, 198, 198): @FULL(1, 101 ,198,198 )； 
®WINDOW(201, 101 ， 39 8,198 )； 8FULL(201, 101 ,398,198 )； 
PRINT{ '*¥C ")； 

PRINT("Select Menu"); 

PRINT("1) SET POINT ")； 

PRINT (•’ 2) SET WIRE"); 

PRINT( M 3) ERASE POINT ")； 
PKINT("4) ERASE WIRE ")； 

PRINT("5) ROTATION ")； 

PRINTC'6) PALET ON") : 


カワリニカーソルキ ー * [ 5 ]<- 




PRINT("7) 
PRINT (”8 
PRiNTC'S) 
PRINTC'L) 


LOCATE<60 
LOCATE(60 
LOCATE(60 
LOCATE(60 , 3 
LOCATE(60 , 4 
LOCATE(60 , 5 
LOCATE(60 , 6 
LOCATE(60 , 7 
LOCATE(60 , 8 
LOCATE(60 , 9 
LOCATE(60 ,10) 

LOCATE{60 ,11) 

LOCATE(60 ,12) 

LOCATE(60 ,13) 

LOCATE(60 ,14) 

LOCATE(73 ,15) 

し OCATE(61,16) 

LOCATE(75 ,17) 

LOCATE(61,18) 

LOCATE(61,19) 

LOCATE(64 , 20) 

LOCATE(61, 22) 

LOCATE(61, 23) 

MLOOP2 : 

KEY = INKEY(C) : 

IF (KEY == 0) GOTO MLOOP2; 
PKINT("¥C">; 

CASE KEY OF 【 


PALET OFF** )； 

POINT MOVE ")； 

SAVE DATA ")； 

LOAD DATA.. > ; 

PRINK"C) CLEAR ")； 

PRINT("R) ROTATION 2 ")； 

PRINTC'M) MOVE _") 

PRINT( n E) END (H ： HELP)") 

PRINT(”. ")； 

PKINT (” O-EDIT j *')； 
PRINT ("_")； 

PRXNT("OSAKA DENKI TSUSIN ")； 
PRINT("DAIGAKU KOUTOU"); 
PRINTC'GAKKOU ")； 
PKINTC'E.D.P.S. bu ")； 

PRINT("Junichi Kuroki ">； 


SETP ()； 

SETW(); 

ERAP ()； 

ERAW ()； 
ROTATION {)； 
«PALET{0 ,1 


7 )； 


127 PRINT(" << 力ーソルニツイテ >>VN¥N">; 

128 PRINT (" コノエテ • イターハ • ホトント * ノソウ，ヲテンキーテ - ： T コナエマス * ケッテイ A 
5] キー * キャンセルハ ¥N¥N"> J 

129 PRINT(••!■ ナッテオリマス • 7 夕，テンキー 
二 [RETURN 】 年 - ¥N¥N" >; 

130 PRINT{__[0] キ-ノ カワリこ [SPACE1 キ - [1]• [ 3 ] ， [ 7 ] • [ 9 ] キ - ノ》ワリニ 
[J],[K 】， [U],¥N¥N") ; 

131 PRINT("[I] キーヲシヨウスルコトカ * テ • キマス • マタ，モクテキノイチニスハ -T ク 
力 - 、ル ヲイト * ウ ¥N¥N"> I 

132 PRINT (" サセルタメ • 力ーソルノイト • ウリ ■ ウハカナリオオキクナッテマス • コレテ_八コマ 
カナキャラクタ ¥N¥N ") ； 

133 PRINT (" ツクレナイノテ * ，イ I•• ウリ bO ) ヘンカヲ [S],[ + l キー f* サセル 3 卜 H" 
テ * キマス * VNYHYN ") ； 

134 PK () ； 

135 

136 PRINT(" << フ•ッタイノ X テ • イットニツイテ >>¥N¥N"}; 

137 PRINT(" マス • 、フ *- ノタイヲエ JT クタメニハセンヲヒカナゲレイケ 7< ヤー 7 レ 
-L ハセンタ•ケ 

138 PRINT ( "J アツマリ f ■ スカラ * セン i ヒク U トニナレテイタタ • ケレ /r カンタンニコノ 
ツールヲツカイコナス ） ； 

139 PRINT (" コトカ * 9- ¥NVN ") ； 

i<10 FkJNT(" マス - ，ヒキタイセンノリハシニテンヲウッチクタ - サイ • [1 】ノ SET 
POINT テ • ス • ¥N¥'N") •, 

1 A 1 PltlNT (" 力ーソル f-, 7 タハテンキー f- 力 ■ ソルヲ〇ク • カジ * テンヲ [ リターン ]* v クハ 

【 5] キーテ * テン ¥N¥N，_); 

142 H«1NT( "V ウツ a 卜力 * テ • キマス • モシ * vf ■ 力 * I テヘンナイチニテンヲウッ r シマッ 
9 ハ - アイ， [0]¥N¥N"}; 

143 PRINT{“ キーマタハ【 X へ • ース ] キーテ - SKT POINT ヲ 7 ヶテ [3] キー f ERAS 
E POINT ニハ ¥N¥N..); 

144 PRIMT (" イリ、 18 】 , 【 2 】マタハカー • ノルテ * tv トシクテンヲエラヒ • • ケ 7 テイキ 
- テ * クシ * n¥N¥N") J 

1‘15 PK () ； 

146 PKINT (" シテクタ - サイ • モシ テンヲケスノカ * イ V テ • シタラ . [8 ] 寄ーノ POINT MOV 

li f , ERASE-\NVN ")； 

14 7 PH I NT ( "-POINT ノトキ I •• ウヨウニテンヲエラヒ • • ツキ•ニモクテキノイチニカ 

- ソルヲウコ - 力 • 

148 PRINT {" ケッティキーヲオシテクタ * サイ • アヤ 7 ッテ 1 ：ットシタテンカ*ソノモクテキノ 
イチニイト * ヴシ ¥N¥N")J 

149 PRINT<” マス . ¥N¥N") ; 

150 PRINT(" 7 タツノテンヲウッタラツキ * ハキヤンセル寄一 t* メニ 1- ニモト • リ ， [2 


112 Oh! X 1992.9. 


► トルクとかの概念を使わずに，よくここまで花瓶の！ P 力きをシミュレートできましたね0 
こういう記取を見る！:，僕にもやる気がわいてきます。 佐伯章 (19) 束京都 














END(KEY )； 

DCSR(MM , MS 
ARRAY WORD 


WORD 

BYTE 

VAR I ； 
BEGIN 

©MODE(MM 
©WINDOW( 
0BOX( LX 


KEY = INKEY(0 )； 

IF (KEY == 0) GOTO CORSOR1; 
IX = PX ； 

IY = PY ； 

IZ = PZ ； 

KEY = KEYCNV(KEY )； 

CASE KEY OF [ 

PX 
PX 
PY 


PX - MSTEP[SPEED ]； 

PX + MSTEP[SPEED ]； 

PY + MSTEP[SPEED]; 

PY = PV - MSTEP[SPEED ]； 

PZ = PZ - MSTEP[SPEED] : 

PZ = PZ + MSTEP[SPEED ]； 

[SPEED ++； SPEED = (SPEED MOD 4) : ] 
[SPEED++; SPEED = (SPEED MOD 4); 


[KFLAG 

[KFLAG 


1；GOTO CORSOR2 ； 
0 ； GOTO CORSOR2; 


1 


2 ) 


DCSR(0 ,1 
DCSR(2 ,1 
LOCATE(60 
PRINT("X：" 
LOCATE(60 
PRINT!"Y:" 
LOCATE(60 
PRINT!"Z：" 
LOCATE(60 , 3) 
PRINT("POINT：") 
LOCATE(60 , 4) 
PRINT("WIRE :" 
LOCATE(60 , 5) 
PRINT ("SPEED: 
GOTO CORSOR1 ； 
CORSOR2 : 

END ； 

KEYCNV(KEY) 

BEGIN 

CASE KEY OF 


IY 

PY 


IZ )； 
PZ) : 


PRINT(PN${ PX ))； PRINT(" 
PRINT(PN$(-PY) ) : PRINT(.. 
PRINT(PN$( PZ"; PRINT(" 
PRINT( PMAX )； PRINT(" 
PRINT( WMAX )； PRINT(" 
PRINT( SPEED )； PRINT(" 


» » 

KEY 

r 

•O' 

(* 

CANSEL KEY 

$6D 

KEY 

= 

V5* 

(* 

SET KEY 

$1E 

KEY 

= 

*8 ' 

(* 

UP 

$1F 

KEY 

= 

f 2* 

け 

DOWN 

SIC 

KEY 

= 

*6 1 

け 

RIGHT 

$1D 

KEY 

= 

， 4 , 

け 

LEFT 

， J' 

KEY 

= 

， 1, 

(* 

LEFT,DOWN 

*K* 

KEY 

= 

*3* 

(* 

RIGHT,DOWN 

•u* 

KEY 

= 

T 

(* 

LEFT,UP 

T 

KEY 

= 

'9' 

(本 

RIGHT,UP 


®WINDOW( 201 ,1, 398, 98); 

FOR I = 0 TO 3 

[ 

COS[I * 3 ]=COR[I * 3 ] + LX 

COS[I * 3 + l]=COR[I * 3 + 1]+ LY 
COS[I 本 3 + 2]=COR[I 本 3 + 2] + LZ 


QSETODUCOS , 3) ; «SETWD(&COW 
_PAR[ 0] = _OFSX ； 

_PAR[ 1]=_OFSY ； 

_PAR[ 2 】 =_OFSZ ； 

_PAR し HEAD] = _SHEAD ； 

_PAR し PITCH] = _SPITCH ； 
_PAR[_BANK] = _SBANK ； 
@MAGIC(C )； ©MAGIC(1) : 

END ； 


3 )； 


OMOVE() 

VAR I ； 

BEGIN 

PX = 0 ； PY = 0 ； PZ = 0 ； 
OMOVE1 : 

CORSOR ()； 

IF (KFLAG ==1)[ 

FOR I = 0 TO 255 


OBJDC[I][0] = OBJD0[I][0] - PX ； 
OBJDO[I1 t 1]= OBJDOU][1] - PY ； 
OBJDO[I][2] = OBJD0[3][2] - PZ ； 


REDRAW(); 

BEEP ()； BEEP ()； 

PZ = 0 ； PY = 0; PX 

GENZ = GENZ + PZ ； GENY 
GENX = GENX + PX ； 

GOTO OMOVE1 ； 


0； 

GENY 


IF (KFLAG == 0) RETURN ； 
GOTO OMOVE1; 
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255 
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305 @WINDOW( 1, 101 ,198, 198) : 

306 ®BOX( し X + 98, LY ./. 2 + 149， LX + 100, LY • ハ 2 

1)； 

307 ®WINDOW( 201 , 101 , 398, 198 )； 

308 «BOX( LZ + 298,LY ./. 2 + 149,LZ + 300,LY ./. 2 + 


. 2 ) 

+ 15 

151) 


オナシ * 3 ウニテンヲセレ 


] テ * SET WI-¥N¥N ") ； 

151 PRINT("-RE ヲェランテ • クタ • サイ 、 ERASE POINT 
クト f. キマスノ t* ¥N¥N ") ； 

152 PKINT (" テンヲフタツエランテ，クタ * サイ • センカ * ヒケマス • モシマチェテセンヲ 
ヒイテシマッタ 5 、ェ 

153 PRINT (•• 又ケ - フ • キ - テ * メニ : I - ニモ r •ハ ERASE POINT ノ ヨウリ b ウテ • t 
ンヲサクシ * a シ ¥N¥N"); 

154 PRINT (" テクタ ‘ サイ •¥N¥N¥N") ; PK () ； 

155 

156 PRINT(" < く 口ーテーシ b ンキノウニツイテ >>¥N¥N ") ； 

157 PRINT(" ェテ . イットシテイルサイチュウニテンカ - オオクナッタリ，ウイント•勹カラハミタ 
•■スヨウナオオキナ 

158 PRINT (" キャラクタヲツクッテイルト、カナリフへ * ンニナリマス • ソンナトキハ， [5] ノ 

ROTATION 力， ¥N¥N"); 

159 PRINT{" [M] ノ MOVE エランテ，クタ * サイ • ROTATION テ - ハ， 3D ウイント•ウ 
ノキャラクタヲ ¥N¥N”>; 

160 PRINT (" カイテンサ t タリ、サイス，ヲチイサクサセルコトカ • テ * キマス • MOVE テ-ハ 
ヒトツカーソル I)' VN'VN ") ； 

161 PKINT( "f- VX ノテ * 、スキナイチテ * ケッテイキ - ヲオスト、ソノイチヲチ a ウシン 
トシテ、キャ 7 ク ¥N¥N”>; 

162 PRINT (" タノサ •' ヒ b ウヲサイデイキ - シマス •-¥N¥M¥N”} ; PK () ； 

163 

164 PRINT (’• くくツクッタキャラクタヲタハンミタイヒトノタメニ >>¥N¥N ") ； 

165 PRINT{" コノエテ • イタハツクッタキャラクタヲナニカノソフトウェアテ • ツカウマェニ 
卜 '■ ンナカンジ * 

166 PRINT (" テ-ヒ b ウシ*サレルカカクニンスル 3 卜力 * テ，キマス • メニュ - テ * 【 R] ノ R 

OTATION 2 =?¥N¥N ") ； 

167 PRINT 《 " エラン r* クタ * サイ • 力 '• メンイッハ • イニワイフレー / ヒ b ウシ-ヲシテクレマス 

♦ »• メンニソウ ¥N¥N"}j 

168 PRINT (" サホウカ • ヒ b ウシ • サレマスノテ • ，ソレ：：シタカ-ッテスキナイチカラミテ 
クタ • サイ . ¥N¥M¥N ") ； 

169 PK () ； 

170 

171 PRINT(" << SAVE/LOAD キノウニツイテ >>¥N¥N">5 

172 PRINT (" コノツールハサクヤイシタテ *- タヲテ * イスクニホソ • ンスルコト D. テ•キ 
マス • MENU テ ''¥N¥N">1 

173 PRINT("[S] ヲ t ンタクスルトテ ‘ イレクトリカ * ヒ b ウシ * サレテ、フバルネ-ムヲニ 
1勺、1•ク スルヨウ ¥N¥N"); 

174 PRINT (" ヨウキ a ウシテキマス • 3 コテ * 、カクチシヲイレス * 二 13 モシ*イナイニフ 
7■ イルホームヲニ ¥N¥N "}-， 

175 PRINT (" ユウリ b クシテクタ - サイ • シ *1 •• ウテキニカクチ b ウシ * MOD 1 力 * ツキ、シュウ 
リ b ウシマ X*¥N¥N"); 

176 PRINT( " LOAD - ツイテ i\ SAVE トト • ウヨウノソウサヲ [L] ヲ t ンタクシタ 
アトオコナ-ノテクタ 

177 PRINT { ， • サイ • カクチ b ウシハイリマ 1: ン ♦ ¥N¥N¥N" > ; PK () ； 

178 

179 #IF し PLOTSW == 1) 

180 

181 PRINT(" << フ •n - ノタシュツ Va クキノウニツイテ >>¥N¥N"}; 

182 PRINT(" コノツ •■ ル f • ハ ， ROTATION 2 ヲ t ンタクシテルトキノミフ • U ッタニキ 
ャラクタヲカキコム ; 

183 PRINT (” コトカ * テ * キマス * キャラクタヲカイテンサ t テルトキニキニイッタアンク-ル 
- ナッタう [P]¥N¥N ") ； 

184 PHINT (" テ * フ • ロッタニシュツリ b クシテクレマス * シ 3 ウテ - キルフ • ロッタ A フ•リンタ 
ホ•■•トニ t ッ ¥N¥N") ; 

185 PRINT("V* 0 カノウテ、 'H* , 1 J1 1 , f M xl , yl* , ，D xl,y2 

， IT ツカェルモ ¥1^¥1«1"}; 

186 PRINT( 'V テ • ス • ¥N¥N¥N" > ; PK () ； 

187 

188 #ENDIF 

189 

190 PRINT ( " くくキト * ウシ，ノテ *- タヨミコミニツイテ >>¥N¥M">; 

191 PRINT (" コノツールヲタチアケ，ルトキ、卜 * ウシ * ニテ *- タヲ 3 ミコムコトカ " テ - 
キ マス • ¥N¥N¥N ") ； 

192 PRINT("# O-EDIT:file name.MOD [CR]¥N¥N¥N ")； 

193 PRINT (" トイウフウニウチコンテ * クタ - サイ • file name ノフ • フ ■• ンニハ、フア 
イルネームカ * ¥N¥N ") ； 


194 

PRINT (" ハイリマス * カクチ a ウシ *MOD 

l\ 

ノ B 勺リャク 

テ * キマヤン * ¥N¥N¥N ")； 

PK( 

195 









196 

PRINT("tEOD]¥N ") ； 

BEEP ()； 

BEEP ㈠ ； BEEP{ ) ； PK ()； 

BEEP ()； 

197 









198 

PRINTC'VC ")； 








199 

8PALET(0 ,1,2 

3,4 

5 

6 , 

7 )； 




200 

END; 








201 









202 

PKO 








203 

BEGIN 








204 

WHILE(INKEY(0) 

= 0 ) n 







205 

END; 








206 









207 

WSCR() 








268 

VAR I ； 








209 

BEGIN 








210 

«INIT ()； 








211 

©MODE(2,0 )； 








212 

FOR I = 0 TO 39 

[@LINE(I * 

10 . 

C , 1*10 , 

199): 


213 

FOR I = 0 TO 39 

[QLINE(0 , 

1*5 

, 399 , I 

本 

5) : 


214 

®GRAD(0 )； 








215 

©MODE(2 , 0}; ©FULL (200 

,0 

, 399 

, 99 )； 




216 

©MODE(2 ,1) : ®FULL(200 

,0 

, 399 

, 99 )； 




217 

@M0DE(2 , 2) : ®FULL(2O0 

,0 

, 399 

, 99); 




218 

®WINDOW( 200 , 0 , 399 

, 99 )； 





219 

©MODE(2 , 0); 








220 

@TLINE(0 - _OFSZ ./. 2 

,0 

,0 . 

OFSZ ./. 



〇) ； 

221 

@TLINE(0 , 0 -. 

OFSZ ./ 

. 2 

. 0 . 

0 , _OFSZ 

/ 

2 , 

0 )； 

222 

»TLINE(0 , 0 ,' 

- OFSZ ./ 

• 2 , 

0,0., _OFSZ ./. 

2 )； 

223 

®WINDOW( 0 , 0 

639 , 

199) 

; 





224 

OCBOX( 0 , 0 

. 199 , 

99 

, 6 )； 





225 

@CBOX( 0 , 100 

, 199 , 

199 

,6 )； 





226 

®CBOX(200 , 100 

, 399 , 

199 

, 6); 





227 

END ； 








228 









229 

CORSOR() 








230 

VAR KEY , IX , IY , IZ ； 







231 

BEGIN 








232 

DCSR(2 ,1,PX 

.PY , 

PZ) ； 






233 

LOCATE(60 , 7) 

PRINT{" 

[41 

[6] ： X ")； 




234 

LOCATE(60 , 8) 

PRINT(" 

[8] 

[2] ： Y ")； 




235 

LOCATE(60 , 9) 

PRINTC'IQI 

[Z] ： Z ")； 




236 

LOCATE(60 ,10) 

PRINT(° 

[+ 1 

[S] : SPEED" 

； 



237 

LOCATE(60 ,11) 

PRINT(" 

[51[RET] : SET" )； 




238 

LOCATE(60 ,12) 

PRINT("[0] 

[] : ESCAPE") 



239 

CORSOR1 : 
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351 

BEGIN 



461 

BEGIN 

352 

SETP1 : 



462 

PARA = GETFNAME ()； 

353 

CORSOR () ； 



463 

IF (PARA ==-1)RETURN : 

354 

IF (KFLAG == 1)[ 



464 

LOADFILE(FNAD) : 

355 

IF (PMAX < 250) 

[DCSR(2 , 2 , PX , PY 

PZ )； 

465 

REDRAW ()； 

356 


OBJD0[PMAX) [0] = PX ； 


466 

END ； 

357 


OBJD0[PMAX][1]=PY ； 


467 


358 


OBJD0[PMAX)[2] = PZ ； 


46R 

GETFNAME() 

359 


BEEP(); BEEP ()； 


469 

VAR PARA , I ； 

360 


PMAX ++； 

] 

470 

BEGIN 

361 



] 

471 

®PALET(0 , 0 , 0 , 0 , 0 

362 

IF (KFLAG == 0)[ 

GOTO SETP2；] 


472 

CALL($2006 )； 

363 

GOTO SETP1 ； 



473 

PRINT("INPUT FILE NAME¥N" 

364 

SETP2 ： 



474 

PARA = LINPUT(FNAD ,18) 

365 

END ； 



475 

FOR I = 0 TO 20 

366 




476 

[ 

367 

PMOVE() 



477 

IF (FLNAME[I] == 0) 

368 

BEGIN 



478 

[ 

369 

PMOVE1 ： 



479 

FLNAMEU ]=，.，； 

370 

IF (PMAX == 0) RETURN ； 


480 

FLNAMEU + 1]='M 1 : 

371 

SELPOT ()； BEEP ()； 

BEEP() : 


481 

FLNAMEU + 2] = 'O* ； 

372 

IF (KFLAG ==1)[ 



482 

FLNAME[T + 3] = 'D '； 


〇)； 


373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 SETW() 

389 BEGIN 


PX = OBJD0[NOWP)[0] : 

PY = OBJD0[NOWP][1 ]； 

PZ = OBJD0[NOWP1 【 2]; 

CORSOR {)； 

IF (KFLAG ==1)[ 

OBJD0[NOWPHO] = PX ； 

OBJD0[NOWP][1]=PY ； 

OBJD0[NOWP][2] = PZ ； 
REDRAW ()； BEEP ()； BEEP ()； 


IF (KFLAG ==0) RETURN : 
GOTO PMOVE1 ； 

EN1) : • 


390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 


)； 


SETW1 ： 

PRINT("¥C ")； 

LOCATE{60 , 3 >； PRINT(" 【 8] [2]：SELECT POINT" 

LOCATE(60 , 4 )； PRINT(" [5]: SET 1st,2nd 

LOCATE(60 , 5 )； PRINT(" POSITION 

LOCATE (60 6); PRINT <" [0] ： ESCAPE 

LOCATE(60 , 7 )； PRINT("MAX ：")； PRINT(PMAX )； 

SELPOTU ; 

IF (KFLAG ==1)t 

IF (WMAX < 250)[ 

OBJW0[WMAX][0] = NOWP ； BEEP ()； BEEP() : 
LOCATE(60,10) : PRINT("FIRST:" , NOWP )； 
SELPOT ()； 

IF (KFLAG ==1)[ 

OBJW0[WMAX][1]=NOWP ； BEEP ()； BEEP ()； 
WMAX ++； 


IF (KFLAG == 0) GOTO SETW2 ； 
®MODE(2 , 2 )； 

DLINE(WMAX -1 )； 

GOTO SETW1; 


483 FLNAMEU + 4] 

484 I = 20 ； 

485 ] 

4 86 ] 

487 ®PALET(0 ,1,2, 

488 END(PARA )； 

489 

490 LOADFILE(FADR) 

491 BEGIN 

492 "A =1；"DE = FADR ； CALM FILE) : 

493 CALL(ROPN )； 

494 MEMWtDTADR] = $9000; 

495 GETREG<); IF ("CARRY ==1)RETURN ； 

496 CALL(RDD )； 

497 END ； 

498 

499 DLINE(POINT) 

500 VAR XI,X2 , Y1,Y2 , Z1,Z2 , I; 

501 BEGIN 


7)； 


(* FILE SET *) 
(本 FILE OPEN t) 


502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 


@WINDOW(200 
_PAR[ 0] 

_PAR[ 1 】 

_PAR[ 2] 

„PAR[_HEAD1 
_PAI? し PITCH] 
_PAR[_BANK]= 


0 , 399 , 
_OFSX ； 
_OFSY ； 
_OFSZ ； 
_SHEAD ； 
_SPITCH; 
SBANK ； 


99 )； 


FOR I = 0 TO 5 

t 

DUMMYPtI] = OBJD0[OBJW0[POINT][1/3]][{I MOD 3)] 

] 

@SETOD(&DUMMYP , 1}; @SETWD(&DUMMYW , 0); 
®MAGIC(0) ； ©MAGIC ⑴； 

XI = DUMMYP[0] : Y1=DUMMYPtI] ； Z1=DUMMYP[2 ]； 

X2 = DUMMYP[3]; Y2 = DUMMYP[4 ]； Z2 = DUMMYP[5] : 
@WINDOW(1,1,198, 98) : 

®L1NE(X1+ 99, 50-Z1./.2,X2 + 99, 50-Z2./.2); 
®WINDOW( 1,101,198,198 )； 

@LINE(X1+ 99,Y1./.2+150.X2 + 99,Y2./.2+l50 )； 
aWINDOW(201, 101,398, 198) : 

@LINE(Z1 + 299,Y112 + 150, Z2+299.Y2./. 2 + 150): 


413 

SETW2 ： 




523 

END ； 




414 

END ； 




524 





415 






525 

REDRAW() 




416 

SELPOT{) 





526 

VAR I ； 




417 

VAR KEY , OLDP ； 




527 

BEGIN 




418 

BEGIN 




528 

GMASK = 

6 ； 



419 

IF (NOWP .>. 

PMAX - 1)NOWP 

=PMAX - 1; 



529 

©WINDOW( 

1, 1,198 

» 98 )； 


420 

@PALET(0 ,1 

, 2 , 3 , 4 , 5 

,2,7); 



530 

®CFULL( 

1, 1,198 

, 98 , 0,0,0 )； 


421 

DCSR(0 ,1, 

PX , PY , PZ )； 




531 

@WINDOW( 

1, 101 ,198 

, 198 ) ； 


422 

DCSR(2 ,1, 

OBJD0[NOWP][0] 

, OBJD0INOWP][1] 

, OBJD0[N 


532 

eCFULL{ 

1, 101 ,198 

, 198 , 0,0,0 )； 


OWP][21); 





533 

«WINDOW(201, 101 , 398 

, 198) ; 


423 

SELPOT1 : 





534 

©CFULL{ 201, 161 , 398 

,198 , 0,0,0 )； 


424 

KEY = INKEY(0 )； 




535 

_QMASK = 

7 ； 



425 

IF (KEY == 0) GOTO SELPOT1; 




536 

©WINDOW( 

200 , 0 , 399 , 

99); 


426 

OLDP = NOWP ； 





537 

@CFULL( 

200 , 0 , 399 , 

99 , 0 , 0 , 0) : 


427 

KEY = KHyCNV(KEY) : 




538 

OMODE(2 , 

0 )； 



428 

CASE KEY OF 

( 




539 

@TLINE(0 

- _OFSZ ./. 2 , 

0,0, OFSZ ./. 2 , 

0 , 0 )； 

429 


[IF (NOWP . く . PMAX - 1)NOWP++；] 



540 

@TLINE(0 

,0 - OFSZ ./• 

2,0,0, _OFSZ ./. 

2,0 )； 

430 

'2 1 

[IF (NOWP .>. 

0) NOWP--;] 



541 

®TLINE{0 

,0,0- OFSZ 

./. 2 , 0 , 0 , OFSZ 

■/. 2 )； 

431 

, 5 , 

[KFLAG =1 ； 

GOTO SELPOT2；] 



542 

IF (PMAX 

==0) GOTO REDRAW2 ； 


432 

'0* 

[KFLAG = 0 ； 

GOTO SELPOT2：] 



543 

FOR 1=0 

TO PMAX - 1 



433 

1 





544 

t 




434 

LOCATE(60 , 

0 )； 




545 

DCSR(2, 

2, OBJDO[I][0] 

, OBJD0[I][1], OBJD0[I][2]) : 

435 

PRINT("POINT 

NUMBER ： " , NOWP 

," ")； 



546 

J 




436 

LOCATE(68 , 

1 )； 




547 

REDRAW2 ： 




437 

PRINTC'WIRE：" , WMAX 

," ")； 



548 

IF (WMAX 

==0) GOTO REDRAW 1; 


438 

DCSR(0 ,1, 

OBJD0[OLDP][0] 

OBJD0[OLDP][1] 

, OBJD0[O 


549 

FOR I = 0 

TO WMAX - 1[ 

)LINE(I )； ] 


LDP][2J )； 





550 

REDRAW1 : 




439 

DCSR(2 ,1, 

OBJD0[NOWP][0] 

, OBJD01NOWP][1] 

, OBJD0[N 


551 

END ； 




OWP][2}) ； 





552 





440 

GOTO SELPOT1 

j 




553 

ROTATION() 




441 

SELPOT2 ： 





554 

VAR I,KEY ； 




442 

DCSR(0 ,1, 

OBJD01OLDPH0] 

, OBJD0[OLDP][1] 

, 0BJD0[O 


555 

BEGIN 




LDP1[2 })： 





556 

@GRAD{0) : 




443 

®PALET(0 ,1 

i 2 , 3 , 4 , 5 

, 6 , 7 )； 



557 

LOCATE(60 , 

0) : PRINT ("[4] 

[6]:HEAD") ； 


444 

END ； 





558 

LOCATE(60 , 

1);PRINT( "[8] 

[2] ： PITCH n ) ； 


445 






559 

LOCATE(60 , 

2); PRINT("[1] 

[3] : BANK") ； 


446 

SAVE() 





560 

LOCATE(60 , 

3); PRINT("[Q] 

[Z] : MOVE" )； 


447 

VAR PARA ； 





561 

ROT1 ： 




448 

BEGIN 





562 

LOCATE(60 

, 5 )； 



449 

PARA = GETFNAME( )； 




563 

PRINT(" HEAD:", _SHEAD) : 

PRINTC ")； 


4 50 

IF (PARA == 

-1)RETURN : 




564 

LOCATE(60 

, 6 )； 



451 

MEMW[DTADR] 

=0 ； MEMWCSIZE] 

= $1000; MEMW[EXADR] = 0; 


565 

PRINT{"PITCH ： ",_SPITCH) ； 

PRINT(" ")； 


452 

へ A =1;"DE 

=FNAD ； CALL(FILE) : (* FILE 

SET 本 } 


566 

LOCATE(60 

, 7)1 



453 

CALL(WOPN) ； 


(本 FILE 

OPEN *) 


567 

PRINT(" BANK ： ", _SBANK )； 

PRINTC' ") : 


454 

GETREG ()； IF 

("CARRY ==1)RETURN; 



568 

し OCATE(60 

. 8 )； 



455 

MEMW[DTADRJ 

=$9000 ； 




569 

PRINT(" 

OZ:", _OFSZ )； 

PRINT{" ••); 


456 

CALL(WRD )； 


(* SAVE *) 



570 

ROT2: 




457 

END; 





571 

KEY = INKEY(0 )； 



458 






572 

IF (KEY 

==0) GOTO ROT2 ； 


459 

LOAD() 





573 

«M0DE(2 

.0 )； 



460 

VAR PARA ； 





574 

©WINDOW (200 , 0 , '399 

, 99); 



114 


Oh ! X 1992. 9. 


►エサを付け忘れたゴキブリホイホイに，5匹ものゴキブリカす捕まっていた。こいつら何 
を考えて生きているのだろう。 伊藤直也 (21) 静岡県 













KEY = KEYCNV(KEY )； 


576 

CASE 

KEY OF [ 


688 

577 


$1E 

KEY = *8 *； 

689 

578 


$1F 

KEY = ； 

690 

579 


SID 

KEY = M '； 

691 

580 


SIC 

KEY = •6 ,; 

692 

581 

] 



693 

582 

CASE 

KEY OF [ 


694 

583 

M 1 

[_SHEAD= 

_SHEAD-5 ； 

695 

584 


IF ( SHEAD.<.0) SHEAD = _SHEAD+360; ] 

696 

585 

*6* 

'8* 

し SHEAD 

= _SHEAD+5 ； _SHEAD =(_SHEAD MOD 360)；) 

697 

586 

[_SPITCH=_SPITCH+5 : _SPITCH=(_SPITCH MOD 360); 

698 


REDRAW ()；- 
EKAW3 ： 
@PALET(0 , 
END ； 


7)； 


ERAP() 

VAR KEY , NUMBER ； 

BEGIN 

IF (PMAX == 0) GOTO ERAP3 ； 

®PALET(0 ,1,2,3,4,5,2,7 )； 
NUMBER = 0 ； 

LOCATE(60 , 0 )； PRINT("[8] [2] ： SELECT ")； 


•Q ， 

、V 

，0, 


[_SPITCH=_SPITCH-5 : 

IF (_SPITCH.<.0) _SPITCH= _9PITCH+360；] 
[_SBANK= _SBANK-5 ； 

IF { _SBANK.<.0) _SBANK = _SBANK+360 ； ] 

[_SBANK= _SBANK+5 ； 二 SBANK =<_SBANK MOD 360);] 
[IF ( 一 OFSZ<1000) _OFSZ=_OFSZ+20；] 

[IF (_OFSZ>0) _OFSZ=_OFSZ-20；] 

GOTO ROT3 ； 


_PAR[ _HEAD]= 
_PAR し PITCH]= 
_PAR[ _BANK]= 
_PAR( 2]= 
«FULL(200 , 0 , 


_SHEAD ； 
_SPITCH ； 
_SBANK ； 
_OFSZ 
399 


«TLINE(0-—OFSZ./.2,0 
0TLINE(0,0-_OFSZ./.2 
eTLINE(0,C,O- OFSZ. 


IF 


qg) j 

0,_OFSZ./.2,0,0) 

0,0,_OFSZ./.2,0) 

2,0,0,_OFSZ./.2) 


587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 
607 
60B 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 EKASEW(NUMBER) 

619 VAR I ； 

BEGIN 

«MODE(0 , 2); DLINE(NUMBER) : 
«MODE(0 ,1) ； DLINE(NUMBER )； 

FOR I = NUMBER TO WMAX [ 

OBJW0[I][0] = OBJWO[I + 1][0 ]； 
OBJW0[I][1]= OBJW0[I + 1][1 ]； 


1) ； PRINT(*' 

2) ； PRINT(" 


699 LOCATE(60 

700 LOCATE(60 

701 ERAP1: 

702 LOCATE(60 , 4 )； PRINT(" 

703 LOCATE(60 , 5) ； PRINT(" 

704 LOCATE(60 , 6); PRINT(" 

705 KEY = INKEY(0 )； 

706 IF (KEY == 0) GOTO ERAP1 : 

707 DCSR(0 ,1, OBJDO[NUMBER][0] 
D0[NUMBER][2 ])； 


[5] : ERASE WIRE ")； 
[0] : ESCAPE ")； 

PMAX : ", PMAX,". 
WMAX : ", WMAX,". 
ERASE ： ".NUMBER, M . 


OBJD0 【 NUMBER 】 [1J 


(PMAX > 0T AND (WMAX > 0)) 
@MODE(2 , 2); ®FULL(200 , 0 
®SETOD(&OBJD0 , PMAX )； 
@SETWD(&OBJW0 , WMAX -1); 
«MAGIC(0) : 

@FULL(20O , 0 , 399 , 99); 
@MAGIC(1 )； 

@MODE(2 , 0 )； 


399 


99) : 


708 

KEY = KEYCNV(KEY) : 

709 

CASE KEY 

OF 

710 

[ 


711 

•2* 

•8' 

[IF (NUMBER > 0) 

712 

[IF (NUMBER < PMAX - 

713 

*5* 

[ERASEP(NUMBER )； 

714 


IF (NUMBER > PMAX - 

715 

*0* 

[GOTO ERAP2；] 

716 

] 


717 

IF (PMAX 

== 0) GOTO ERAP3 ； 

718 

DCSR(2 , 

1, OBJD0[NUMBER][0] 


GOTO ROT1 ； 
ROT 3 : 

REDRAW ()； 

END; 


15) ； PRINTC'OK ?(Y/N )")； 


620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 ERASEP(NUMBER) 

632 VAR I , F ； 

633 BEGIN 

634 DCSR(0 , 2 
D0[NUMBER][2] 


WMAX —； BEEP( ) ； BEEP ()； 

IF (WMAX .<. 0) WMAX = 0 ； 
END ； 


OBJDO[NUMBER][0] , OBJD0[NUMBER]I 1], OBJ 


635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 ERAW() 


FOR I = NUMBER TO PMAX - 1 
OBJD0[I][0] = OBJDO[I 
OBJI)0[I] t 1]= OBJD0[I 
OBJD0[I][2] = OBJDO[I 


1H0] 

nm 

1H2] 


PMAX 
F=0; 

IF (WMAX 
FOR 


: BEEP ()； BEEP ()； 


0 )[ 

0 TO WMAX [ 

IF (OBJW01I][0] == MEM[&NUMBER]> OR 
(OBJW0[I][1 】 ==MEM[&NUMBER]) 

[ERASEW ⑴ ;P =1；] 


IF (WMAX .>. 0)[ 

FOR I = 0 TO WMAX 
IF (OBJW0[I 】 [0】. 
IF (OBJW0[I][1]. 


MEMf&NUMBER]) OBJWO[I][0]; 
MEM[&NUMBER]I OBJW0 【 I 】 [1]—; 


1)NUMBER ++； 


OBJD0[NUMBER][1] 

D0[NUMBER][2]) : 

719 GOTO ERAP1 ； 

720 ERAP2 : 

721 RHDRAW() ； 

722 ERAP3: 

723 8PALETM0 ,1,2, 3,4, 5,6, 7 )； 

724 END ； 

725 

726 READY() 

727 VAR KEY ； 

728 BEGIN 

729 LOCATE(60 

730 READY1 : 

731 KEY = INKEY(0 )； 

732 IF (KEY == 0) GOTO READY1 ； 

733 CASE KEY OF 

734 [ 

735 'Y* KFLAO =1; 

736 'N* KFLAO = 0 ； 

737 OTHERS GOTO READY1 ； 

738 ] 

739 PRINT( M ¥C ")； 

740 END; 

741 

742 LOOK() 

743 VAR I , KEY , XI,Y1,X , Y , X2 , Y2 ； 

744 BEGIN 

745 IF (PMAX == 0) OR (WMAX == 0) RETURN ； 

746 MPOT =0; * 

747 FOR I = 0 TO 8 [ _PAR[I] = 0;] 

748 «INIT ()； 

749 6MODEC2 , 0) : 

750 «SETODUOBJD0 , PMAX); 

751 «SETWD(tOBJW0 , WMAX -1); 

752 @CRTKN(7 , 0 , 0 )； 6CLS() : @MAGIC(0 )； @MAGIC(1 )； 

753 «CRTKN(7 , 0 , 0 )； ®CLS() : 

754 _PAR[2]=0 ； 

755 PAR[1]=0 ； 

756 GATD {)； 

757 LOOP: 

758 KINP(); 

759 «MAGIC(0) ； SMA01C(1 )； 

760 @CRTKN(7 ,0,0 )； 

761 6CLS ()； 

762 IF (KFLAG ==1)GOTO LEND1; 

763 LOCATE(0 ,10) : 


IF (F ==1) 
END ； 


REDRAW ()； 
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661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 


VAR KEY , NU 
BEGIN 

NUMBER = 0 ； 
«PALET(0 ,1 
IF (WMAX 
LOCATE(60 
LOCATE(60 
LOCATE(60 
ERAW1 : 

LOCATE(60 
LOCATK(60 
LOCATE(60 


• 3,4 | 5 | 2 | 7) ! 

0) GOTO ERAW3; 

0 )； PRINT("[8] [2] : SELECT ")； 


764 

PRINT("SPEED 

",MPOT 


•'YN") 

765 

PRINT("HEAD 

",PN$( PAR( HEAD]) 


¥N H ) 

766 

PRINT("PITCH 

",PN$( PAR 【 PITCH)) 


¥N") 

767 

PRINT("BANK 

",PN$( PARI BANK]) 


¥N") 

768 

PRINT("X 

",PN$( PAR[0]) 


¥N M ) 

769 

PRINT("Y 

"• PN$(_PARtl]) 

" 

> 

¥N") 

770 

PRINTC'Z 

",PN$( PAR[2]) 


¥N") 

771 

GOTO LOOP ； 




772 

LEND1 : 




773 

WSCR ()； REDRAW ()； 





END ； 


1) ； PRINT(" 

2) ； PRINT(" 


[5] : ERASE WIRE ")； 
[0] : ESCAPE ")； 


774 

775 

776 GAID() 

777 BEGIN 


PMAX:, PMAX ,". 
WMAX : M , WMAX r ，.. 

ERASE：", NUMBER,". 


4) ； PRINT(" 

5) ； PRINT(" 

6) ； PRINT(" 

KEY=INKEY(0) : 

IF (KEY == 0) GOTO ERAW1 ； 

©MODE(0 ,1) ； DLINE(NUMBER>; 

KEY = KEYCNV(KEY )； 

CASE KEY OF 

[ 

*2* [IF (NUMBER > 0) NUMBER —； 

'8' [IF (NUMBER < WMAX - 1) NUMBEK ++； 
•5 1 [ERASEW(NUMBER )； 

IF (NUMBER > WMAX - 1)NUMBER = W 
*0* [GOTO ERAW2 : ] 

] 

IF (WMAX == 0) GOTO ERAW2 ； 

©MODE(2 ,1) ； DLINE<NUMBER>; 

GOTO EHAW1; 

BRAW2 ： 


778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 iENDIF 

793 

794 END; 

795 

796 KINP() 

797 VAR KEY ； 

798 BEGIN 


#IF 


PRINT("[4] 
PRINT( "[8 】 
PRINT に '[W] 
PRINTC [1] 
PRINTC [Q] 
PRINTC* [7] 
PRINT (..[0] 
PRINT("[+] 
PRINT("[H] 

_PLOTSW == 
PRINTC [P] 


[ 6 ] 

[ 2 ] 

[X] 

[3] 

m 

【 9] 


X-MOVEVN ")； 
Y-MOVEVN ")； 
Z-MOVEYN ")； 

HEAD ROTATIONVN") : 
PITCH ROTATIONVN ")； 
BANK ROTATIONVN") : 
ESCAPE¥N ")； 

SPEED CHANGE¥N '*)； 
HELP ")； 


PLOTTER ")； 
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799 

KEY 

=0; WHILE(KEY == 0) KEY = INKEY(0 )； 

818 

•9* 

800 

KFLAG 

=0; 

819 


801 

KEY = 

KEYCNV(KEY )； 

820 


802 

CASE 

KEY OF [ 

821 

'Q* 

803 

•H* 

[HELP( ) ; GAIDO；] 

822 


804 

*4* 

FARI0] = PAH[0] - LSTEP[MPOT ]； 

823 

•Z* 

805 


PAR[0] = PARf0] + LSTEPfMPOT ]； 

824 


806 


PAR[1]=PARI 11 + LSTEP[MPOT] : 

825 


807 

, 2 , 

PAH[11=PAR ⑴ - LSTEP[MPOT] : 

826 


808 

•w 

PARI21=PAR[2] - LSTEPfMPOT] : 

827 

#IF (_PLOTSW 

809 

'X* 

PAR [ 2 ] = _PAli[2] + LSTEP[MPOT 】； 

828 


810 

*0' 

KFLAG = T ； 

829 

,P ， 

811 

812 

'l* 

[PAR[ HEAD) = PAR 【 HEAD 卜 5; 

IF (_PAR[_HEAD].<.0) 

830 

831 

#ENDIF 

813 


PAR[ HEAD! = PAR し HEAD] +360 ； ] 

832 


814 


L PAIU HEAD] = PAR[ HEAD] +5 ； 

833 

'S' 

815 


PAR( HEAD] =(_PAR[_HEAD] MOD 360 )； ] 

834 

816 

» 7 . 

[PAR[ BANK] = PAR[ BANK] +5 ； 

835 


817 


PARI BANK! =(_PAR[ BANK] MOD 360) ； J 

836 

END ； 




【 _PAR[_BANK] = _PAR し BANK] -5 ； 

IF (_PAR し BANK].<.0) 

_PAR [ 一 BANK 】 =_PAR し BANK] +360; 

(_PAR[_PITCH)= _PAR[_PITCH]+5; 

_PAR[_PITCH] = ( PAfi し PITCH] MOD 360) : 
【 _PAB[_PITCH]= PAR[_PITCH]-5; 

IF ( PAR し PITCH].<.0) 

PAR[.PITCH]= _PAR[_PITCH]+360 ； 


8PL0T ()； 


[MPOT ++； MPOT = (MPOT MOD 6};] 
[MP0T ++； MPOT = (MPOT MOD 6)；] 


] 


リスト 4 MODCNV 




MAGIC DATA ] => [ TEXT DATA 1 Convert 

MM MM 000 DDDD CCCC NN N V V 
MMMO 0 D DC NNNVV 
M M 000 DDDD CCCC N NN V 


14 

15 

If. 

17 

18 

19 

20 
21 


** Program 

事零蓽 

* 拿拿 * 拿本 * 寒*拿 

ORG $3000 ； 

OFFSET $6000; 

WORK $D00O ； 

ARRAY WORD 

BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


Mori Kiichiro Kuroki Junichi 


OBJD0[255][21:*9O00, 
OBJWO(255][1] ： $9600, 

DEC2[4J = ( '* 000" ,0], 

DEC4[6) = [•* 00000" ,0], 
FLNAME120], 

LABEL!20 ]； 


94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 
116 


")； 


FPRINT(0," BYTE 

FPRINT(0,LABEL )； 

FPRINT(0,"_W [ M )； 
FPRINT(0,DEC2CNV(WMAX-1 ))； 
FPRINT{0,"][1]=[VN ")； 

CT=0; 

FPRINT(0," ")； 

FOR 1=0 TO WMAX-2 【 

FOR J=0 TO1[ 

FPRINT(0,DEC2CNV(OBJW0[I](J])) 
FPRINT(0, 

] 

IF (++CT==5) 【 FPRINT(0,"VN 


ラスト 


キ • 


51 

52 

53 


56 

57 

58 

59 

60 
61 


67 

68 
69 


VAR PMAX：$9800 . WMAX：$9802 , 

FNAD , FNLN , 

DTADR = S1F70 , SIZE = $1F72 , EXADR 
WOPN = $1FAF , ROPN = $2009 , WRD 

MAIN() 

VAR I,J,CT,PARA ； 

BEGIN 

PRINT("¥C くぐぐ < MODCNV VI.00 >>>>¥N ")； 
FNAD = FLNAME ； 

PARA = GETFNAME ()； 

IF (PAHA ==-1)RETURN ； 

LOADFILE(FNAD) : 

FOR 1=0 TO 20 [ 

IF (FLNAME [I] == ，ノ ） 【 

FLNAMBII ♦1]=’S*: 

FLNAMEII + 21= ， L ，； 

FLNAMEtI + 3 】 = 

Is 20 ； 

] 


$1F6E 

$1FAC 


FILE = $1FA3 
RDD = $1FA6 


*/ 


FPR1NT(0,DEC2CNV(OBJWO[I][OJ ))； 
FPHINT(0 ," l M )； 

FPRINT{0,DEC2CNV(OBJWO[I 】【 11)>; 
FPRINT(0,"] ； ¥N ")； 

KPUTC(0,0 )； 

FCLOSE(0 )； 

END ； 


I ； 


] 

/* 

零*ファイルカ寺: 12 
*/ 

FOPEN(0,FLNAHE,3 ) ； 

FPRINT(0, *7/ MAGIC 3D DATAVNVN ")； 
FPRINT(0,"CONST " J ; 

FPRINT{0,LABEL) : 

FPRINT(0, ,, _PMAX =")； 

FPRINT(0,DEC2CNV(PMAX-1 ))； 
FPRINT(0,",">; 

FPRINT(0, し ABEL)l 
FPHINT(C, M _WMAX =")； 

FPRINT(0.DEC2CNV(WMAX-1 ))； 
FPRINT(0," ； ¥N¥N , ')； 

f t ■ウテ*-夕 1： イ t ィ 

FPRINT(0,"ARRAY M )； 

FPRINT(0,LABEL) : 

FPRINT(0,"_D [")； 

FPKINT(0,DEC2CNV(PMAX-1 ))； 
FPRINT(0,"l[2]=t¥N">; 

FOB 1=0 TO PMAX-2 [ 

FPRINT(0," 


119 

120 
121 
122 

123 

124 

125 

126 

127 

128 
129 
13Q 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 
146 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 DEC2CNV(D2) 

161 BEGIN 

162 IF (D2 .<. 0) DEC2I0] 

163 D2 = ABS(D2); 


GETFNAME() 

VAR PARA 
BEGIN 

CALL{$2006); 

PHINT("INPUT FILE NAMEVN ")； 

PARA = LINPUT(FNAD ,18 )； 

FOB I = 0 TO 20 LABELtI ]=Fl.NAME[I ]； 
FOR I = 0 TO 20 
[ 

IF (FLNAME[I] 


FLNAME[I ] 
FLNAME[I + 1] 
FLNAMEII + 2] 
FLNAMEII + 3] 
FLNAME 【 I + 4 】 
I = 20 ； 


END(PARA )； 

LOADFILE(FADR) 

BEGIN 

"A =1;•'DE 
CALL(ROPN) : 

MEMW[DTADR] = $9000 ； 

GETREG ()； IF ('CARRY ==1)RETURN ； 
CALL(RDD )； 

END ； 

FPRINT(FP,BYTE BUP[]) 

VAH I; 

BEGIN 

1=0; WHILE ( BUF[I]>0 ) 

[ 

PRINT(STR$(BUF[I],1 ))； 
FPUTC(FP,BUF[ 1++ J) : 

IF (IHKEY(O)>0) PK ()； 

] 

END ； 


FADR ； CALL(FILE); 


FILE SET *) 
FILE OPEN () 


ELSE DEC2[0]= 


71 


FOR J=0 TO 2 【 


164 

DEC2[3]= 

, 0*+D2-(D2 

/ 

10 

零 

10) 

D2 

= D2 

/ 

1 〇 ; 

72 


FPRINT(0," X ")； 


165 

DEC2[2J = 

*0'+D2-(D2 

/ 

10 

t 

10) 

D2 

= 1)2 

/ 

10: 

73 


FPRINT(0,DEC4CNV(OBJDO[I][J ]))； 


166 

DEC2[1]= 

, 0 , +D2-(D2 

/ 

10 

t 

10) 





74 


FPBINT(0 , M ,")； 


167 

HNO(DEC2) : 










75 


1 


168 











76 


FPRINT(0,"¥N ")； 


169 

DEC4CNV(D4) 










77 


] 


170 

BEGIN 










78 

/« 



171 

IF (D4 .< 

0) DEC4[0] 


•- 

*； 

ELSE DEC4[0 



79 

* s 

ラスト 1 哿•■ウ 


172 

D4 = ABS(D4 )； 









80 

• / 



173 

DEC4[5]= 

, 0*+D4-(D4 

/ 

10 

專 

10) 

04 

= D4 

/ 

10 ； 

81 


FPRINT(0," ")； 


174 

DEC4[4J = 

'0'+D4-(D4 

/ 

10 

拿 

10) 

D4 

s D4 

/ 

10 ； 

82 


FPRINT(0," X") ； 


175 

DEC4[3]= 

W+D4-(D4 

/ 

10 

t 

10) 

1)4 

= D4 

/ 

10 ； 

83 


FPRINT(O,DEC4CNV(OBJD0[I][0] ))； 


176 

DEC4[2]= 

, 0 , +D4-(D4 

/ 

10 

* 

10) 

D4 

= D4 

/ 

10 ； 

84 


FPRINT(0,",") ； 


177 

DEC4 【 1]= 

, 0'+D4-(D4 

/ 

10 

拿 

10) 





85 


FPRINT(0.，. X..); 


178 

EN0(DEC4) : 










86 


FPRINT (0 , DEC4CNV (OBJD0 け】【⑴ >; 


179 











87 


FPRIMT(0,",") ； 

180 

PK() 










88 


FPRINT(0," X ")； 


181 

BEGIN 










89 


FPRIHT(0,DEC4CNV(OBJD0[I][2])) ； 


182 

WHILE(INKEY(O)>0)[ 









90 


FPRINT(0, ,, J l ¥NVN , ) ； 


183 

WHILE(INKEy(O)==0)[] 
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/* 


184 

WHILE(INKEY(O)>0)[ 
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11 

t ン 7 ■ン f -9 t ィ t イ 

185 

END ； 
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*/ 
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Z’sST AFFSZ’s-EX 用外部フアイル 


ジャ^-除法に挑戦 

Miki Tokutaka 御木徳高 

ブログラム原作 佐藤正春 

Z ' s - EXSZ'sSTAFF ver .3,0 兼用の外部ファイルとして,シャキー除云 
フィルタを発表します。このフィルタは画面上のドット解像度不足によるギ 
ザギザを目立たなくする手軽なツールです。 


f | :i ジャギー除去とは 

今回の外部プログラムは佐藤正春さんか 
らの投稿による「ジャギー除去に挑戦」で 
す。ただし，投稿していただいたのが Z ’ s - 
EX 専用でしたので， Z’sSTAFF ver 3. 0で 
も利用できるように手を加えました。 Z’s 
STAFF 対応にしたほかは必要以上に手を 
加えるのを避けました（ただ面倒だっただ 
けという話もある）。 

Z ’ sSTAFF などで絵を描いたことのある 
人ならわかると思いますが，ただ単に画面 
に線を引こうと思っても（水平や垂直線な 
らともかく），決して綺麗に引くことはでき 
ません。どうやっても階段状になってしま 
います。 

これは画面を構成するピクセルが縦横に 
碁盤の目のように並んでぉり，そのピクセ 
ルが光っているかどうかで直線を表してい 
る以上，しかたのないものです。ピクセル 
を増やせば，見た目はある程度改善されま 
すが，なによりピクセルの数はハードによ 
り制約され，そう簡単に増やせるものでは 
ありません。 

では，どうすればいいのでしょう。どう 
やら「ピクセルが光っているかどうか」が 
怪しそうです。これを「ピクセルがどの程 
度光っているか j としたらどうでしょう。 
いま，仮に図1のような線を引きたいとし 
ます。前者の方法では左下のような階段に 
なってしまいます力す，後者の方法ではどう 
でしょう。任意のピクセルを正方形（また 
は長方形）と考えて，その正方形の中を直 
線が通った割合で明るさを決めるようにし 
ます（図1右下)。そうすることによって視 
覚的にはごまかすことができます。 

幸い X 68000 では同時に65536色表示でき 
ますので（今回は輝度ビットを使わないの 
で32768色)，中間調表示はぉ手のものです。 

これをアンチエリアシングといい，レイト 


レーシングなどの 3 D グラフイックではよ 
く用いられる技法です。ただし， 3 D 流の方 
法ではすでに描かれたビット マップ データ 
にアンチエリアシングをかけることはでき 
ませんので，ドットパターンから比率を適 
度に認識して，疑似的にアンチエリアシン 
グをかけてしまおうというのが今回のジャ 
ギー除去の方法です。 

f 「比率 認識のアルゴリズム 

とりあえず，階段状になっている部分を 
認、識する必要がありますので，2 X 2ドッ 

図1ライン対比 


卜が図3のような パターン かどうか 片つ端 
から調べていきます。 ① のような ハ。ターン 
はどうしようもないので次の ループに 移る 
として，対角が同色のときを柚出していき 
ます。次に上下左右に並んでいる同色のド 
ット数を数えます。 

たヒ えば，上方向には図4で A 1 が a かつ 
B 1 が a でないとき，まず 1 カウントしま 
す。さらに A 2 が a かつ B 2 が a でないとき， 
A 3 が a かつ B 3 が a でないとき……といつ 
たようにカウントしていき，条件が満たさ 
れないときカウントを中止します0図4の 
場合ではカウントは3となります。 


:のピクセルから 



_ 


単純ライ: 


図2アンチエリアス拡大図 



~ . . . 
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そのようにして， + b の上何ドットに a を 
にじませるかを決めていきます。比率はパ 
ラメータで与えられ， b-Bl.B2-B3 とな 
るにしたがって，比率を少なくします。こ 
のように疑似的に色境界のべクトルを拾っ 
て，アンチエリアスを下.左右方向にも繰 
り返してかけていくわけです。 

あと，終了時には， Z’sSTAFF から呼び 
出された場合のみ，書き換えた部分をテキ 
スト VRAM に転送しています。以前も解説 
したとおり， Z’s STAFF 側のテキスト VRA 
M—G-RAM 転送が無駄になってしまいま 
すが，やむを得ないところでしょう。外部 
プログラムの終了コードで「転送を行わな 
い」ようにできればいいのですけれどね。 

ちなみに Z’sSTAFF は 終了 コードに よっ 
て以下のようなメッセージを表示します。 
〇…正常終了（なにも表示しない） 

1…指定のコマンドは実行できません 
2以上…コマンド行に間違いがありま 
す 

Z’sSTAFF から呼ばれたかどうかは，裏 
アドレスで判別しています。 7 月号でも述 
ベたように， Z’sSTAFF は 1 番目のパラメ 
—夕としてダミーのテキスト VRAM のア 
ドレスを渡すのに対して， Z’s-EX は必ずメ 
インメモリ内のアドレスを渡します。それ 
を利用して，テキスト VRAM のアドレス 
($EOOOOO) が渡されたら Z’sSTAFF から起 
動されたと判断できます。 



スト 2を6 月 号の付録デイ スクについ 
てきた MAC.X で打ち込み， LHA で展開す 
ることで実行ファイルが作成されます。キ 
一操作は, 

A>MACJ 

Y (新規作成の場合のみ） 

LR 丄 ZHJ (ファイル指定） 

C (CRC モード） 

E ( エディットモードへ） 

(データを打ち込む） 

ESC ( コマンドモードへ） 

S ( セーブ） 

4468 J (セーブバイト数指定） 

のようになります。 ファイルの 展開は， 
A>LHA E LR 
です。 

このプログラムは画面全体もしくは矩形 
範囲に対応しています。 

呼び出し方法は， 

LINEREVISE Address 

[XI Y1 X2 Y2] [PI [P2]] 


L なります。ここで，パラメータ P 1 はカウ 
ントするドットの最大値を決定し，パラメ 
ータ P 2 はにじませる濃度を決定します。双 
方とも値が大きいほど効果が強く，仕様上 
の設定範囲は， P1 は 1 ~ 9 (省略時 6) ， P2 
は 0 〜 9 (省略時 5 ) です。が， Z’sSTAFF 
から無理やり 32 などの値をぶちこんでみて 
も，変な特殊効果として面白いかもしれま 
せん。 

また，オプションは渡しても認識はせず， 


全画面か矩形かはパラメータの数で認識し 
ます。 

登録は図 5 のように行ってください。こ 
こで， Z’sSTAFF での登録は例によって‘+ ’ 
を忘れずにつけてください。これを忘れる 
と，メニューバーやウィンドウが保護色と 
化して「どこへいったんだ〜！」と叫ぶハ 
メになります。ウィンドウが質素だと思わ 
れる方はご自由にどうぞ。ただし，ウイン 
ドウの下は書き込まれないでしよう。 


図3 2 X 2 ビットパターン 





図4カウント例 


left = 2 


上方向カウンタ up= 3 



right = I 


図5登録方法 


Z ’ sSTAFF での登録 



パラメータを省略しない 

濃度 パラメータを省略 

両パラメータ省略 

画面全体の場合 

LINEREVISE % % /A+ 

LINEREVISE % /A+ 

LINEREVISE /A + 

矩形指定する場合 

LINEREVISE % % /B + 

LINEREVISE % /B+ 

LINEREVISE /B + 


Z ’ s - EX での登録 （ Z ’ s - EX 内で） 



パラメータを省略しない 

濃度パラメータを省略 

両パラメータ省略 

画面全体の場合 

:ジャギー除去 

:ジャギー除去 

:ジャギー除去 


0,2 : 卜 9,6 : 0-9,5 

0, 1 : 1-9,6 

0,0 


LINEREVISE 

LINEREVISE 

LINEREVISE 

矩形指定する場合 

:ジャギー除去 

:ジャギー除去 

:ジャギー除去 


1,2 ：卜9,6 : 0-9,5 

1, 1 : 1-9,6 

1,0 


LINEREVISE 

LINEREVISE 

LINEREVISE 
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II 使ぃ醉 

佐藤さんのぉ便りの中にもありましたが， 
ブラシなどのある絵には悪影響があります。 
また，入り組んだ絵の場合，本来はにじま 
せてほしくない部分までにじんでしまいま 
す。もし，このラインをにじませたくなか 
ったら， ラインを マスクして おけば マスク 
の下はもちろん書き込みしませんし，見る 
こともしません。 

また，反対にマスクの下も見てほしいと 
いうのであれば，71〜72行目の‘ &&(! 
(Tram [i + x ] &1))’と ‘&&(!(Tram [i + x + 
1] &1>)，を取ってコンパイルしてくださ 
い。 

けっこう面倒なことをしている割に，そ 
こそこのスピードで動きます。なかなかよ 
くできたプログラムといえるでしよう。佐 
藤さんは Z ’ s-EX ver .1.0 の頃から自作プロ 
グラムを組み込んでいたそうです。これか 
らもがんばってください。なにを隠そう， 


私も Z ’ s - EX を改良して持ち込んだのがラ 
イタ ーになる きっかけでした。皆さんも外 
部プログラムなど，作ったらなんでもガン 
ガン送ってみてください。 


産としての性格を持ちつつあります。また， 
今後は MATIER の子プロセス起動にも対 
応できるような，コマンドライン起動での 
動作も考慮した外部ファイル作りがいっそ 



グラフィック共通資産へ向けて 


さて， Z ’ sSTAFF の外部拡張をうけて Z’s 
- EX は裏画面の合成などの特殊機能をさら 
に生かしたツールへとバージョンアップが 
進められています。 

エフェクト関係もいっそうの拡充が必要 
でしよう。 EPA 2 や MATIER などを見ると 
なかなか面白いエフェクトが揃っています 
ね。アイデァ次第で無限に拡張できるとこ 
ろ力 5 ' Z ’ s - EX システムの利点ですから，これ 
らのものも徐々に取り込まれていくと思い 
ます（？）。 

これらの外部ファイルは Z ’ sSTAFF や Z ’ 
s - EX だけでなく，フリーソフトウェアの 


MFGED などでも利用できるように対応さ 


れており， X 68000 でのグラフイック共有資 


う重要になってくるでしょう。どうせ作る 
ならなんにでも使えたほう がいいで しょう 
から。 

このような傾向が進むとグラフィックツ 
ールの機能較差がどんどん小さくなります。 
Z ’ sSTAFF にしても MATIER にしても 
MFGED にしても， ユーザー インタフェイ 
スはまったく違いますから， ユーザーは 機 
能よりも「自分の扱いやすいもの」という 
基準で ツールを 選ぶことができるようにな 
るのです。 

そのためには対応する外部フアイルが多 
ければ多いほどよいわけです。現在でもい 
くつかの意欲的な投稿作品が届いています 
が，もっともっと必要です。外部ファイル 
はそのうちかき集められて MOOK 化され 
ると思いますので有志の皆さんの幅広い協 
力をお願いいたします。 


U スト1 


1:/♦ 本 ** 本本本本本本本本 * 本本 * 本本 ** 本本 *. 本本 * 客 * 本 ♦ 本本 * 本 * 本本 * 本 * 本本本拿本 ;*:* 本 ♦ 本 **?* 本本*本本本事 

2 ： * Za_EX (Verl.10) & Zs-STAFF (Ver3.0 ) の外部コマンド 
3: * ジャギー除去に挑載 

4: * LINEREVISE.X 1992.4 {嫌正春 

5: * 

6: *<Another Address) [ xl,yl,x2, y2 ] [parameterlJ[parameter2J 
7: * 全画面又 W®. Zs-STAFF からは 1 + ’ オプションをつける 
8: 本 parameter^ : 補色ドット数 1.〜9 省 _6 

9: » parameter2 :ラ賊 0〜9 省 83 時 5 

10 ： * 

11: 本本 ** 本本本 * 本本本本 ♦ 本本本本 * 本本 * 本本本 * 本 ** ネ : 本本本本本 * 本 *** 本 * 本窣 : 》本 * 本本本 * 本本本 * ネ本 * 本 * 本 / 

12 ： 

13: # include < iocs 1 ib.h> 

14 : #include<stdlib.h> 

15: #include<stdio.h> 

16: #include く doslib.h> 

17 ： 

18: unsigned short *Gram= (unsigned short t) 0xC 00000 ; 

]9: unsigned short »Tram= (unsigned short <)0xE 00000 ; 

20: 

21:irit xl= 0, yl= 0, x2= 511,y2= 511; 

22: int parml= 6, parm2= 5, pro, adj; 

23 ： 

24: void judge(int,int,int); 

25: void set(int,int,int,int,int,int,int); 

26: void c_set(int,int,int )； 

27 ： 

28: int main(ac,av) 

29: int ac; 

30 : char *av[]; 

31：{ 

32: int x, y; 

33 : int i, j, ssp; 

34 ： 

35: if{ ac<2 ){ 

36: B_PRINT((unsigned char *)"LINEREVISE.X¥r¥n¥r¥n") : 

37: B_PRINT( (unsigned char *>"Zs_EX & Zs-S TAF F 專用外部コマンド 

EFFECT ブログラム ¥r¥n"}; 

38: B_PRINT( (unsigned char *)" コマンドからは、実行出来ません。 ¥r¥n.. > ; 

39 : return( 0 ) : 

40 ： } 

•■11: if { ac> = 3 &.&. ac< = 4 ) { 

42 : parm1=atoi( av[2 ])； 

43: parm2= atoi( av[3 ])； 

44: 1 

-15: if( ac>5 ) { 

46 : xl=atoi( av[2]); 

47: yl=atoi< av[3]) : 

48: x2= atoi( av[4 ]); 

49: y2= atoi( av[5]); 

50 ： if( ac>6 ){ 

51: parml= atoi( av[6]); 

52: parm2= atoi( av[7]); 

53 ： } 

54 ： } 

55: 

56: pm=parml *256/9 ; / * 9 は ノ '( ラメータ 1 max 値 */ 

57: adj = 35 + parm2*4 ； /*adj max は分母 （ c_3et () では 128 ) の 50% 位。ここでは 71 本 / 

58: Bsp=SUPER( 0 ) ; 

59 ： 

60: for( y=yl ; y<y2 ； y++){ 

61 ： if( MS_GETDT( )&0x00ff ) { ハ右ボタンで中断本 / 


62 ： 

63 ： 

64 ： 

65 ： 

66 : 

67 : 

68 : 

69 ： 

70 ： 

71 ： 

dge ( x 
72: 

judge( 
73: 

74 : 

75 ： 

76 ： 

77 : 

78 ： 

79 : 

80 ： 


while( MS_GETDT( )&0x00ff ) ; 
break; 

) 1 
i= y*512 ； j=(y+l)*512 ； 
for( x=x1 ； x<x2; x++){ 

if( {Tramfi+xJ == Tramfj+x+1 】 ）&& /* 4dot 同色 */ 

{Tramli+x+1J == Tram[j+x])&& 

(Tram[i+xJ == Train [j+x ]) )oontinue ； 

if ( ( Tram[i + x J == Tram[ j+x+1 ])&.&.{! (Tram[ i + xj&l)))ju 
y , 0 )； ハ左.ヒ斜ぬ同色》ノ 

if ( (Tram[i+x+l] == Tram[ j+xj )&&( ! (Tram[i+x+l ]&.l))) 
x, y ,1) ； ハ右上 ^^ 色 */ 

} /* t マスクの下は見ない */ 


if ( atoi( av[ 1 ])= = OxEO0000 たぶん Zs-STAFFj&W^ の jgft た-ろう */ 

y2 = y ； 

for( y=yl ； y<=y2; y++ ){/* 処理したところまで Tram にコビーするのさ */ 
for( x = xl ； x<=x2; x + + ) { 

if( Tram 【 x+y*512 】 &l)continue; /* マスク カぬ？ */ 


81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 



SUPER( ssp ) : 
return( 0 ); 


void judge( x, y ,sw ) 
int x, y, sw; 

{ 

int up=0, down=0,left=0, right=0; 
int i , j, k, m , ram, max=15, xy ； 

xy= y*512+x; 
j= (sw)? (xy+1) : xy; 
k= (sw)? xy : (xy+1); 
ra= 0; 

i.f<Tram【jJ == Tram[k] ) goto set0; 

for( i=(y-l);i>=yl;i— ) { /本 上に伸びているか • */ 


102 


m++ ; mm= m*512; 


103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 


if( (Tram[jJ == Tram[j-mm] )&&(TramtjJ != Tram(k-mmJ))( 
up+= 1;if( up>max ) break; 

1 else break; 

) 

aet0 : 

j= (sw)? (xy+512) : xy; 
k= (sw)? xy: (xy+512) : 
m= 0 ； 

if(Tram[j] == TramtKJ) goto set1; 

for ( i = (x-l);i>=xl;i—) { /* 左に • ているか 。 */ 

m++; 

if( (Tramlj) == Tram[j-m] )&t(Tramtj] != Tram[k-m]) ){ 

. Ieft4- = 1 ;if(left>max ) break; 


116 

117 

118 

119 

120 
121 


)else break ； 

} 

set 1 : 

J- (sw)? (xy+512 )： <xy+512+l )； 
k= (sw)? (xy+512+1) : (xy+512); 
m= 0; 
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0080 

8C 

0088 

0090 

0098 

32 

FE 

EB 

00A0 

F3 

0OA8 

00BO 

00B8 

91 

F7 

0000 

FA 

00C8 

F7 

00D0 

4E 

00D8 

97 

00E0 

29 

00E8 

2E 

00F0 

79 

00F8 

2E 


0100 

0108 

0110 

0118 

0120 

0128 

0130 

0138 

0140 

0148 

0150 

0158 

0160 

0168 

0170 

0178 


SUM ： 


SUM ： F6 DC 23 E4 


32 6B CF 8011 


0000 

0008 

25 

11 

72 

00 

2D 

00 

6C 

2C 

68 

IE 

35 

00 

2D 

4C 

DC 

: 

46 

37 

0010 

70 

CE 

18 

20 

01 

0C 

6C 

69 

: 

58 

0018 

6E 

65 

72 

65 

76 

69 

73 

65 

: 

61 

0020 

2E 

78 

0F 

D6 

48 

00 

00 

0E 

: 

E1 

0028 

CB 

7C 

DE 

FB 

D6 

34 

A3 

BE 

: 

8B 

0030 

FE 

F7 

A6 

CD 

9E 

9A 

EC 

8F 


1B 

0038 

88 

EB 

3B 

48 

6D 

IF 

IE 

9A 

■： 

3A 

0040 

C6 

59 

42 

6E 

86 

18 

58 

19 

: 

DE 

0048 

00 

DD 

Fl 

07 

B5 

は 

5D 

91 

: 

4E 

0050 

D1 

A5 

D5 

C3 

17 

64 

F7 

: 

50 

0058 

84 

90 

93 

7A 

12 

14 

1C 

28 

: 

8B 

0060 

FB 

77 

60 

70 

97 

16 

45 

46 

: 

7A 

0068 

A3 

79 

C7 

0A 

E3 

97 

9E 

6E 

: 

73 

0070 

64 

E9 

63 

16 

F2 

E4 

C3 

24 

: 

83 

0078 

31 

E7 

04 

79 

B7 

51 

70 

E3 

: 

F0 

SUM ： 

El 

A6 

AE 

BE 

AD 

4B 

04 

6F 

FA8E 


122 : 
123 ： 
124 : 
125 ： 
126: 
127: 
128 ： 
129 ： 
130: 
131: 
132: 
133: 
134 ： 
135: 
136 ： 

137 : 
138 ： 
139 ： 
140 ： 
141 : 
142 ： 
143: 
14 4 ： 
145 ： 
146 ： 
147 ： 
148 ： 
149 ： 
150 ： 


153 ： 
154 : 
155 ： 
156: 
157: 
158 ： 
159 ： 
160: 
161: 
162 ： 
163: 
164 : 
165: 
166 ： 
167: 
168 ： 
169: 
170: 
171 ： 
172: 
173: 
174 : 
175 ： 
176 ： 
177 : 
178: 
179 ： 
180: 
181: 
182 ： 
183 ： 
18-1 : 
185: 
186 ： 
187: 
188 ： 
189 ： 
190: 
191 


196 ： 

197 ： 

198 ： 

199 ： 

200： 

201： 

202 : 

203: 

204: 

205: 


if( Tramlj] == TramfkJ ) goto set2 ； 

for ( i=(y+2); i<=y2; i++) ( /% 下に伸びているか 。 */ 

ra++; mm= m * 512 ； 

if( (Tramlj] == Tram[j+mmJ )&&(TramljJ != Tramlk+mmJ) )1 
down+=l;if{ down>max ) break ； 

} else break; 

J 

et2 : 

j= (sw)? (xy+1) : (xy+512+1 )； 
k= (sw)? (xy+512 + 1) : (xy+1) : 


208 

209 


if( Tram[j]== 
for ( i=(x+2 )； 


Tram[k] )goto 
i<=x2 ； i++){ 


et3 ； 


/* 右に №0* ているか 0 本 / 


if( (Tram[j] == Tram 【 j+m(Tram[j 】 ！= Tram[k+m]) ){ 
right+=1;if( right>max ) break; 

J else break; 


et3: 

aet( 


up, left, 


right, sw 


void 

int 


int 

int 


et( x, y, up, left, down, ri 
x, y• up, left, down, right, 


right, 


f0, fl, 

LI,xy: 


up: 上 ;let 
k: 参照色 no; 


ft : 左 


down: 下 ； right : 右 
j:GRAM ■ き込み位 ®; 
x-y : 4 ドット角左上のバッファ位 St 


xy= y*512+x; 
j= (aw)? xy ： (xy+1); 
k= (sw)? (xy+1) : xy; 

/* 上に fW ているドットが、 0 個で GRAM 迸き込み位!(すでに処理されているとき skip1 へ */ 
if( up==0 ){ 

if( Trara[j] != Gram[j] ) goto skipl; 

/* 上に伸びているドットが、 0 個でなく、 GKAM 雀き込み位 Ift&i すでに処理されているとき、 
up 変数に 0 を ftA する 。 */ 


if( (j-512) >= 0) { 
if( Tram[j-512) 


if( up>0 ){ 

Ll=(upl ； pm+200)/256; 
if( !L1)Ll=l; 
f0= adj/(Ll+l); 
ifUy-Ll + l)<yl) し 1=y- 
for ( i=1;i<=Ll;i++ 
f1=adj-f0»i; 
c_set( k, j, fl); 
j-= 512; 


Gram[j-512] ) up=0; 
/* 上 */ 


yi + i ; 
)( 


else | 
c 一 set( 


adj/4 )； 


skipl: 

j= (sw)? (xy+512 + 1) : (xy+512 )； 
k= (sw)? (xy+512) : (xy+512+1); 
if( !down ){ 

if( Ti'am[jJ != Gram[jJ } goto skip2; 

} 

if{ (j+512) < 262144 ){ 

if( Tramlj+512] != Gramljf512] ) down= 0 ； 


if( down>0 ){ 

Ll=(down 本 pro+200)/256; 
if( !L1 ) し 1=1; 
f0= adj/( Ll+1); 
if( (y+Ll) > y2 ) Ll=y2- 
for ( i=1;i<=Ll ； i++ )i 
f 1=adj-f0*i; 
c_set( k, j, fl); 
j+= 512; 


/* 下 */ 


else { 
c_set{ 


skip2 ： 

j= (sw)? xy ： (xy+512 )； 
k= (sw)? (xy+512) : xy; 
if{ !left ){ 

if ( Tramfj] ! = Grarn[ j ] 


) 

if( x : 
if( 


goto skip3 ； 


0 )1 

Tram[j-lJ != 


Gram[j-1] 


left= 0 ； 


if(left>0 ){ 

Ll=(left*pm + 2O0)/256 ； /* 左 */ 

if{ !L1)Ll=l ； 
f0= adj/(Ll+l )； 
if( (x-Ll+l)<xl)Ll=x-x1+1 ； 
for ( i=1;i<=Ll;i++ )1 

f 1=adj-f0 本 i; 

c_set( k, j, fl); 

j --； 

} 

)else { 

c_set( k, j, adj/4 )； 


skip3 : 

j= (sw)? (xy+512+1):(xy+l )； 
k= {sw)? (xy+1) : (xy+512+1); 
if( iright ){ 

if( Tramlj] != Gram 【 j】）goto skip4; 

J 

if{ x < 510 ){ 

if( Tram[j+1]!= Gram[j+1])right= 


if( right>0 H 

LI 二 (right*pm+200)/256; 
if( !L1)Ll=l ； 
f0= adj/(Ll+l) : 
if( (x+Ll)>x2 ) Ll= x2- 
for ( i=1;i<=Ll; i++ 
f 1=adj-fC*i; 
c_set( k 丨 j, f 1 )； 


skip4 : 

return; 


adj/4 ); 


220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 
2-10 

241 

242 
2.13 

244 

245 
24 6 
247 
24 8 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 
2G6 

267 

268 

269 

270 

72 

73 

74 

75 

76 

77 

78 

279 

280 
281 
282 

283 

284 
285 ： 

Gram[no2 J 
igned short}b0 }; 
287: } 


/* 右 */ 


adj/4 


void c_set ( nol,noid, 
int nol,no2, f;/* no: 

unsigned int r0, g0, 
unsigned int rl,gl, 
unsigned short col; 


参照位 ifi; no 2 番き込み位 fl; f 参照色削合 (/128); ♦/ 


== Tram[no2] 

&■ 1 )return ； 


if 
if 
if( 

no2]= Tram[no 
return ； 

) 

if( f <=0 ) return ； 
〇〇 1= Tramfnol]; 

&Q = (col>>3) & 0xlF0O ； 
r0 = (col<<2)&0xlF00; 
b0 = (col<<7) & 0X1F00 ； 
col=Tram[no2J ； 
gl=(col>>3) & 0xlF00; 
rl=(ool<<2) & 0xlF0O ； 
bl=(col<<7)&OxlF00; 


return ； 

/* マスクだよ〜ん */ 


照位 M の色 */ 

/* 256 倍のゲタを嫌いています */ 


ハ書き込み位 M の色 */ 


g0 = ( 
r0 = { 
b0 = ( 


(g0*f) + Ul*( 128-f) )+64 ) >>7 ； 
(r0*f)+(rl*(128-f))+64 ) >>7; 
(b0*f)+(bl»(128-f))+64 ) >>7 ； 


/* 128 で割って四捨 V 


(gO<<3)&0xF80O ； 
(r0>>2) & 0X07C0; 
(b0>>7) & 0xO03E; 


short)r0 


(unsigned short)B0 


U スト 2 


349B5E3F80AA0741 - o 
97039 A275E92C97A -2 
I 8 

9 


A 

D 

CC841FDDCA5 1B8FBB758FC942EBBBFF6 I 57 

39AC3B3A181AFDFC -8 
E523F7ABB4D56EA5 - F 

90DEF6B9CED2C242 - A 
95B62BF1B 22010 CD - D 

60FF1B 711 FC7E17C 一 D 
B656B30FB67AD8A8 - 9 

9CADF7847C0B23EC - B 
943E52BC7BA16F6E - A 

53F3A2994EA 5018 9 - B 
BE5E88A803DD20DB-B 

79A9F 82605168084 -2 
9978B 41353890150 - 9 


0F1C003D849DF8D8 
B19E5053B 72096 F4 


D75D368F0CA0F 065 
38D2C5CEC0D 24809 


EF5B6F 98743 A98F1 
4D7C7 6 0DD5B765CB 

8F7570BFD7BB7F43 

2EEEF310A2C19D3D 

4CF7C 6 92AEFED0 S 8F8AE01 2D5C97F28 

036CECEFF0C43D1DAD5C6BF3B2E6E644 

2350F230DD3A6F19 
F 34 E 690086 E4F 994 

20078 B83ADE92B98 
899BF13EBE5A3FFC 

814 AE75AFA2C72B6 
76F75B63B58F7D96 


120 Oh! X 1992. 9. 










0680 

0688 

0690 

0698 

06A0 

06A8 

06B0 

06B8 

06C0 

0608 

06D0 

06D8 

06E0 

06E8 


0580 

0588 

0590 

0598 

05A0 

05A8 

05B0 

05B8 

05C0 

0508 

O5D0 

05D8 

05E0 

05E8 

05F0 

G5F8 


SUM ： 

0600 

0608 

0610 

0618 

0620 

0628 

0630 

0638 

0640 

0648 

0650 

0658 

0660 

0668 

0670 

0678 


0500 

0508 

0510 

0518 

0520 

0528 

0530 

0538 

0540 

0548 

0550 

0558 

0560 

0568 

0570 

0578 


SUM ： AA 45 E9 CD E7 4B A5 CC 


SUM ： 05 E0 A8 47 05 E0 2 分 CA 


0438 

0440 

0448 

0450 

0458 

0460 

0468 

0470 

0478 


SUM: 

0480 

0488 

0490 

0498 

04A0 

04A8 

04B0 

04B8 

0400 

04C8 

04D0 

04D8 

04E0 

04E8 

04F0 

04F8 


SUM ： 

0300 

0308 

0310 

0318 

0320 

0328 

0330 

0338 

0340 

0348 

0350 

0358 

0360 

0368 

0370 

0378 


SUM ： 

0380 

0388 

0390 

0398 

03A0 

03A8 

O3B0 

03B8 

03C0 

03C8 

03D0 

03D8 

03E0 

03E8 

03F0 

03F8 


SUM: 

0780 

0788 

0790 

0798 

07A0 

07A8 

07B0 

07B8 

07C0 

07C8 

07D0 

07D8 

07E0 

07E8 

07F0 

07F8 


8A 

46 

39 

31 

78 

BB 

65 

B5 

F3 

65 

DB 

5F 

61 

C9 


SIJM: BF 76 54 07 95 CE 9A 4E ‘ E6C7 


32 

E7 

8G 

21 

AE 

31 

B1 

83 

E9 

CE 

BB 

25 

•12 

46 

AF 


SUM ： 

52 

33 

D0 

7C 

DA 

12 

86 

A1 

2313 

0800 

6B 

3F 

9D 

9E 

DF 

60 

D5 

D9 


D2 

0808 

23 

77 

A6 

57 

4B 

4E 

B4 

BA 


9E 

0810 

66 

A7 

28 

D4 

F5 

88 

D4 

36 


90 

0818 

E5 

A3 

4B 

5A 

F8 

F6 

B6 

E9 


BA 

0820 

8A 

36 

7A 

72 

AE 

4A 

B3 

Cl 


18 

0828 

9E 

F3 

03 

D8 

27 

16 

BB 

8D 


FI 

0830 

59 

CC 

D7 

B5 

Cl 

F7 

B5 

F8 


16 

0838 

8D 

4F 

20 

93 

68 

F7 

CA 

B9 


71 

0840 

35 

7A 

86 

68 

64 

5E 

9B 

04 


FE 

0848 

F8 

AD 

8D 

E7 

07 

2F 

5A 

2C 


D5 

0850 

75 

3D 

El 

31 

D7 

FB 

C4 

F8 


52 

0858 

A2 

05 

81 

C9 

2C 

3C 

17 

26 


96 

0860 

97 

83 

15 

31 

B7 

ED 

15 

B5 


CE 

0868 

18 

33 

9F 

EA 

52 

3D 

16 

IF 


98 

0870 

80 

34 

C8 

76 

70 

50 

AF 

D4 


35 

0878 

1A 

52 

5F 

1C 

76 

77 

E2 

E0 


96 

SUM: 

74 

E9 

7A 

AB 

72 

2F 

8C 

87 

B683 

0880 

D6 

87 

70 

BB 

Cl 

A5 

35 

9F 


C2 

0888 

08 

FA 

C2 

B2 

BE 

91 

E6 

2A 


D5 

0890 

BD 

31 

BB 

54 

61 

AF 

CA 

EB 


C2 

0898 

CC 

5A 

44 

57 

A6 

30 

D7 

86 


F4 

08 AO 

0B 

47 

IF 

7A 

64 

5B 

92 

45 


81 

08A8 

AD 

CB 

52 

9A 

27 

3A 

17 

05 


El 

08B0 

FF 

86 

CC 

EA 

42 

25 

D1 

2E 


A1 

08B8 

E4 

69 

80 

B4 

12 

78 

A8 

F8 


AB 

08C0 

96 

51 

97 

7C 

6B 

32 

AC 

AB 


EE 

08C8 

96 

7D 

64 

A9 

44 

5A 

3A 

6A 


62 

08D0 

FC 

69 

F3 

DF 

D9 

6B 

98 

56 


69 

08D8 

8E 

CA 

31 

80 

E9 

15 

E8 

10 


FF 

08E0 

38 

A7 

2C 

0C 

F7 

AF 

31 

61 


4F 

08E8 

9B 

2E 

C7 

60 

D2 

E3 

D6 

34 


AF 

08F0 

4B 

E5 

57 

E3 

50 

04 

6B 

B1 


DA 

08F8 

CD 

E9 

0E 

IF 

78 

F2 

99 

74 


5A 

SUM ： 

A3 

B1 

65 

BC 

67 

DB 

4F 

DF 

F270 

0900 

2F 

2B 

41 

2C 

13 

D7 

C7 

8A 


02 

0908 

75 

7E 

30 

C0 

0D 

DC 

8B 

D8 


2F 

0910 

D7 

6A 

4A 

52 

5B 

CA 

6D 

FD 


6C 

0918 

68 

41 

C2 

AD 

07 

56 

74 

7C 


65 

0920 

69 

55 

07 

71 

A5 

0F 

F9 

9C 


7F 

0928 

69 

6A 

F3 

7E 

11 

0E 

46 

A2 


4B 

0930 

2E 

D5 

67 

IF 

1C 

AE 

64 

A4 


5B 

0938 

2,5 

0F 

6A 

3B 

B4 

0E 

40 

FA 


D5 

0940 

10 

A1 

04 

06 

15 

51 

4C 

7E 


EB 

0948 

D4 

45 

D7 

77 

B9 

9E 

02 

D6 


96 

0950 

59 

95 

24 

61 

DC 

OB 

EF 

91 


DA 

0958 

CC 

FE 

7A 

FF 

IB 

EF 

CB 

F5 


0D 

0960 

3C 

CD 

AF 

93 

FD 

92 

FD 

69 


40 

0968 

7E 

D4 

BF 

44 

7B 

EF 

FF 

74 


32 

0970 

AE 

E8 

BF 

97 

80 

12 

44 

CF 


91 

0978 

02 

66 

C6 

64 

6F 

D6 

41 

B5 


CD 

SUM ： 

7B 

5F 

B4 

E3 

34 

FE 

9F 

F2 

6546 

0980 

BA 

B2 

F0 

AD 

75 

01 

B2 

B4 


E5 

3988 

B2 

93 

A8 

17 

8F 

70 

OE 

24 


35 


06F0 

06F8 

E6 

F7 

A7 

FF 

A6 

40 

59 

DE 

CD 

8B 

2E 

41 

7A 

E4 

48 

6F 

49 

33 

SUM ： 

9A 

A0 

74 

36 

B2 

A3 

22 

64 86B3 

0700 

54 

62 

3B 

11 

5E 

AE 

81 

52 

El 

0708 

B7 

59 

51.: 

9F 

D2 

85 

E4 

99 

El 

0710 

53 

A6 

25 

4A 

4D 

AA 

52 

02 

B3 

0718 

D7 

84 

28 

BB 

04 

FC 

A3 

53 

34 

0720 

F2 

IB 

2E 

FA 

FE 

57 

8F 

00 

19 

0728 

E8 

14 

4C 

C5 

B1 

BD 

8A 

C5 

CA 

0730 

A8 

ID 

FD 

35 

64 

AB 

E3 

99 

82 

0738 

63 

C9 

A7 

E2 

0D 

3C 

DD 

60 

3B 

0740 

E5 

95 

38 

09 

7B 

83 

F7 

0E 

BE 

0748 

26 

B6 

ID 

8B 

58 

34 

B4 

19 

DD 

0750 

4B 

A3 

23 

7B 

49 

C8 

5D 

CD 

C7 

0758 

27 

21 

69 

CA 

F5 

0C 

IF 

A2 

3D 

0760 

60 

FD 

38 

A8 

AE 

82 

7C 

41 

2A 

0768 

C4 

B3 

95 

C8 

53 

C9 

50 

81 

Cl 

0770 

El 

28 

33 

2E 

9C 

B8 

62 

DB 

FB 

0778 

74 

07 

EB 

OB 

A4 

6A 

2A 

4A 

F3 


0180 

DB 

45 

BB 

73 

86 

DB 

C6 

CF 

44 

0188 

49 

5E 

8E 

E9 

C8 

9F 

D3 

08 

60 

0190 

57 

BD 

74 

FD 

EC 

D4 

FA 

5A 

97 

0198 

72 

07 

FI 

B1 

13 

6E 

14 

30 

E0 

01A0 

02 

37 

B0 

01 

9C 

AC 

B1 

B0 

93 

01A8 

30 

DB 

E3 

0B 

43 

98 

C6 

EA 

84 

01B0 

9E 

6F 

DB 

30 

ID 

F8 

92 

98 

57 

01B8 

8F 

B4 

D0 

D4 

42 

AA 

D3 

92 

38 

01C0 

EE 

45 

87 

B3 

EC 

12 

Ar： 

D8 

FI 

01C8 

03 

9E 

61 

3A 

6C 

4C 

31 

71 

96 

01D0 

CC 

AF 

49 

F3 

DD 

5B 

A6 

A8 

3D 

01D8 

07 

17 

43 

3F 

BA 

A1 

E9 

7F 

63 

O1E0 

5A 

53 

FI 

D8 

E9 

70 

6A 

08 

41 

01E8 

F7 

23 

D7 

F6 

0B 

19 

89 

DF 

73 

01F0 

A3 

53 

3D 

C8 

61 

27 -33 

66 

1C 

01F8 

25 

B8 

10 

38 

E9 

87 

1A 

52 

01 

SUM ： 

29 

C6 

75 

05 

B8 

33 

31 

34 6D04 

0200 

4E 

26 

B1 

A5 

82 

F4 

30 

A4 

14 

0208 

A0 

7A 

D4 

70 

60 

A0 

18 

12 

88 

0210 

5H 

9E 

B3 

8C 

05 

17 

B3 

CD 

D7 

0218 

29 

9A 

C2 

6E 

38 

1)2 

B3 

06 

B6 

0220 

BD 

40 

55 

CB 

52 

16 

27 

81 

2D 

0228 

3F 

02 

78 

B0 

19 

F8 

E4 

DD 

3B 

0230 

FE 

A3 

13 

C4 

C4 

3A 

E6 

27 

83 

0238 

7D 

06 

31 

EF 

23 

CC 

6B 

0F 

0C 

0240 

ED 

07 

20 

47 

DD 

B5 

99 

C6 

4C 

0248 

D9 

34 

D7 

04 

4E 

8F 

0E 

45 

18 

0250 

86 

06 

18 

0C 

•IF 

AD 

E0 

53 

DF 

0258 

FE 

12 

1A 

D3 

13 

68 

A6 

DE 

FC 

0260 

2B 

79 

2C 

A9 

E8 

7C 

F9 

BE 

94 

0268 

DE 

A1 

F9 

30 

9F 

4 5 

32 

07 

C5 

0270 

39 

29 

E9 

B2 

E6 

B0 

84 

10 

27 

0278 

04 

0E 

59 

CE 

8F 

FB 

50 

04 

17 

SUM ： 

7C 

67 

9B 

C0 

FA 

56 

36 

32 2F24 

0280 

02 

3C 

CC 

19 

96 

DC 

DC 

B5 

26 

0288 

9D 

C7 

0E 

07 

64 

D3 

75 

92 

B7 

0290 

12 

2C 

2B 

FI 

9E 

E‘l 

C6 

BB 

5D 

0298 

8D 

AF 

67 

28 

61 

ED 

F7 

DC 

EC 

02A0 

F7 

BC 

DF 

77 

CE 

FC 

5E 

67 

98 

02A8 

17 

49 

B9 

0E 

CD 

2A 

B0 

77 

45 

02B0 

B9 

A1 

FF 

2E 

0D 

58 

72 

AF 

0D 

02B8 

Cl 

08 

B7 

E0 

8A 

EE 

6A 

68 

AA 

02C0 

23 

DE 

2A 

7D 

4D 

01 

AE 

B8 

5C 

02C8 

AA 

AO 

54 

7E 

C7 

DD 

ED 

81 

2E 

02D0 

AC 

36 

4D 

8D 

39 

FE 

34 

AA 

D1 

02D8 

D1 

6C 

F8 

72 

50 

05 

F5 

EF 

E0 

02E0 

C5 

07 

AE 

97 

84 

58 

9F 

27 

B3 

02E8 
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34 

97 
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23 

59 

CA 

DF 

02F0 

8F 

31 

39 
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FF 
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C9 
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4D 
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5B 

AE 
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9DD4EC8DB190A8 

2DE93E0CBE224F 

858ADB76F10DB8 
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735854 F5B214FE5A 


93 1E05A 331 EBFA93 
D7B 0642276 B8F2ED 
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0D62F56DF2ABCCB0 
E907F 811096 DE5ED 
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4 4 0 D 0 E 5 
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3 CE0334-E2A42DF75C 

6 59F24E90A4FEC 891 
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E 5E 75172534047 B3C 

7 BA1 586323 E33E8F2 
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B 
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2 

B 

c 

c 
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F 

D 

0 

0 

D 

8 
E 

0 

1 
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81E8CF 9802 D3C6C4 


A 

5 

IX 

6 

2 
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3 F 17 5 B 6 
5 D 2 6 8 A A 


3 9C 85037 
B A 915019 

A 6AC6D87 
1 1491746 

.. 0 8 0 8 0 8 0 
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FF 

A6 

65 

DE 

30 

3B 

8F 

FD 

D2 

F3 

C0 

EE 

67 

BB 

El 

B7 


8F 

5A 

C3 

9A 

41 

E0 

27 

08 

A3 

EA 

CB 

FA 

2D 

5A 

CA 

6B 


E8 

FA 

B9 

AB 

35 

2B 

5D 

3D 

52 

16 

44 

D3 

DF 

6C 

7D 

8B 


DC 

52 

02 

09 

3D 

C8 

27 

0F 

CE 
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35 
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5B 
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B8 

F6 

5F 
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A1 
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29 
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IE 
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32 
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9C 
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A3 
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FA 5E 
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0F08 

0F10 

0F18 

0F20 

0F28 

0F30 
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0F40 

0F48 

0F50 

0F58 

0F60 

0F68 

0F70 

0F78 


SUM ： 03 90 CB 8B 

0E80 A1 BE FB E2 
0E88 C5 02 CF F8 
0E90 8A 3E 60 79 
0E98 C4 3C CE AF 
0EA0 E8 A2 4F 57 
0EA8 2F 99 D5 41 
0EB0 BE CD EE 90 
0EB8 9D B6 D2 E8 
0EC0 35 C6 E7 A7 
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0EE8 5A 77 92 4D 
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0D98 ED 09 
0DA0 87 24 
0DA8 5D F6 
0DB0 5E 5E 
0DB8 016F 
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SUM ： 

IB 

B0 

83 

0F 

65 

87 

53 

34 4DE9 

0C80 

5A 

7C 

A2 

D9 

4D 

9F 

6B 

B6 

5C 

0C88 

AF 

D9 

D3 

16 

81 

FC 

C6 

0D 

Cl 

0C90 

C0 

85 

ID 

04 

A1 

FO 

54 

92 

DD 

0098 

BD 

D9 

61 

D9 

23 

A1 

6E 

C2 

C4 

0CA0 

F5 

9A 

F8 

9C 

E9 

E3 

D4 

DE 

A1 

0CA8 

6E 

BB 

8D 

09 

B1 

5F 

7D 

7A 

C6 

0CB0 

5D 

9F 
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ED 
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2C 

48 

00 
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E2 

91 

D1 
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DB 
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70 
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7A 
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74 
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56 
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6G 

89 

2A 

D1 
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41 
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35 

DE 

42 

54 

31 

AE 

01 
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F2 

A8 
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7A 

03 

F5 

43 

43 
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0C48 2F 
0C50 4B 
0058 93 

0C60 B1 
0068 B1 
0070 6A 
0078 3B 


37 79 EE 
44 5F 00 
2A B8 93 
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D4 9D ID 
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3E 
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DA 
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09 

DF 
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0998 
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09A8 

09BO 

09B8 
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0908 

09D0 

09D8 

09E0 

09E8 

09FO 

09F8 


SUM ： 

0A00 

0A08 

0A10 

0A18 

0A20 

0A28 

0A30 

0A38 

0A40 

0A48 

0A50 

0A58 

0A60 

0AB8 

0A70 

0A78 


SUM ： 

0A80 

0A88 

0A90 

0A98 

0AA0 

0AA8 

0AB0 

0AB8 

0AC0 

0AC8 

0AD0 

0AD8 

0AE0 

0AE8 

CAF0 

0AF8 


SUM ： 

0B00 

0B08 

0B10 

0B18 

0B20 

0B28 

0B3O 

0B38 

0B40 

0B48 

0B50 

0B58 

0B6O 

0B68 

0B70 

0B78 


SUM ： 

0B80 

0B88 

0B90 

0B98 

0BAO 

0BA8 

0BB0 

0BB8 

0BC0 

0BC8 

0BD0 

0BD8 

0BE0 

0BE8 

0BF0 

0BF8 


SUM ： 

0C00 

0008 

OC10 

0C18 

OC20 

0028 

OC30 

0C38 


SUM ： 


1100 

1108 

1110 

1118 

1120 

1128 

1130 

1138 

1140 

1148 

1150 

1158 

1160 

1168 

1170 

1178 


SUM ： 


SUM ： 
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1088 

1090 
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10A8 
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10B8 

10C0 

1008 

10D0 

10D8 

10E0 

10E8 

10F0 
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48 


C2 
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86 

9F 


58 

06 

A3 

82 

C7 

IB 

E4 

BB 

6F 

DC 

C9 

E6 
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48 
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SUM ： E3 0118 B7 7A 2C 47 45 

1000 27 9E A9 F2 72 33 5E FA 
1008 8C 2A E6 48 F9 67 64 9F 
1010 AB 08 0E 99 D4 EC 2F 49 
1018 AD EA CE IB 75 AD DB 06 
1020 75 5D ED E9 56 A2 E5 3A 
1028 A9 8F 20 55 3E E9 70 11 
1030 CF 4B 1170 8D 0F 77 7A 
1038 B19D D5 3E E8 DF 52 C4 
1040 B9 E3 AE 95 82 8B 90 38 
1048 15 A5 B4 79 07 92 74 08 
1050 43IE 31 06 3B 75 6E D1 
1058 0A 65 91 D5 EE 47 4111 
1060 90 32 2110 AA 16 A0 FI 
1068 AE DA D8 7F 40 7F BF 88 
1070 92 23 C6 FC 5F 88 76 3D 
1078 82 A7 32 D7 D17A 63 33 
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0FF8 DB 23 88 8E 2C 11 E4 07 
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IB 22190 D98AD72 
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6 C32BED 527122 F75A 

1 AD14CE2BF964CFA0 
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0 D8EE30A92B 98277 F 
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D 39643 CAQ56C2D8F1 
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5 69A0BC3FF 57369 F5 

3 87A18FEFO0D9952D 
c 349A 5106 AE4523DB 

5 81E2B278E25ED120 
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122 Oh ! X 1992. 9. 




































今月は， COMET エミュレータならぬ CASL のソ 
ースプログラムを Z 80 のソースへ変換するコンパー 
夕を制作します。思いつきはよかったけど，仕様の 
違いから光君はずいぶんと苦労した様子。ダンプリ 
ストも掲載しますので皆さんも遊んでみませんか。 

お城と流れ星-その2- 

Kaneko Shunichi 金子俊一 


マシン語カクテル 
in ZBO's Bar 

-第35回 


カランコロ〜ン少 

ようこ（以下 Yo ) :いらっしゃ〜い。 

源光（以下光）：こんにちは。 

Yo ： あ〜あ，万世（まんせ）だ。 

光：何が万世なんですか。 

長老（以下老）：肉の万世じゃよ。知らんの 
か，おぬし。 

光：知ってますよ。秋葉原に通ってたころ 
は毎日のように見てましたから。 

Yo :それじゃ，そういうことで。 

光：なんだかわからないじゃないですか。 
Yo : 光君さ，先月原稿落としたでしよ。 

光：ギクツ！ 

Yo : 数ある連載でも，シリーズもので原稿 
落とすなんて聞いたことないわよ。 

光：申し訳ないですだ。 

Yo :ってことで，万世でおごりね。 

光：そんな殺生な。 

老：まあ身から出たサビというやつじゃろ 
ぅて。 

光：長老もそんなこといわないでください 
よ。せっかくプログラムを作ろうと思って 
きたのに。 

マスター （以下 M ) :それじゃ，さっそく 
ってもらいましようかね。 

光：っと，その前に，前回純ちゃんは何を 
やったのかな。 

老：ほれ，7月号。 

光：ふむふむ。なかなか面白い解析法をや 
つてるね。 

Yo :ねえ光君，万世をチヤラにしてあげて 
もいいからさあ， 

光：僕とデートしてほしい，と。 

Yo : だれがそんなことぬかすんじゃ，ボ 
ケ！ 

老：なんだか柴田君が書いてるようこちや 


んみたいじやのう。 

Yo : CASL のプログラムを実際に動かし 
てみたいのよ。 

光：だったら S-OS 用のやつが1986年の12 
月号に載ってるよ。 

Yo :どこにそんなに古い Oh ! X があるって 
のよ。 

老：そのころはまだ Oh!MZ なのじゃが。 

Yo :んなこたあどうでもいいのよ。要はバ 
ツクナンバーが手に入らないっていってん 
のよ。 

M :それじゃあ作るしかなさそうですね。 

T ェミ ュレータ，それとも7 

光：それじゃあどうやって作ろうかな。 

Yo :どうやって，って？ 

光：一般的には， COMET エ ミュレ ータを 
作るのが普通でしようね。 

老：ほかにあるんかいの。 

光：いや，ないですね。 

老：それでは悩む必要もあるまいに。さっ 
さとエミュレータを作らんかい。 

M :まさかハード音痴の光君がエミュレー 
夕を作れるとも考えられませんしねえ。 

光： マスター， いってはならないことをい 
ってしまいましたね。 

老：死んでもらいます，ってか。 

丫〇:とにかく作ってよ。 

光：いや，実は CASL で書かれたプログラ 
ムを Z 80 のコードに展開できないかなあっ 
て考えていたんですよ。 

老：ほうほう。 

光： PUSH とか CALL とか比較的 Z 80 に似 
てるから，簡単にできるんじゃないかと。 
M :純ちゃんのやり方を見て思いついたん 


でしょう。 

光：するどいですね。 

老：やれるんかいのう。 

光：ものは試しですよ。ちょっとリストを 
作ってみましょう。カチャカチャ。 

老：無駄にならんといいが。 

Yo :夢のない老人は黙ってなさい。 

M :今日のようこちゃんは厳しいですね。 
光：これを見てください（リスト1)。 

老：どれどれ……ほほう。 

M :こうやって展開すると不可能ではなさ 
そうですね。 

光：それでは，このセンでやってみましよ 
1 〇 

^ 戦慄のメモリ空間 

光：しまったああああ！ 

Yo :店の中で何大声はりあげてるのよ。 
光： CASL のメモリ空間って知ってます？ 
Yo : いいえ 0 

光：あのね，ちょっと奇妙な構成をしてい 
るんですよ。 

Yo :未来につながっている。 

老：モアイが群生している。 

M :ピラミッドみたいになっている。 

光：みんなでボケかまして。 

老：本当はなんなんじゃ。 

光：1番地に16ビットが対応しているんで 
すょ。 

Yo :ってことは？ 

光： Z 80 なんかだったら1番地は8ビット 
でしょ。 

Yo :何か不都合でもあるの？ 

光：おおありですよ。 ST とかの命令がおか 
しくなっちゃう。 

マシン語カクテル in Z80’s Bar 123 























LD (GR1),HL 

CALL FLAG 


CASL TEST ( SUB ) 

LEA GR3,$FFFF 

SUB GR3,$8368,GR2 

LD HL,$FFFF 

LD (GR3),HL 

CALL FLAG 

LD DE,$8368 

LD HL,(GR2) 

ADD HL,DH 

LD 

INC HL 

LD D,(HL) 

LD HL,(GR3) 

OR A 

SBC HL,DE 

LD (GR3),HL 

CALL FLAG 


CASL 

TEST ( AND ) 

LEA 

GR0,$1111 

AND 

GR0,$8000 

LD 

LD 

HL,$1111 
(GR0),H し 

CALL 

FLAG 

LD 

DE,($8000) 

LD 

HL,(GR0) 

LD 

A,L 

AND 

E 

LD 

LD 

L i A 

A,H 

AND 

D 

LD 

LD 

H,A 

(GR0),HL 

CALL 

FLAQ 

CASL 

TEST ( OR ) 

LEA 

GR1,0 

LEA 

GR2,1 


U スト 1 


1 ； 

CASL 

TEST (l.D ) 

2 



3 ； 

1.1) 

GKO, $2163 

4 



5 

L.U 

HL, ($2163) 

6 

LD 

(GR0),HL 

7 



8 ； 

I.D 

GR1,$8000,GR2 

9 



10 

1.1) 

DB,$8000 

11 

LD 

HL,(GR2) 

12 

ADI) 

HL.D1S 

13 

LD 

E,(HL) 

14 

INC 

HL 

15 

LD 

D,(HL) 

16 

EX 

DE.HL 

17 

LD 

(C ； R1),HL 

IB 



19 



20 ; 

CASli 

TEST ( ST ) 

21 



22 : 

ST 

GR3,$9801 

23 



24 

LD 

LD 

HL,(GR3) 

25 

($9801 ),HL 

26 



27 ; 

LHA 

GR2,$00O1 

28 ; 

ST 

GR1,$9802,GK2 

29 



30 

LD 

LD 

HL,$OO01 

31 

(GR2),HL 

32 

CALL 

FLAG 

33 

34 

Ld 

DE,$9802 

35 

LD 

HL,(GK2) 

36 

37 

ADD 

LD 

LD 

HL.DK 

DK,(GR1) 

38 

(HL),E 

39 

INC 

HL 

40 

LD 

(HL),D 

41 



42 



43 ； 

CASL 

TEST ( LEA ) 

44 



45 ； 

LKA 

GR2 ,$1324 

46 



47 

LD 

HL,$1324 

48 

LD 

(GR2),HL 

49 

CALL 

FLAG 

50 



51 ； 

LEA 

GR0.1,GR2 


52 



53 

LD 

DE,1 

54 

LD 

HL,(GR2) 

55 

ADD 

ilL.DE 

56 

LD 

(GR0),HL 

57 

CALL 

FLAG 

58 



59 ; 

LEA 

GR3,-3,GR0 

60 



61 

LD 

DE.-3 

62 

LD 

HL,(GR0) 

63 

ADD 

HL,DE 

64 

LD 

(OR3),HL 

65 

CALL 

FLAG 

66 



67 



68 ; 

CASL 

TEST ( ADD ) 

69 



70 ; 

LEA 

GR0, $1000 

71; 

ADD 

GR0,$8366 

72 



73 

LD 

111” $1000 

74 

LD 

(GR0),HL 

75 

CALL 

FLAG 

76 

77 

Ld 

DE, <$8366) 

78 

LD 

HL,(GR0) 

79 

ADD 

H し ， DE 

80 

LD 

(GR0),HL 

81 

CALL 

FLAG 

82 



83 ； 

LEA 

0R1 ,$1000 

84 ; 

LEA 

GR2,1 

85 ; 

ADD 

GR1 ,$8367, 

86 



87 

LI) 

HL, $1000 

88 

I.D 

(GR1),HL 

89 

CALL 

FLAG 

90 



91 

LD 

HL,1 

92 

LD 

(GR2),HL 

93 

CALL 

FLAG 

94 

95 

i,D 

DE,$8367 

96 

97 

LD 

HL,(GR2) 

ADD 

HL,DE 

98 

LD 

E,(HL) 

99 

INC 

HL 

100 

LD 

D,(HL) 

101 

LD 

HL,(GR1) 

102 

ADD 

HL, DE 


Yo :そうなの？ 

光：たとえば，800 0 H 番地に GR 0 をストアし 
て，800 1 H 番地に GR 1 をストアするってこと 
が実際なら起こりうるんですよ。 

Yo :そっか， GR 0 とかのレジスタって16ビ 
ットだもんね。 

光： Z 80 ではメモリ上に重なっちゃうこと 
になるでしよ。 

老：まあ適当につじつまを合わせるしかな 
さそうじゃのう。 

光：おそらく一部のプログラムは，そのま 
までは動かないことになるでしようね。 

^フィルタ 

光：今回はでっかくなりそうだな。 

Yo :まとめてツヶが払えるわね。 

老：よかったのう。 

光：文字列操作をやっているだけなんで， 
基本は簡単なんですよ。 

Yo : データ も多そうね。 

光：さあて，ぼちぼち完成かな。 

Yo :どれどれ？ 

光：それではサンプルプログラムを組んで 


みまし よフ。 

Yo :どんなプログラム？ 

光：えっと，文字列を入力させて，それに 
改行コード ($0 D ) を加えて出力するだけな 
んですが（リスト2)〇 
Yo :変換後はずいぶんと大きくなるのね。 
老：無駄な処理もあるようじゃのう。 

光：ええ，これでもプログラムを小さ〈し 
ようと努力したんですけどね。 

老：それがかえって CASL からコンバート 
されたプログラムを大きくするようじゃな 0 
光：ええ。まあアセンブルするのはアセン 
ブラだし， CASL のプログラムを作ればあ 
とは入力しな〈てすみますからね。 

老：しようがないのかのう。 

M : このプログラムって，強力なマクロを 
もったエディタなら，マクロだけでもでき 
るかもしれないですね。 

光：ただのフィルタだからね。 

光流 CASL 調理講座 

M :それではお侍ちかねの解説をしてもら 
いましよ5か。 


光：まず， CASL で書かれたソースリスト 
をすベて S - OS 上の特殊ワークエリアに侍 
避させます。 

Yo :特殊ワークエリアが足りなくなるこ 
とはないの？ 

光：死ぬほど大きな CASL のプログラムっ 
て見たことないから大丈夫だと思う。 

Yo :それって上限はないの？ 

光：約束では256ワード以上のプログラム 
はないはずだから。 

Yo :ふうん。 

老：結構メモリを食うようじゃな。 

光：それはソースプログラム（リスト 3) 
だ'けですよ。オブジェクトは 4 K バイトもい 
かないんですから。 

老： CASL のソースから Z 80 へ変換すると 
きだけで いいの じゃな。 

光：いえ，実はランタイムルーチンを含ん 
でいますので。 

Yo :ランタイムルーチンって何？ 

光： コンパイラ なんかでは常識なんだけど， 
実際にプログラムを動かすときに必要なル 
ーチン集と思ってください。文字列変換の 
みでは，ちょっとサポートしきれない命令 


3 4 5 
〇 〇 〇 


0000111114 . 


11112222222222333333 WW 3334444444444-5555 
111111111111111111111111111 
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があったのでサブルーチン化してしまいま 
した。 

Yo :ふう〜ん。 

老：それはどのくらいじゃ。 

光： 256バイトもありませんよ。 DF 00 H 番地 
から DFBD H 番地までですから。 

^構文チェックはなしよ 

老：ところで'構文のチェックはやっておる 
んかいのう。 

光：やってません。 

M :何かわけありですか。 

光：ええ，実は。 

Yo :面倒くさかったんでしよ。 

M :読まれてますね，光君。 

光：だって，レジスタ GR 0 は PUSH はでき 
ないのに POP はできるとか，意味不明の約 
束事が多すぎるんですよ。 

Yo :ほかには省略したこととかあるの？ 
光：えっと，レジスタ GR 0 を0，レジスタ 
GR 1 を1のように略して書ける場合がある 
んですよ。 

Yo :うんうん，教科書にも載ってたわ。 


老：ようこちゃんは教科書 
を待っておるのか。 

Yo :—応ね。 

光：で，話の続きなんです 
けど，このプログラムでは 
略して書いたものは判別し 
ません0素直にレジスタ G 
• R ? って書いてください。 

老：まあ，それはプログラ 
ムの見やすさからいっても 
正解じゃろ。 

光： 「 ST 1,$8000,2」 より 
も 「 STGR 1，$8000， GR 2」 

のほうがいいですよね。 

老：アセンブラのくせに略 
して書けるなど言語道断じゃわい。 

Yo : 話は変わるけど， CASL の IN と OUT 
って，ちょっと変わっていたわよね。教科 
書によっては受け渡すデータをスタックに 
積むやつもあるし。 

光：私は素直に 「OUT WORK , LENGT 
H」「IN WORK , LENGTH 」 という手法に 
しました。 

老： WORK に文字列の入るアドレスを入 


れて，その長さを LENGTH に入れるのじ 
ゃな。 

HOW TO CASL 

Yo :最後に動かし方をやってよ。 

光：えっとですね。プログラムを正確に打 
ち込んだら，セーブしておいてください。 
Yo :いつものことね。 


154 ； 

OR 

GR1,$8_,GR2 

205 



256 

LD 

(GR4),SP 

155 



206 ; 

JM1 

MINUS 

257 



156 

LD 

HL,0 

207 



258 



157 

LD 

(GR1),HL 

208 

LD 

A,(FR) 

259 ； 

CASL 

TEST ( POP ) 

158 

CALL 

FLAG 

209 

CP 

$10 

260 



159 

； 


210 

JP 

Z,MINUS 

261 ； 

POP 

GR2 

160 

LD 

HL,1 

211 



262 



161 

LD 

(GR2),HL 

212 



263 

POP 

HL 

162 

CALL 

FLAG 

213 ； 

JNZ 

NZERO 

264 

LD 

(GR2) ,HL, 

163 

; 


214 



265 

LD 

(GR4),SP 

164 

LD 

DE,$8000 

215 

LD 

A, (Ftt) 

266 



165 

LD 

HL,(GR2) 

216 

CP 

$01 

267 : 

POP 

GR3 

166 

ADD 

HL.DE 

217 

JP 

NZ,NZERO 

268 



167 

LD 

E, (HI,) 

218 



269 

POP 

HL 

168 

INC 

HL 

219 



270 

LD 

(GR3),HL 

169 

LD 

D，（HU 

220 ; 

JZE 

ZERO 

271 

LD 

(GR4),SP 

170 

LD 

HL,(GR1) 

221 



272 



171 

LD 

A, し 

222 

LD 

A,(FR) 

273 



172 

OR 

E 

223 

CP 

$01 

274 ； 

CASL 

TEST ( CPI,) 

173 

LD 

L, A 

224 

JP 

Z,ZERO 

275 



174 

LD 

A,H 

225 



276 ; 

LEA 

GR0,$FI.，FP 

175 

OR 

D 

226 



277 ; 

CPL 

GR0,$9O00 

176 

LD 

H,A 

227 ; 

.JMP 

ALL 

278 



177 

LD 

(GR1),HL 

228 



279 

LD 

H し， $FFFF 

178 

CALL 

FLAG 

229 

JP 

ALL 

280 

LD 

(GR0),HL 

179 



230 



281 

CALL 

FLAG 

180 



231; 

JMP 

INDEX.GR1 

282 

； 


181; 

CASL 

TEST ( EOR ) 

232 



283 

LD 

Dli, ($9000) 

182 



233 

LD 

DE,INDEX 

284 

LD 

HL,(GH0) 

183 ； 

EOR 

GR2,$8002 

234 

LD 

HL,(GR1) 

285 

OR 

A 

184 



235 

SLA 

し 

286 

SBC 

HL.DE 

185 

LD 

DE,($8002) 

236 

RL 

H ； 

HL=HL* 2 287 

CALL 

FI.,AG_L 

186 

LD 

HL,(GR2) 

237 

ADD 

HL.DE 

288 



187 

LD 

A,L 

238 

PUSH 

HL 

289 



188 

XOR 

E 

239 

RET 


JP HL 290 ; 

CASL 

TEST ( CPA ) 

189 

LD 

L, A 

240 



291 



190 

LD 

A,H 

241 



292 ； 

CPA 

GR0,$9000,GR2 

191 

XOR 

D 

242 ; 

CASL 

TEST ( PUSH 

» 293 



192 

LD 

H, A 

243 



294 

LD 

DK, $9000 

193 

LD 

(GR2),HL 

24 4 ; 

PUSH 

12345 

295 

LD 

HL,(GR2) 

194 

CALL 

FLAG 

245 



296 

ADD 

HL.DE 

195 



246 

I,D 

HL, 12345 

297 

LD 

E,(HL) 

196 



247 

PUSH 

HL 

298 

INC 

HL 

197 ； 

CASL 

TEST ( JPZ ) 

248 

LD 

(GR4),SP 

299 

LI) 

n,(HL) 

198 



249 



300 

； 


199 ; 

JPZ 

PLUS 

250 ； 

PUSH 

$9000,GR1 

301 

LD 

HL,(GR0) 

200 



251 



302 

OR 

A 

201 

LD 

A,(FR) 

252 

LD 

DE, $9000 

303 

SBC 

HL,DE 

202 

CP 

$10 

253 

LD 

HI,, (GR1) 

304 

CALL 

FLAG_A 

203 

JP 

NZ.PLUS 

254 

ADD 

HL.DE 

305 



204 



255 

PUSH 

HL 

306 

RET 
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ORG 

$7000 

7026 

2A 

02 

DF 

45 

46 

LD 

HL,(GRl) 



7029 

ED 

5B 

00 

LD 

DK,(GR0) 

EQU 

$DF00 

702C 

DF 






EQU 

REG 

7021) 

19 



47 

ADD 

HL,DE 

EQU 

REG+2 

702E 

22 

00 

DF 

48 

LD 

(GR0),HL 

liQU 

REG + 4 

7031 

CD 

IE 

DF 

49 

CALL 

FLAG 

EQU 

REG+6 

7034 




50 ； 

; 


liQU 

REG+8 

7034 




51; 

LEA 

GR2,$0D 

EQU 

REG+ 10 

7034 

21 

01) 

00 

52 

LD 

LD 

HL,$0D 

liQU 

REG+11 

7037 

22 

04 

DF 

53 

(GR2),HL 

EQU 

REG+13 

70：M 

CD 

IK 

DF 

54 

GALL 

FLAG 

HQU 

REG+15 

703D 




55 ; 

ST 

GR2,0,GR0 

EQU 

REG+17 

7031) 

11 

00 

00 

56 

L,D 

DE,0 

_ 

REG+19 

7040 

2A 

00 

DF 

57 

LD 

H し， (GR0) 

EQU 

UEG+21 

704 3 

19 



58 

ADD 

H し ， DE 

EQU 

REG+23 

7044 

El) 

5B 

04 

59 

LD 

DE,(GR2) 

EQU 

REG+25 

7047 

DF 






KQD 

REG+28 

7048 

73 



60 

61 

LD 

(HL),E 

EQIJ 

REG*30 

7049 

23 



INC 

HL 



'704A 

72 



62 

LI) 

(HL),D 

TEST of IN & OUT (ADD L.TNL) 

704 B 




63 ； 





704B 




64 ； 

LEA 

GRl,1,GR1 

Hikaru 

Minamoto 

704B 

11 

01 

00 

65 

LD 

LD 

DE,1 



704E 

2A 

02 

DF 

66 

HL,(GRl) 

START 


7051 

19 



67 

ADD 

HL.DE 

IN 

WORD.LENG 

7052 

22 

02 

DF 

68 

LD 

(GRl),HL 

LD 

HI. .WORD 

7055 

CD 

IK 

I)F 

69 

CALL 

FLAG 

LI) 

BC.LENG 

7058 




70 ; 

ST 

GRl,LKNG 

CAL し 

IN 

7058 

2A 

02 

DF 

71 

LD 

LD 

HL,(GRl) 

; 


705B 

22 

68 

70 

72 

(LENG),HL 

LEA 

GKO,WORD 

705E 




73 ; 



LI) 

UL,WORD 

705E 




74 ; 

OUT 

WORD,LENG 

LD 

(GR0) , HL, 

705E 

21 

6A 

70 

75 

LD 

LD 

HL.WORD 

CALL 

b'LAG 

7061 

01 

68 

70 

76 

BC.LENC 

LD 

GR1,LENG 

7064 

CD 

0B 

DF 

77 

CALL 

OUT 

LD 

HL,(LENG) 

7067 




78 ； 

END 


LI) 

( OR 1 ) ,HL, 

7067 

C9 



79 

RET 


ADD 

GR0.GR1 

7068 




80 : LKNti 



LI) 

HI,, (GRl) 

7068 




81 LliNG 



LD 

DE,{GR0) 

7068 




82 ； 

DS 

1 



7068 

00 

00 


83 

DS 

1*2 

ADD 

HL, l)E 

706A 




84 : WORD 



LU 

(GR0),HL 

706A 




85 WORD 



CALL 

FLAG 

706A 




86 ； 

DS 

86 

ADD 

GR0.GR1 ； Z80 ARUANGE 

706A 

00 

00 

00 

87 

DS 

80*2 


7 〇 «0 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 

7000 21 6A 70 
7003 0168 70 
7006 CD 01) J)F 
7009 
7009 

7009 21 GA 70 
7000 22 001)F 
7OOF CD IK DF 
7012 

7012 2A 68 70 
7015 22 021)F 
7018 

7018 2A 02 I)F 
70IB El) 5B 00 
701E DF 
70IF 19 
7020 22 00 DP 
7023 CD IK i)F 
7026 


光：実行には， メモリ 上に CASL の ソース 
があることが前提条件です。 

Yo :ふむふむ。 

光：そこで， S - OS から JDOOO とすると，ソ 
ースのアドレスと実行開始番地を聞いてき 
ますから，それぞれ5000，7000とかのよう 
に答えてくた 5 さい。 

老：ほう 。 CASL のソースリス トが画面に 
出てきたのう。 

光：現在変換中の行を表示しているんです 
けど，そこそこに速いでしよ。 

老：そこでアセンブラを起動すれば，アセ 
ンブルできるようになっておるのじやな。 
光：ええ， エラーが あった場合には ビープ 
音が鳴ります。 

老：新しいソースはどこに作られるのじや。 
光：もとの CASL のソースがあった番地に 


上書きされます。 

老：ということは，ここでエディタを起動 
すれば，すぐエディットできるわけか。 

光：ええ。慣れるとなかなか快適ですよ。 




最後に 


老：何かいい残したことはないかのう。 

M :長老，縁起でもないですよ。 

光••えっと，リスト2に注釈で Z 80 アレン 
ジ，って書いてある行がありますよね。 

Yo :ええ，あるわ 0 

光：あそこは，本来 CASL だったらいらな 
い行なんですよ。 

老：ほほう。 

光：1番地が16ビットっていうメモリ構成 
だから，そのままでは実行できなかったん 

u スト e 


で，アドレスの計算が正しくなるようにし 
たんです。 

老••つまり，そのままでは動かないプログ 
ラムもあるってことじやな。 

光：ええ，今回のように簡単な追加で動く 
ようになると思いますけどね。 

Yo ： 完全に，動〈プログラムもあるわよね。 
光：ええ，算術のルーチンとか，メモリに 
侍避するデータがない場合は完璧に動くは 
ずですよ。具体的に動くもの，動かないも 
のは来月号でぉ話しします。 

老：ほかにはないんか。 

光：えっとタブコードに対応していません。 
老：というと？ 

光：僕が使っているシステムではタブコー 
ド対応のソフトがないんですよ。それで試 
せなかったもんだから。 


1 ； 

TEST of 

IN & OUT 

(ADD LTNL) 

13 


LEA 

GR2,$0D 

2 ； 




14 


ST 

GR2,0,GR0 

3 ； 

Hikaru 

iinamoto 


15 


； 


‘1 




16 


LEA 

GK1,1,GR1 

5 

START 



17 


ST 

GRl,LEMG 

f» 

IN 

WORD.LENG 


18 


； 


7 

; 



19 


OUT 

WOitl), LENCJ 

8 

LKA 

G 晚 WORD 


20 


END 


9 

LD 

GRl,LEN« 


21 

I<EN(i 



10 

ADD 

GR0.GR1 


22 


1)S 

1 

11 

ADD 

GR0.GR1 

;Z80 ARRANGE 

23 

WORD 



12 

； 



24 


DS 

80 


U スト 3 


A L 
T II 
F w u G 

G 〇 12 3 4 '!■LLAAIAAA 
HHHHRKRUNLHLRHLLL 
KGGGGGFOISSSSSFKF 


12345678901 


123456 789012345678901234567890 12 3-: 
-- -111122222222223 3 333333334 4 4 4 4 


126 Oh! X 1992.9. 








^閉店のお時間 

M :今回はリストが長かったですね。 

光：そうでしよ，だてに1力月も待たせた 
わけじゃないでしよ。 

Yo :そうやって逃げる。 

M : まあよしとしましよう。 

Yo :ところで光君って，情報処理の資格も 


つてるの？ 

光：はっはっは。なぜか1種を。 

—同：げげっ！ 

光：勉強してなかったんですけどね。前の 
日も飲み会でさっさと寝ちゃったし。 

M : CASL のほかにはどの言語で受けまし 
た？ 

光： FORTRAN 。 

老：おぬし FORTRAN も知っておるのか。 


光：試験当日に電車の中で勉強しただけで 
’す。ちなみに CASL を勉強したのは2年く 
らい前だったかな。 

M :そんなんで受かっちゃうんですか。 

光：奇跡はあるのです。 

老：世の中は不公平にできておるのう。 

Yo :人のノートで A を取る男はここでも健 
在だったのね。 

—つづく一 


■ J スト4 


0000 




1 

; CASL Transmitter 


D07B 

CD 

9A 

IF 

68 

CALL 

#POKE 

0000 




2 





1)0 7 E 

EB 



69 

EX 

DE, HL 

0000 




3 


by Hikaru Minamoto 

D07F 

13 



70 

INC 

DE 

0000 




4 





D08O 

23 



71 

INC 

11L 

1)000 




5 


ORG 

$0000 


D081 

B7 



72 

OR 

A 

D000 




6 





D082 

20 

F5 


73 

JR 

NZ.WRKSET2 

1)000 




7 

；Label 


Address 

Break 

D084 




74 


D000 




8 





D084 

ED 

5B 

42 

75 

LD 

DE,(TXTADR) 

D00O 




9 

[HL] 

EQU 

$1F81 

nothing 

D087 

D9 





DO00 




10 

#PEEK 

EQU 

$1F94 

AF 

D088 

21 

4 8 

D9 

76 

LU 

HL,ORG$ 

0000 




11 

#POKE 

EQU 

$1F9A 

nothing 

D08B 

01 

11 

00 

77 

LD 

BC,17 

DO00 




12 

#HLHEX 

EQU 

$IFB2 

AF.DE+4,HL 

D08E 

ED 

B0 


78 

LDIR 

L 

D00O 




13 

#ASC 

EQU 

$1FBB 

AF 

D090 




79 


D000 




14 

#BELL 

EQU 

$1FC4 

AF 

D090 

EB 



80 

DE.HL 

D0OO 




15 

#PAUSE 

EQU 

$1FC7 

AF 

0091 

3A 

41 

D9 

81 

LD 

A,(EXEADR+1) 

DO00 




16 

#GETL 

EQU 

$1FD3 

AF 

0094 

CD 

AC 

DO 

82 

CALL 

HLASC 

D000 




17 

IMPRINT 

KQU 

$1FE2 

AF.DE 

D097 

3A 

40 

D9 

83 

LD 

A,(EXBADR) 

1)000 




18 

#MSG 

EQU 

$1FE8 

F 

D09A 

CD 

AC 

00 

84 

CALil, 

HLASC 

0000 




19 

#LTNL 

EQU 

$1FEE 

nothing 

D09D 




85 

L 


DO0O 




20 

#PRINT 

EQU 

$1FF4 

F 

D09D 

EB 



8.6 

DE.HL 

D000 




21 





D09E 

21 

59 

D9 

87 

LD 

HL.OYAKUSOKU 

D000 




22 

PRE 




D0A1 

01 

82 

01 

88 

LD 

BC,OYA2-OYAKUSOKU 

D0O0 

CD 

E2 

IF 

23 


CALI, 

#MPRINT 


D0A4 

ED 

B0 


89 

LDIR 

D003 

54 

45 

58 

24 


DM 

"TEXT Address = $" 

D0A6 

ED 

53 

42 

90 

LD 

(TXTADR),DE 

D006 

54 

*20 

41 






D0A9 

D9 





0009 

64 

64 

72 






D0AA 

18 

11 


91 

JR 

GETL 

D0OC 

65 

73 

73 






D0AC 




92 HLASC 



D00F 

20 

3D 

20 






D0AC 

F5 



93 

PUSH 

AF 

D012 

24 








D0AD 

0F 



94 

RRCA 


0013 

00 



25 


DB 

0 


D0AE 

0F 



95 

RRCA 


0014 

CD 

37 

D0 

26 


CALL 

GETADR 


D0AF 

0F 



96 

RRCA 


D017 

22 

42 

D9 

27 


LD 

(TXTADR) 

HL 

D0B0 

0F 



97 

RRCA 


D01A 




28 




D0B1 

CD 

BB 

IF 

98 

CALL 

#ASC 

D01A 

CD 

E2 

IF 

29 


CALL 

#MPRINT 


D0B4 

77 



99 

LD 

(HL) f A 

D01D 

45 

58 

45 

30 


DM 

"EXEC Address = S" 

D0B5 

23 



100 

INC 

HL 

D020 

43 

20 

41 






DGU6 

FI 



101 

POP 

AF 

D023 

64 

6 4 

72 






D0B7 

CD 

BB 

IF 

102 

CALL 

#ASC 

0026 

65 

73 

73 






D0BA 

77 



103 

LD 

(HL),A 

D029 

20 

3D 

20 






D0BB 

23 



104 

INC 

HL 

D02C 

24 








D0BC 

C9 



105 

RET 


D021) 

00 



31 


1)B 

0 


D0BD 




106 GETL 



D02E 

CD 

37 

DO 

32 


CALL 

GETADR 


D0BD 

11 

DB 

DA 

107 

LD 

LD 

DE.KEYBUF 

1)031 

22 

40 

D9 

33 


LD 

(EXEAI)R) ,HL 

D0CO 

2A 

44 

1)9 

108 

HL,(WRKADR) 

D034 

C3 

6E 

D0 

34 


JP 

WORKSET 


D0C3 




109 GETL2 



D037 




35 

GETADR 




D0C3 

CD 

94 

IF 

110 

CALL 

#PKEK 

D037 

11 

DB 

DA 

36 


LD 

DE.KEYBUF 

D0C6 

B7 



111 

112 

OR 

A 

D03A 

CD 

D3 

IF 

37 


CALL 

#GETL 


D0C7 

28 

95 


JR 

Z.END2 

D03D 




38 


； 



D0C9 




113 

; 


D03D 

1A 



39 


LD 

A , (I)E ) 


D0C9 

12 



114 

LD 

(DE),A 

D03E 

FE 

IB 


40 


CP 

$1B 


D0CA 

13 



115 

INC 

DE 

U04O 

CA 

5E 

D0 

41 


JP 

Z,END2 


D0CB 

23 



116 

INC 

HL 

1)043 




42 





1)0 CC 

FE 

0D 


117 

CP 

$0D 

1)043 

11 

Hli 

DA 

43 


LD 

DE,KEYBUF+$10 

D0CE 

2 8 

02 


118 

JR 

Z.XASS 

D046 

CD 

B2 

IP 

44 


CALL 

#HLHEX 


D0D0 

18 

FI 


119 

JR 

GETL2 

1)049 

D0 



45 


RET 

NC 


D0D2 




120 XASS 



D04A 

CD 

E2 

IF 

46 


CALL 

#MPRINT 


D0D2 

22 

44 

D9 

121 

LD 

(WRKADR),HL 

D04D 

53 

79 

6£ 

47 


DM 

"Syntax Error." 

D0D5 

11 

DB 

DA 

122 

LD 

DE.KEYBUF 

D050 

74 

61 

78 






D0D8 

CD 

E8 

IF 

123 

CALL 

#MSG 

0053 

2(1 

45 

72 






D0DB 

CD 

EE 

IF 

124 

CALL 

#LTNL 

D056 

72 

6F 

72 






D0DE 

CD 

E8 

D0 

125 

CALL 

RECOPY 

D059 

2E 








D0E1 

CD 

C7 

IF 

126 

CALL 

#PAUSE 

D05A 

00 



48 


DB 

0 


D0E4 

5E 

D0 


127 

DW 

END2 

D05B 

CD 

EE 

IF 

49 


CALL 

#LTNL 


D0E6 

18 

D5 


128 

JR 

GETL 

D05E 




50 

END2 




D0E8 




129 RECOPY 



D05E 

2A 

42 

D9 

51 


LD 

HL,(TXTADR) 

D0E8 

2A 

42 

D9 

130 

LD 

HL,(TXTADR) 

D061 

AF 



52 


XOR 

A 


D0EB 

3E 

3B 


131 

LD 

A,";" 

D062 

77 



53 


LD 

(HL),A 


D0ED 

77 



132 

LD 

(HL),A 

D063 




54 


； 



DOEE 

23 



133 

INC 

HL 

D063 

CD 

E2 

IF 

55 


CALL 

#MPRI.NT 


D0EF 




134 RECOPY2 



D066 

45 

4E 

44 

56 


DM 

"END." 


D0EF 

1A 



135 

LD 

A,(DE) 

0069 

2E 








D0F0 

77 



136 

LD 

(HL),A 

D06A 

00 



57 


DB 

0 


D0F1 

13 



137 

INC 

DE 

HL 

D06B 

CD 

EE 

IP 

58 


CALL 

#LTNL 


D0F2 

23 



138 

INC 

D06E 

C9 



59 

60 


RET 



D0F3 

FE 

OD 


139 

CP 

JR 

$0D 

D06K 








D0F5 

20 

F8 


140 

NZ.RECOPY2 

D06F 




61 

WORKSET 




D0F7 

22 

42 

D9 

141 

LD 

(TXTADR) , HL 

D06F 

2A 

42 

D9 

62 


LD 

HL,(TXTADR) 

D0FA 




142 

； 


D072 

11 

00 

00 

63 


LD 

DH, $0000 


D0FA 




143 PASER 



0075 

)?D 

53 

44 

64 


LD 

(WRKADR) 

DE 

D0FA 

11 

DB 

DA 

144 

LD 

DE.KEYBUF 

D078 

D9 








D0FD 

1A 



145 

LD 

A,(DE) 

1)079 




65 

WRKSET2 




D0FE 

FE 

20 


146 

CP 


0079 

7E 



66 

67 


ID 

EX 

A, (HL) 


D100 

28 

18 


147 

JR 

Z,NOLABEL 

D07A 

EB 




DE, HL 


D102 

FE 

0U 


148 

CP 

$0D 


マシン語カクテル in Z 80 ’s Bar 127 




JP 

LOG_SET 


INC 

DE ；D 

CALL 

SPCCUT 


PUSH 

DB 

G 

INC 

DE 

R 

INC 

DE 

? 

INC 

DE 

i 

INC 

DE 


CALL 

CCHECK 


LD 

BC,ADD ST2 

PUSH 

BC 


JP 

NC.LDHL2* 


POP 

BC 


CALL 

INDGX$ 


LD 

DE,LD$3 


CALL 

SET$ 


CALL 

TAB 11 


LD 

DE,LDli23 


CALL 

SET$ 


HOP 

DK 



PUSH 

CALL 

POP 


AF 

TABU 

AF 


THEN JF A PASER 


177 

IF 

A= 

"C" 

THEN 

JP 

C_PASEH 

178 

IF 

A= 

"D" 

THEN 

JP 

D_PASER 

179 

IF 

A= 

"E" 

THEN 

JP 

E_PASER 

180 

IF 

A= 

"I" 

THEN 

JP 

I_PASER 

181 

IF 

A = 

"J" 

THEN 

JP 

J_PASER 

182 

IF 

A = 

"L" 

THEN 

JP 

L_PASER 

183 

IF 

A= 

"0" 

THEN 

JP 

0_PASER 

184 

IF 

A= 

"P" 

THEN 

JP 

P_PASER 

185 

IF 

A= 

"R" 

THEN 

JP 

R_PASER 

186 

IF 

A = 

"S" 

THEN 

JP 

S PASER 


187 

188 ERR 
1.89 

190 

191 

192 

193 

194 KETXASS 

195 

196 

197 A_PASER 

198 

199 

200 
201 

202 AND_SET 

203 

204 


CALL #BELL 

LD A,"?" 

LD (HL),A 

INC HL 

CALL LTNL$ 


LD 

RET 


(TXTADR),HL 


LD A,(DE) 

IF A="D" THEN JH ADD SET 


IF A=..N m THEN JR AND_SET 
JP EHR 


LD 

LD 


BC,AND$ 

{LOG WRK),BC 


149 


JR 

150 


CP 

151 


JR 

152 

LABEL 


153 


LD 

154 


LD 

155 


INC 

156 


INC 

157 


CP 

158 


JR 

159 


CP 

160 


JR 

161 


CALL 

162 


XOR 

163 

NOLABEL 


164 


CP 

165 


JR 

166 


LD 

167 


CP 

168 


INC 

169 


JR 

170 


; 

171 


IF A=" 


Z r NOLABEL 
Z’,RETXASS 
A,(DE) 

(HL) f A ； LABEL COPY 

HL 

DE 

$0D 

Z,KETXASS 

NZ,LABEL 
LTNL$ 

A ； DUMMY 

SOD ； SPACE CUT 

Z.RETXASS 

A,(DE) 

DE 

Z,NOLABEL 
• THEN JP RETXASS 


D1CC 

D1CD 

D1D0 

D1D3 

nilHv 

1)11)9 

i 〕 m: 

I)1DF 
1)1liO 
1)1 li：1 
l)U-；6 
1)11-9 
D1EC 
1)1 EF 
IJ11* 2 
I)1 P5 
D l IT* 
I) I Ff, 

1)11'9 

1)1 K (： 

I) I VV 
D2f)2 
D205 
D205 
D206 
D209 
D20C 
D20C 
D20D 
D20E 
D211 
0214 
D217 
D21A 
D21D 
D21D 
D220 
1)223 
D223 
1)226 
D229 
0229 
D22A 
D22D 
D230 
1)233 
D236 
0239 
0239 
D23C 
D23D 
D23E 
D241 
0244 
D24 7 
1)2 4 A 
D24A 
1)241) 
0250 
1)251 
D254 
1)257 

I) 257 

J) 25A 
1)2 5IJ 
D25E 
[)260 
0261 
1)262 
D2B3 
1)266 
D269 
D269 
D26C 
D26D 
D26F 
D26F 
D270 
0271 
D272 
0274 
0277 
D278 
D279 
D27C 
D27F 
1)282 
D284 
D285 
D286 
1)287 
D288 
D289 
D28B 
D28C 
IJ28D 
D290 
1)292 
D292 
D295 
0296 
1)299 
D29C 
D29D 
D2A0 
D2A1 


03 00 
15 D6 
KC 1)7 
I A U6 

4 7 DA 
IA 1)6 

03 00 
151)0 
-ID D8 
I A D6 
53 D8 
1A D6 


C3 871)1 
IA 

KK ■! I 20 
02 IR 09 
KK 50 20 
02 18 0A 
f：3 7D D1 

IB 

CD BF 1)5 
C3 87 D1 

13 

IA 

FE 4C 20 
0218 09 
FE 4120 
0218 09 
C3 7D D1 

0160 D7 
C3 3B D6 

0152 D7 
C3 3B D6 

IA 

PE 43 20 
0218 09 
FE 53 20 
0218 5C 
C3 7D D1 

CD A2 D5 

!)5 

IA 

FF -： 23 20 
021813 
KK 22 20 
0218IF 

1172 1)7 
Cl) IA 1)6 
D1 

CD BF D5 
C3 87 D1 

I 172 1)7 
Cl) IA 1)6 
1)1 

3K 24 
77 
13 
23 

CD HK D5 
C3 87 D1 

II 0B 0C 
B7 

ED 52 

D1 

13 

IA 

FE 22 
CA 87 D1 
D5 
F5 

CD 37 D6 

1172 D7 

CD IA D6 

3E 22 

77 

23 

FI 

77 

23 

3E 22 

77 

23 

CD 10 
18 DD 


228 

229 

230 
2：i I 
232 
2nr< 

234 

235 

2rn> 

2H7 

238 

239 
246 
24 I 
242 
2\^ 
2-J4 
24S 

2.1 n 


PUSH 1)F- 

1.1) BC, 3 

CAl.l. TONSS 

l-l) DE, I.ND53 

CALI, SKT$ 

).]) I)E,LD$ 

( 、 Al.L SETS 

POP DE 

LD BC,3 

CALL TRNS$ 

LD DI5,LD$2 

CALI. SET$ 

F.I) HE, f ： Al,l._PLAO 

(: ALL SET$ 

JP RETXASS 

LD A,(DC) 

TF ^="A" THEN JR CALL_SET 


IF A="P" THEN JR CP SET 


JP 


247 

248 CALL SET 

249 DEC 

250 CALL 

251 JP 

252 CP_SET 

253 INC 

254 LD 


DE ； DE=C 

COPY$ 

RETXASS 


255 


257 


DE 

— A,(DE) 

IF A="L" THEN JR CPL_SET 

IF A="A" THEN JR CPA_SET 


JP 


258 CPL_SET 

259 LD 

260 JP 

261 CPA_SKT 

262 LD 

263 JP 

264 D_PASER 


D6 


CD A2 D5 
D5 

1 16E D7 
CD IA D6 
D1 

CD BF D5 
2B 

112E D9 


265 

266 


268 

269 DC SET 

270 

271 

272 

273 


275 DC_ST2 

276 

277 

278 

279 

280 

281 D( ； _ST 3 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 DC_ST 4 

292 

293 

294 

295 DC_ST 5 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 DS_SET 

318 

319 

320 

321 

322 

323 

324 

325 


ERR 


BC,CPL$ 
CPAL SET 


BC,CPA$ 
CPAL SET 


A,(DE) 


LD 

IF A="C" THEN JR DC SET 


IF A= 
JP 

CAI 4 I. 

PUSH 

L,D 

IF A=" 
IF A=" 


LD 

CALL 

POP 

CALL 

JP 

LD 

CAU, 

POP 

I.D 

LD 

INC 

INC 

CALL 

JP 

LD 

OR 

SBC 

POP 

INC 

LD 

CP 

JP 

PUSH 

PUSH 

CALL 

LD 

CALL 

LD 

LD 

INC 

POP 

L.D 

INC 

LD 

LD 

INC 

CALL 

JR 

CALL 

PUSH 

LD 

CALL 

POP 

CALL 

DEC 

LD 


'S" THEN JR DS_SET 

KRR 

SPCCUT 

DE 

A,(DE) 

す ， THEN JR DC_ST3 
THEN JR DC ST4 


DE.DWS 

SET$ 

DE 

COPY 5 
KETXASS 

DE,DW$ 

SETS 

DE 

A, ,, $ M 
(HL),A 


DE 

HL 


COPY$ 

RETXASS 

DE,11 
A 

HL,DE ； DEL_TAB 

DE 

DE 

A,(DE) 

Z,RETXASS 

DE 

AF 

TAB 11 
DE,DW$ 

SET$ 

A 

(HL),A 

HL 

AF 

(HL),A 
HL 

A,' 

(HL),A 
HL 

LTNL$ 

DC_ST 5 

SPCCUT 

DE 

DE,DS$ 

SET$ 

DE 

COPY$ 

HL ； $0D 

DE,TIMES2$ 


D104 28 14 
1)106 FE 3B 
D108 28 7D 
D10A 
D10A IA 
D10D 77 
D10C 23 
D10D 13 
D10E FE 0D 
D110 28 75 
D112 FE 20 
D1 14 20 F4 
D116 CD 10 D6 
D119 AF 

D11A 

D11A FE OD 
D11C 28 69 
D11E IA 
D11F FE 20 
D12113 . 

D122 28 F6 
D124 

1)124 FE 3B 20 
D127 03 C3 87 
D12A D1 
D12H F5 
D12C Cl) 37 D6 
D12F FI 
D130 

0130 FE 4120 
D133 03 C3 8B 
D136 D1 
D137 FE 43 20 
D13A 03 C3 F5 
D13D D1 
D13E FE 44 20 
D141 03 C3 29 
DH4 D2 
D145 KE 45 20 
DM8 03 C3 AA 
D14B D2 
D14C FE 49 20 
D14F 03 C3 D5 
1)152 D2 
D153 FK 4A 20 
0156 03 C3 DB 
D159 D2 
D15A FK 4C 20 
D15D 03 C3 AE 
D160 D3 
DJ61 FE 4F 20 
[)164 03 C3 20 
D167 D4 
D168 F12 50 20 
D16B 03 C3 40 
D16E D4 
D16F FE 52 20 
D172 03 C3 87 
D175 D4 
D176 FE 53 20 
D179 03 C3 90 
D17C D4 
D17D 
D17D 

D171) CD C4IF 
D180 3E 3F 
D182 77 
0183 23 
DJ84 CD 10 D6 
D187 

D187 22 42 D9 
D18A C9 
D18B 
D18B IA 
D18C FE 44 20 
D18F 021813 
D192 FE 4K 20 
1)195 0218 03 
0198 C3 7D D1 
D19B 

D19B 0132 D9 

D19E El) 43 46 

D1A1 D9 

D1A2 C3 9B D6 

D1A5 

D1A513 

D1A6 

D1A6 CD A2 D5 
D1A9 D5 
1)1 AA 13 
D1AB 13 
D1AC 13 
D1AD 13 
D1AE CD A9 D5 
D1B1 01 C2 D1 
D1B4 C5 
D1B5 D2 D6 D5 
DIB8 Cl 
DIB9 CD EA 1)5 
D1BC 115F 1)8 
D1BF CD IA D6 
D1C2 

D1C2 CD 37 D6 
D1C51185 D7 
1)108 CD IA D6 
D1CB D1 


s 

D 


56789012345678901234567 
000001111111111222222 2 2 
. .-J 2 2 2 2 C 


2222222220 


2222222222 


2 3 4 5 6 
7 7 7 7 7 
111 1* Ifc n 


228 Oh! X 1992. 9. 


► 8 月号の特雄でフローチャートを取り上げていましたが，フローチャートを書く人って 
どのくらいいるのでしようか。僕は， PAD のほうが好きです。といっても，いつも何も畨 
きませんけど。 黑武者健一 (22) 神奈川県 







D2A4 

CD 

1A 

D6 

326 



CALL 

SET$ 


D38A 

CD 

1A 

D6 

420 


CALL SET$ 

D2A7 

C3 

87 

D1 

327 



JP 

RETXASS 


D38D 

D1 



421 


POP DE 

D2AA 




328 

E PASER 




D38E 




422 

JF_IND2 


D2AA 

1A 



329 



LD 

A,(DE) 


D38E 

1A 



423 


LD A,(DE) 

D2AB 

FE 

4E 

20 

330 



IF A="N 

'THEN JP 

END„SET 

D38F 

77 



424 


LD (HL),A 

D2AE 

03 

C3 

C2 







D390 

13 



425 


INC DE 

D2B1 

1)2 









D391 

23 



426 


INC HL 

D2B2 

PE 

4F 

20 

331 



IF A="0" THEN JR 

EOR_SET 

D392 

FE 

2C 


427 


CP "," 

D2B5 

02 

18 

13 







D394 

20 

F8 


428 


JR NZ,JP IND2 

D2B8 

FE 

58 

20 

332 



IF A="X 

THEN JP 

END_SET 

D396 

明 



429 


DEC HL 

D2BB 

03 

C3 

C2 







D397 

D5 



430 


PUSH DE 

1)2 BE 

D2 









D398 

11 

E2 

D7 

431 


LD DE,IND$2 

D2BF 

C3 

7D 

D1 

333 



JP 

ERR 


D39B 

CD 

1A 

D6 

432 


CALL SET$ 

D2C2 




334 

END 

_S£T 




D39E 

D1 



433 


POP DE 

D2C2 

11 

BF 

D8 

335 



LD 

DE,RET$ 


D39F 

01 

03 

00 

434 


L.D BC, 3 

D2C5 

Cl) 

1A 

L6 

336 



CAL し 

SET$ 


D3A2 

CD 

15 

D6 

435 


CALL TRNS$ 

D2C8 

C3 

87 

D1 

337 



JP 

RETXASS 


D3A5 

11 

0B 

D8 

436 


LD DE,JP LND$ 

D2CB 




338 

EOR SET 




D3A8 

CD 

1A 

D6 

437 


CALL SETS 

D2CB 

01 

3B 

D9 

339 



LD 

BC.XORS 


D3AB 

C3 

87 

Dl 

438 


JP RETXASS 

D2CE 

ED 

43 

46 

340 



LD 

(LOG WRK).BC 

D3AE 




439 

L_PASER 


D2D1 

D9 









D3AE 

1A 



440 


LD A,(DE) 

D2D2 

C3 

9B 

D6 

341 



JP 

L0G_SET 


D3AF 

Fi- 

44 

20 

441 


IF A="D" THEN JR LD_SET 

D2D5 




342 

I PASER 




D3B2 

02 

18 

09 




D2D5 

01 

06 

D7 

343 



LD 

BC,IN$ 


D3B5 

FH 

45 

20 

442 


IF A="E" THEN JR LEA_SET 

D2D8 

C3 

78 

D6 

344 



JP 

10 SET 


D3B8 

02 

18 

35 




D2DB 




3 4 5 

J PASER 




I)3BB 

C3 

7D 

Dl 

443 


.JP ERR 

D2DB 

1A 



346 



LD 

A,(DE) 


D3BK 




444 

LD_SET 


D2DC 

FE 

5A 

20 

347 



IF A="Z 

THEN JR 

JZE_SET 

D3BE 

CD 

A2 

D5 

445 


CALL SPCCUT 

D2DF 

02 

18 

39 







D3C1 

D5 



446 


PUSH DE ；G 

D2H2 

FE 

4E 

20 

348 



IF A="N 

THEN JR 

JNZ_SET 

D3C2 

13 



447 


INC DE ；R 

D2E5 

02 

18 

4E 







D3C3 

13 



448 


INC DE ；? 

D2E8 

FE 

50 

20 

349 



IF A="P 

THEN JR 

JPZ_SET 

D3C4 

13 



449 


INC DE ;, 

D2EB 

02 

18 

63 







D3C5 

13 



450 


INC DE ；? 

D2EE 

FE 

4D 

28 

350 



IF AO"M" THEN Jf 

ERR 

D3C6 

CD 

A9 

1)5 

451 


CALL CCHECK 

D2F1 

03 

C3 

7D 







D3C9 

01 

DA 

D3 

452 


LD BC,LD ST2 

D2F4 

1)1 









D3CC 

C5 



453 


PUSH BC 

D2F5 

13 



351 



INC 

DE 


D3CD 

D2 

1)6 

D5 

454 


JP NC,LDHL2$ 

D2F6 

1A 



352 



LD 

A,(DE) 


D3D0 

Cl 



455 


POP BC 

[)2 P 7 

FE 

50 

20 

353 



IF A=*'P' 

THEN JR 

JMP_SET 

D3D1 

CD 

EA 

D5 

456 


CALL INDEX$ 

D2FA 

02 

18 

73 







D3D4 

11 

5F 

D8 

457 


LD DE,LD$3 

D2FD 




354 

JMI_ 

.SET 




D3D7 

CD 

1A 

1)6 

458 


CALL SET$ 

D2FD 

CD 

A2 

D5 

355 



CALL 

SPCCUT 


D3DA 




459 

LD_ST2 


1)300 

D5 



356 



PUSH 

DB 


D3DA 

11 

47 

D8 

460 


LD DE,LD$ 

D301 

11 

FA 

D7 

357 



LD 

DE,JP$ 


D3DD 

CD 

1A 

D6 

461 


CALL SETS 

1)304 

CD 

1A 

D6 

358 



CALL 

SETS 


D3E0 

D1 



462 


POP DE 

D307 

3E 

30 


359 



LD 

A, "0" 


D3E1 

01 

03 

00 

463 


LD BC,3 

D309 

77 



360 



L,D 

(HL) , A 


D3E4 

CD 

15 

D6 

464 


CALL TRNS$ 

D30A 

23 



361 



INC 

HL 


D3E7 

11 

4D 

D8 

465 


LD DE,LD$2 

D30B 

CD 

10 

D6 

362 



CALL 

LTNL$ 


D3EA 

CD 

1A 

D6 

46G 


CALL SETS 

D30E 

11 

38 

D8 

363 



LD 

DE,JPZ$ 


D3ED 

C3 

87 

Dl 

467 


JP RETXASS 

D31 1 

CD 

1A 

D6 

364 



CALL 

SET$ 


D3F0 




468 

LEA_SET 


0314 

D1 



365 



POP 

DE 


D3F0 

13 



469 


INC DE ；A 

D315 

CD 

BF 

D5 

366 



CALL 

COPY$ 


D3F1 




470 


； 

D318 

C3 

87 

1)1 

367 



JP 

RETXASS 


D3F1 

CD 

A2 

D5 

471 


CALL SPCCUT 

D31B 




368 

JZE_ 

SET 




D3F4 

D5 



472 


PUSH DE ；G 

D31B 

13 



369 



INC 

DE 


D3F5 

13 



473 


INC DE ；R 

D31C 

CD 

A2 

D5 

370 



CALI. 

SPCCUT 


D3F6 

13 



474 


INC DE ；? 

D31F 

D5 



371 



PUSH 

DE 


D3F7 

13 



475 


INC DE 

D320 

11 

FA 

D7 

372 



LD 

DE,JP$ 


D3F8 

13 



476 


INC DE ；? 

D323 

CD 

1A 

D6 

373 



CALL 

SET$ 


D3F9 

CD 

A9 

D5 

477 


CALL CCHECK 

1)326 

CD 

10 

D6 

374 



CALL 

LTNL$ 


D3FC 

01 

07 

D4 

478 


LD BC,LA_ST 2 

D329 

11 

38 

D8 

375 



LD 

DE,JPZ$ 


D3FF 

C5 



479 


PUSH BC 

D32C 

CD 

1A 

D6 

376 



CALL. 

SETS 


D40O 

D2 

B7 

D5 

480 


JP NC,LDHL$ 

D32F 

1)1 



377 



POP 

DE 


D403 

Cl 



481 


POP BC 

0330 

CD 

BF 

D5 

378 



CALL 

COPY$ 


D404 

CD 

EA 

D5 

482 

售 

CALL INDEX$ 

D333 

C3 

87 

D1 

379 



JP 

RETXASS 


D407 




483 

LA_ST 2 


0336 




380 

JNZ SET 




D407 

11 

47 

D8 

484 


LD DE,LD$ 

D336 

13 



381 



INC 

DE 


D40A 

CD 

1A 

D6 

485 


CALL SET$ 

D337 

CD 

A2 

D5 

382 



CALL- 

SPCCUT 


D40D 

D1 



486 


POP DE 

D33A 

D5 



383 



PUSH 

DE 


D40E 

01 

03 

00 

487 


LD BC,3 

D33B 

11 

FA 

D7 

384 



LD 

DE,JP$ 


0411 

CD 

15 

D6 

488 


CALL TRNS$ 

D33E 

CD 

1A 

D6 

385 



CALL 

SET$ 


D414 

11 

4D 

138 

489 


LD DE,LD$2 

D341 

CD 

10 

D6 

386 



CALL 

LTNL$ 


D417 

CD 

IA 

D6 

490 


CALL SETS 

D34 4 

11 

3F 

D8 

387 



LD 

DE,JPNZ$ 


D41A 

CD 

1A 

D6 

491 


CALL SETS ；CALL FL 

0347 

CD 

1A 

D6 

388 



CALL 

SET$ 


D41D 

C3 

87 

Dl 

492 


JP RETXASS 

D34A 

D1 



389 



POP 

DE 


D420 




493 

0_PASER 


D34B 

CD 

BF 

D5 

390 



CALL* 

COPY$ 


D420 

1A 



494 


LD A,(DE) 

D34E 

C3 

87 

D1 

391 



JP 

RETXASS 


D421 

FE 

52 

20 

495 


IF A="R" THEN JR OR_SET 

D351 




392 

JPZ. 

_SET 




D424 

02 

18 

09 




D351 

13 



393 



INC 

DB 


D427 

FE 

55 

20 

496 


IF A="U" THEN JR OUT.SET 

D352 

CD 

A2 

D5 

394 



CALL 

SPCCUT 


D42A 

02 

18 

0D 




D355 

D5 



395 



PUSH 

DE 


D42D 

C3 

7D 

Dl 

497 


JP ERR 

D356 

11 

FA 

D7 

396 



LD 

DE,JP$ 


D4 30 




498 

OR_SET 


D359 

CD 

1A 

D6 

397 



CALL 

SET$ 


D430 

01 

37 

D9 

499 


LD BC,OR$ 

D35C 

3E 

30 


398 



LD 

A, "0" 


D433 

ED 

43 

46 

500 


LD (LOG_WRK),BC 

D35E 

77 



399 



LD 

(HI ハ， A 


D436 

D9 






D35F 

23 



400 



INC 

»L 


D437 

C3 

9B 

D6 

501 


JP LOG 一 SET 

D360 

CD 

10 

D6 

401 



CALL 

I/TNL$ 


D4 3A 




502 

OUT_SET 


D363 

11 

3F 

D8 

402 



LD 

DE,JPNZ$ 


D4 3A 

01 

D0 

D7 

503 


LD BC,OUT$ 

D366 

CD 

1A 

D6 

403 



CALL 

SET$ 


D43D 

C3 

78 

D6 

504 


JP IO_SET 

D369 

D1 



404 



POP 

DE 


1)440 




505 

P_PASER 


D36A 

CD 

BF 

1)5 

405 



CALL 

COPY$ 


D440 

1A 



506 


LD A,(DE) 

D36D 

C3 

87 

D1 

406 



JP 

RETXASS 


D441 

FE 

55 

20 

507 


IF A="U" THEN JR PUSH_SE' 

D370 




407 

JMP_ 

_SET 




D444 

02 

18 

09 




D370 

CD 

A2 

D5 

408 



CALL 

SPCCUT 


D447 

FE 

4F 

20 

508 


IF A="0" THEN JR POP_SET 

D373 

CD 

A9 

D5 

409 



CALL 

CCHECK 


D44A 

02 

18 

IF 




D376 

38 

0E 


410 



JK 

C. JP INDEX 

1)4‘ID 

C3 

7D 

Dl 

509 


JP ERR 

D378 

D5 



411 



PUSH 

DE 


D450 




510 

PUSH_SET 

1)379 

11 

34 

D8 

412 



LD 

DE,JMP$ 


D450 

13 



511 


INC DE ；S 

D37C 

CD 

1A 

D6 

413 



CALL 

SETS 


D451 

13 



512 


INC DE ；H 

D37F 

D1 



414 



POP 

DE 


D452 




513 


; 

D380 

CD 

BF 

D5 

415 



CALL 

COPY$ 


D452 

CD 

A2 

D5 

514 


CALL SPCCUT 

D383 

C3 

87 

D1 

416 



JP 

RETXASS 


0455 

CD 

A9 

D5 

515 


CALL CCHECK 

D386 




417 

JP_INDEX 



D458 

01 

63 

D4 

516 


LD BC,PH_ST 2 

D386 

D5 



418 



PUSH 

DE 


D45B 

C5 



517 


PUSH BC 

0387 

11 

DB 

D7 

419 



LD 

DE,IND$ 


D45C 

1)2 

B7 

D5 

518 


JP NC,LDHL$ 


► microOdyssey にあった U さんの文章が格好ええなあ。全然面識のない人め文章を読む _ _ 

と，文章-を書いている人の姿が頭の中に浮かんできませんか。 U さんなんかは“メガネが マシン語カクテル in Z 80 ’s Bar 129 

きらりと光るニヒルなお父さん”という感じだなあ。やっぱり頭が薄い，というのはない 
だろうな（薄かったらごめんなさい）。 長谷川聖(28>香川県 




D45F 

Cl 



519 


POP 

BC 

D460 

CD 

KA 

1)5 

520 


CALL 

INDEX$ 

0463 




521 

PH„ST2 



D463 

11 

88 

D8 

522 


LD 

DB,PUSH$ 

D466 

CD 

1A 

D6 

523 


CALL 

SET$ 

D469 

C3 

87 

1)1 

524 


JP 

RETXASS 

D46C 




525 

POP_SET 



D46C 

D5 



526 


PUSH 

DE ；0 

D46D 

11 

9F 

D8 

527 


LD 

DE,POP$ 

D470 

CD 

1A 

D6 

528 


CALL 

SET$ 

1)4 7 3 

D1 



529 


POP 

DE 

D474 

13 



530 


INC 

DE : P 

0475 




531 




D475 

CD 

A2 

D5 

532 


CALL. 

SPCCUT 

D478 




533 


; 


D478 

01 

03 

OQ 

534 


LD 

BC, 3 

D47B 

CD 

15 

D6 

535 


CALL 

TRNS$ 

D47E 

11 

AC 

D8 

536 


LD 

DE,POP$2 

1)481 

CD 

1A 

D6 

537 


CALL 

SETS 

D484 

C3 

87 

Dl 

538 


JP 

RETXASS 

D487 




539 

R_PASER 



1)487 

11 

BF 

1)8 

540 


LD 

DE,RET$ 

D48A 

CD 

1 A 

D6 

541 


CALL 

SKT$ 

D48D 

C3 

87 

1)1 

542 


JP 

RETXASS 

U490 




543 

S_PASER 



D490 

1A 



544 


LD 

A,(DE) 

1)491 

FE 

55 

20 

545 


IF A= 

"U" THEN JR SUB_SET 

D494 

02 

18 

17 





D497 

Fli 

54 

20 

546 


IF A= 

"T" THEN JR ST_SET 

04 9 A 

02 

18 

61 





D4 9I) 

FE 

52 

20 

547 


IF A = 

"R" THEN JP SR_SET 

D4A0 

03 

C3 

68 





D4A3 

D5 







D4A4 

FE 

4C 

20 

548 


IF A = 

"L" THEN JP SL_SET 

D4A7 

03 

C3 

85 





D4AA 

D5 







D4AB 

C3 

7D 

Dl 

549 


JP 

ERR 

D4AE 




550 

SUB_SET 



D-1AK 

13 



551 


INC 

DE ;B 

D4AF 




552 


; 


D4AF 

CD 

A2 

D5 

553 


CALL 

SPCCUT 

IJ4B2 

D5 



554 


PUSH 

DE ；G 

D4B3 

13 



555 


INC 

DE ；R 

D4B4 

13 



556 


INC 

DE ；? 

D4B5 

13 



557 


INC 

DE ；, 

D4B6 

13 



558 


INC 

DE ；? 

D4B7 

CD 

A9 

D5 

559 


CALL 

CCHECK 

1)4 BA 

01 

CB 

D4 

560 


LD 

BC,SUB_ST 2 

D4»D 

C5 



561 


PUSH 

BC 

D4BE 

D2 

1)6 

D5 

562 


JP 

NC,LDH し 2$ 

0401 

Cl 



563 


POP 

BC 

D4C2 

CD 

KA 

D5 

564 


CALL 

INDEXS 

D4C5 

11 

5F 

D8 

565 


LD 

DE,LD$3 

D4C8 

CD 

1A 

D6 

566 


CALL 

SET$ 

DK'U 




567 

SUB_ST 2 



D4CB 

CD 

37 

D6 

568 


CALL 

TAB 11 

D4CE 

11 

85 

D7 

569 


LD 

DE,LDE2$ 

D4D1 

CD 

1A 

D6 

570 


CALL 

SET$ 

D4D4 

D1 



571 


POP 

DE 

D4D5 

D5 



572 


PUSH 

DE 

D4D6 

01 

03 

00 

573 


LD 

BC,3 

D4D9 

CD 

15 

D6 

574 


CALL 

TBNS$ 

D4DC 

11 

FC 

J)8 

575 


LD 

DE,SUB$ 

D4DF 

CD 

1A 

D6 

576 


CALL 

SET$ 


11 

47 

D8 

577 


IV 

DE,LD$ 

D4E5 

CD 

1A 

D6 

578 


CALL 

SETS 

D4E8 

D1 



579 


POP 

DE 

D4E9 

01 

03 

00 

580 


LD 

BC,3 

D4EC 

Cl) 

15 

D6 

581 


CALL 

TRNS$ 

1)4 KF 

11 

41) 

Dfl 

582 


LD 

DE,LD$2 

D4F2 

CD 

1A 

D6 

583 


CALL 

SET$ 

D4F5 

11 

53 

08 

584 


LD 

DE,CALL FLAG 

D4F8 

CD 

1A 

D6 

585 


CALL 

SET$ 

D4FB 

C3 

87 

Dl 

586 


JP 

RETXASS 

D4FE 




587 

ST_SET 



D4FE 

13 



588 


INC 

DE 

D4FF 

1A 



589 


LD 

A,(DE) 

1)500 

FE 

41 

20 

590 


IF A= 

"A" THEN JR START_SET 

D503 

02 

18 

4C 





D506 

CD 

A2 

D5 

591 


CALL 

SPCCUT 

D509 




592 


； 


1)509 

D5 



593 


PUSH 

DE ；Q 

D50A 

13 



594 


INC 

DE ；R 

D50B 

13 



595 


INC 

DE ；? 

D50C 

13 



596 


INC 

DE ;, 

D50D 

13 



597 


INC 

DE ；? 

D50E 

CD 

A9 

1)5 

598 


CALL 

CCHECK 

D5U 

30 

1C 


599 


JR 

NC.ST SET2 

0513 

CD 

EA 

D5 

600 


CALL 

INDEXS 

0516 

CD 

37 

1)6 

601 


CALL 

TAB 11 

13519 

11 

85 

D7 

602 


LD 

DE,LDE2$ 

D51C 

CD 

1A 

D6 

603 


CALL 

SETS 

D51F 

D1 



604 


POP 

DE 

0520 

01 

03 

00 

605 


LD 

BC, 3 

D523 

CD 

15 

D6 

606 


CALL 

TRNS$ 

D526 

11 

D3 

D8 

607 


LD 

DE,ST$ 

D529 

CD 

1A 

D6 

608 


CALL 

SETS 

D52C 

C3 

87 

Dl 

609 


JP 

RETXASS 

D52F 




610 

ST_SET2 



D52F 

11 

7D 

D7 

611 


LD 

DE,LH2$ 

0532 

CD 

1A 

1)6 

612 


CALL 

SKT$ 

D535 

01 

03 

00 

613 


1.1) 

BC,3 

D538 

D1 



614 


POP 

DE 

D539 

CD 

15 

D6 

615 


CALL 

TRNS$ 

D53C 

D5 



616 


PUSH 

DE 

D53D 

11 

F4 

D8 

617 


LD 

DE,ST2$ 


D540 CD 1A 1)6 
D543 D1 
D 54，1 13 
D545 CD BF D5 
D548 2B 
0549 11 
D54C CD 
D54F C3 
1)552 
D55213 
D55313 
D554 Cl) 

D557 FE 
0559 C8 
D55A D5 
D55B 1134 D8 
D55E CD 1A D6 
D561 D1 
D562 CD BF D5 
D565 C3 87 D1 
D568 
D56813 
D5691A 


41) DB 
1A D6 
87 JM 


A2 D5 
0D 


4C 20 
18 09 
4120 
18 09 
7D D1 


D56A FE 
D56D 02 
D570 FE 
1)573 02 
D576 C3 
D579 

D579 01IF D9 
D57C C3 FF D6 
D57F 

D57F 0129 D9 
D582 C3 FF D6 
1)585 
D58513 
D5861A 
D587 FE 4C 20 
D58A 0218 09 
D58D FE 4120 
D590 0218 09 


618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 IF 

643 JP 

644 SRL_SET 

645 LD 

646 JP 

647 SHA_SET 

648 LD 

649 JP 

650 Sb_SET 


SR_SET 


CALL 

SET$ 

POP 

DE 

INC 

DE 

CALL 

COPY$ 

DEC 

HL 

LD 

DE,LD$2 

CALL 

SKT$ 

JP 

RETXASS 

!T 


INC 

DE 

INC 

DE 

CALL 

SPCCUT 

CP 

SOD 

RET 

PUSH 


LD 

DE,JMP$ 

CALL 

SET$ 

POP 

DE 

CALL 

COPY$ 

JP 

RETXASS 

INC 

DE 

LD 

A ， U)E) 


；$0D 


；T 


651 

652 

653 


IF A="L" THEN JR SRL_SET 
IF A="A，. THEN JR SRA_SET 
ERR 

BC,SRL$ 

SHIFT_SET 

BC,SRA$ 

SHIFT_SET 

DE 

A,(DE) 

•• THEN JH SLL SET 


INC 

LD 

IF A 


IF A="A" THEN JR SLA_SET 


D593 

C3 

7D 

Dl 

655 


JP 

ERR 

D596 




656 

SLL_SET 



D596 

01 

1A 

1)9 

657 


LD 

JP 

BC,SLL$ 

D599 

C3 

FF 

D6 

658 


SHIFT_SET 

D59C 




659 

SLA_SET 



D59C 

01 

24 

D9 

660 


LD 

BC,SLA$ 

D59F 

C3 

FF 

D6 

661 


JP 

SHIFT_SET 

D5A2 




662 


； 


D5A2 




663 

SPCCUT 



D5A2 

13 



664 


INC 

DE 

D5A3 

1A 



665 


LD 

A,(DE) 

D5A4 

FE 

20 


666 


CP 

"•• 

D5A6 

28 

FA 


667 


JR 

Z,SPCCUT 

D5A8 

C9 



668 


RET 


D5A9 




669 

CCHECK 



D5A9 

D5 



670 


PUSH 

DE 

D5AA 




671 

CCHECK2 



D5AA 

1A 



672 


LD 

A,(DE) 

D5AB 

13 



673 


INC 

DE 

D5AC 

PE 

0D 


674 


CP 

JR 

$0D 

D5AE 

28 

05 


675 


Z.CCHECK3 

D5B0 

FE 

2C 


676 


CP 

" M 

D5B2 

20 

F6 


677 


JR 

NZ.CCHECK2 

D5B4 

37 



678 


SCF 


D5B5 




679 

CCHECK3 



D5B5 

Dl 



680 


POP 

DE 

D5B6 

C9 



681 


RET 


D5B7 




682 

LDHL$ 



D5B7 

D5 



683 


PUSH 

DE 

D5B8 

11 

76 

D7 

684 


LD 

DE,LH$ 

D5BB 

CD 

1A 

D6 

685 


CAl.L 

SETS 

D5BE 

Dl 



686 


POP 

DE 





687 

COPY$ 



D5BF 

1A 



688 


LD 

A,(DE) 

D5C0 

77 



689 


LD 

(HL),A 

D5C1 

13 



690 


INC 

DE 

D5C2 

23 



691 


INC 

HL 

D5C3 

FE 

0D 


692 


CP 

$0D 

D5C5 

C8 



693 


RKT 

Z 

D5C6 

FE 

20 


694 


CP 

"•» 

D508 

D5CA 

28 

FE 

06 

2C 


695 

696 


JR 

CP 

Z,COPY$2 

D5CC 

28 

02 


697 


JR 

Z!C0PYS2 

D50E 

18 

EF 


698 


JR 

COPY$ 

D5D0 




699 

COPY$2 



D5D0 

3E 

0D 


700 


LD 

A, $0D 

D5D2 

2B 



701 


DEC 

HL 

D5D3 

77 



702 


LD 

(HL),A 

D5D4 

23 



703 


INC 

HL 

D5D5 

C9 



704 


RET 


D5D6 




705 

LDHL2$ 



D5D6 

D5 



706 


PUSH 

OE 

D5D7 

11 

7D 

D7 

707 


LD 

DE,LH2$ 

D5DA 

CD 

1A 

D6 

708 


CALL 

SET$ 

D5I)D 

Dl 



709 


POP 

DE 

D5DE 

CD 

BF 

D5 

710 


CALL 

COPY$ 

1)5 El 

2B 



711 


DEC 

HL 

D5E2 

3E 

29 


712 


LD 

LD 

A,")" 

D5E4 

77 



713 


(HL)，A 

D5E5 

23 



714 


INC 

HL 

D5K6 

CD 


D6 

715 


CALL 

LTNL$ 

D5E9 

C9 



716 


RET 


D5EA 




717 

INDEXS 



D5EA 

D5 



718 


PUSH 

DE 

D5EB 

11 

DB 

D7 

719 


LD 

DE,IND$ 


130 Oh! X 1992. 9. 


► 8 月兮にあった microOdyssey の U 氏の文章には感動しました。 Oh ! X ( MZ ) が Oh ! X ( MZ ) 
であるための苦労，偉大な人々……。単なる雑誌としてではなく一編の小説のように，い 
ままでの Oh ! X ( MZ ) を読み返してしまいました。 原知久 (22) 大阪府 





D5KE 

CD 

1A 

1)6 

720 

CALL 

SETS 

D5F1 

D1 



721 

POP 

DE 

D5F2 




722 INDEX2 



D5F2 

1A 



723 

LD 

A,(DE) 

D5F3 

77 



724 

LD 

(H し〉， A 

D5F4 

13 



725 

INC 

DE 

D5F5 

23 



726 

INC 

HL 

D5F6 

FE 

2C 


727 

CP 

"," 

D5F8 

20 

F8 


728 

JR 

NZ,INDEX2 

D5FA 

2H 



729 

DEC 

HL 

D5FB 

D5 



730 

PUSH 

DE 

D5FC 

11 

B2 

D7 

731 

LD 

DE,IND$2 

D5FF 

CD 

1A 

D6 

732 

CALL 

SETS 

D602 

D1 



733 

POP 

DE 

D603 

01 

03 

00 

734 

LD 

BC, 3 

D606 

CD 

15 

D6 

735 

CAL し 

TRNS$ 

D609 

11 

EC 

D7 

736 

LD 

DE,IND$3 

D60C 

CD 

1A 

D6 

737 

CAIiL 

SETS 

D60F 

C9 



738 

RET 


0610 




739 LTN し! K 



【)610 

3E 

0D 


740 

LD 

A,$0D 

D612 

77 



741 

LI) 

(HL),A 

D613 

23 



742 

INC 

HL 

1)614 

C9 



743 

RET 


D615 




744 TRNS$ 



13615 

EB 



745 

EX 

DE,HL 

1)616 

ED 

B0 


746 

LDIR 


D618 

EB 



747 

EX 

DE.HL 

1)619 

C9 



748 

RET 


D61A 




749 SET$ 



D61A 

F5 



750 

PUSH 

AF 

D61B 




751 SET$2 



D61B 

1A 



752 

LD 

A, (DE) 

D61C 

77 



753 

LD 

(HL),A 

D61D 

FE 

0D 


754 

CP 

$0D 

D61F 

DC 

2 9 

D6 

755 

CALL 

C,SET$3 

D622 

13 



756 

INC 

DE 

D623 

23 



757 

INC 

HL 

D624 

B7 



758 

OR 

JH 

D625 

20 

F4 


759 

NZ,SET$2 

D627 

FI 



760 

POP 

AF 

D628 

C9 



761 

RET 


D629 




762 SET$3 



1)629 

B7 



763 

OR 

JR 

A 

D62A 

28 

09 


764 

Z,SET$5 

D62C 

C5 



765 

PUSH 

BC 

D62D 

47 



766 

LD 

B, A 

D62t 

ME 

20 


767 

LD 

C," M 

D630 




768 SET$4 



D630 

71 



7fi9 

LD 

(HL),C 

D631 

23 



770 

INC 

HL 

1)632 

10 

FC 


773 

DJNZ 

SET$4 

D634 

Cl 



772 

POP 

BC 

D635 




773 SET$5 



D635 

2B 



774 

DEC 

HL 

D636 

C9 



775 

RET 


D637 




776 TABU 



D637 

3E 

0C 


777 

LD 

JR 

A,12 

D639 

18 

EE 


778 

SET$3 

D63B 




779 CPAL 一 SET 


D63B 

C5 



780 

PUSH 

BC 

D63C 

13 



781 

INC 

DE ； Ao 

D63D 




782 

j 


D63D 

CD 

A2 

D5 

783 

CALL 

SPCCUT 

D640 

D5 



784 

PUSH 

DE ；G 

D641 

13 



785 

INC 

DE ；R 

0642 

13 



786 

INC 

DE ；? 

1)643 

13 



787 

INC 

DE 

D644 

13 



788 

INC 

DE ；? 

D645 

Cl) 

A9 

D5 

789 

CALL 

CCHECK 

D648 

01 

59 

D6 

790 

LD 

BC,CPAL ST2 

D64B 

C5 



791 

PUSH 

BC 

D64C 

1)2 

D6 

D5 

792 

JP 

NC,LDHL2$ 

D64F 

Cl 



793 

POP 

BC 

D650 

CD 

EA 

D5 

794 

CALL 

INDEX$ 

D653 

11 

5F 

D8 

795 

LI) 

DE,LD$3 

D656 

CD 

1A 

D6 

796 

CALL 

SET$ 

D659 




797 CPAL ST2 


D659 

CD 

37 

IJ6 

798 

CALL 

TAB11 

D65C 

U 

85 

D7 

799 

LD 

DE,I,DE2$ 

D65F 

CD 

1A 

D6 

800 

CALL 

SET$ 

D662 

1)1 



801 

POP 

DE 

D663 

01 

03 

00 

802 

LD 

BC,3 

D666 

Cl) 

15 

D6 

803 

CALL 

TRNS$ 

D669 

11 

FC 

1)8 

804 

LD 

DE,SUB$ 

D66C 

CD 

1A 

D6 

805 

CALL 

SET$ 

D66F 

Cl 



806 

POP 

BC 

D670 

50 

59 


807 

l,D 

DE, BC 

D672 

CD 

1A 

1)6 

808 

CALL 

SKT$ 

D675 

C3 

87 

D1 

809 

JP 

RETXASS 

D678 




810 10 SET 



D678 

13 



811 

INC 

DE 

D679 




812 

j 


D679 

CD 

A2 

D5 

813 

CALL 

SPCCUT 

D67C 

D5 



814 

PUSH 

DE 

D67D 

11 

76 

D7 

815 

LD 

DE,LH$ 

D680 

CD 

1A 

D6 

816 

CALL 

SET$ 

DB83 

D1 



817 

POP 

DE 

D684 

CD 

BF 

D5 

818 

CALL 

COPY$ 

0687 

2B 



819 

DEC 

HL 

DE 

D688 

D5 



820 

PUSH 

1)689 

11 

BD 

D7 

821 

LD 

DE,LDBO$T 

1)6 8C 

CD 

1A 

D6 

822 

CALL 

SETS 

D68F 

D1 



823 

POP 

DE 

D690 

CD 

BF 

D5 

824 

CALL 

COPY$ 

D693 

50 

59 


825 

LD 

Dli, BC 


D695 

CD 

1A 

D6 

826 


CALL 

SET$ 

1)698 

C3 

87 

1)1 

827 


JP 

RETXASS 

D69B 




828 

LO«_SET 



D69B 

13 



829 


INC 

DE 

D69C 




830 




D69C 

CD 

A2 

1)5 

831 


CALL 

SPCCUT 

D69F 

1)5 



832 


PUSH 

DE 

G 

D6A0 

13 



833 


INC 

DE 

R 

D6A1 

13 



834 


INC 

DE 


D6A2 

•13 



835 


INC 

DE 


D6A3 

13 



836 


INC 

DE 

9 

D6A4 

CD 

A9 

D5 

837 


CALL 

CCHECK 

D6A7 

01 

B8 

D6 

838 


I,D 

BC,LOG ST2 

D6AA 

C5 



839 


PUSH 

BC 

D6AB 

D2 

D6 

D5 

840 


JP 

NC,LDHL2$ 

D6AE 

Cl 



841 


POP 

BC 

1)6 A F 

CD 

EA 

D5 

842 


CALL 

INDEX$ 

D6B2 

11 

5F 

D8 

843 


LD 

I)E,LD$3 

D6D5 

CD 

1A 

D6 

844 


CALL 

SET$ 

D6B8 




845 

LOG_ST 2 



D6B8 

CD 

37 

D6 

846 


CALL 

TAB11 

D6BB 

11 

85 

1)7 

847 


LD 

DE,LDE2$ 

D6BE 

CD 

1A 

D6 

848 


CALL 

SET$ 

D6C1 

D1 



849 


POP 

DE 

D6C2 

D5 



850 


PUSH 

DE 

D6C3 

01 

03 

00 

851 


LD 

BC,3 

D6C6 

CD 

15 

U6 

852 


CALL 

TRNSS 

D6C9 

11 

8D 

D7 

853 


LD 

DE,J.,0G1$ 

D6CC 

CD 

1A 

D6 

854 


CALL 

SET$ 

D6CF 

K!) 

5B 

46 

855 


l.D 

DE,( し OG_WRK > 

D6D2 

D9 







D6D3 

CD 

1A 

D6 

856 


CALL 

SETS 

D6D6 

11 

99 

D7 

857 


LD 

DE,LOG2$ 

D6D9 

CD 

1A 

D6 

858 


CALL 

SETS 

D6DC 

ED 

5B 

46 

859 


LD 

DE,(LOG_WRK) 

D6DF 

D9 







D6E0 

CD 

1A 

D6 

860 


CALL 

SET$ 

D6E3 

11 

AD 

D7 

861 


LD 

DE,LOG3$ 

D6E6 

CD 

1A 

D6 

862 


CALL 

SET$ 

D6E9 

D1 



863 


POP 

DB 

D6EA 

01 

03 

00 

864 


LD 

BC，3 

D6ED 

CD 

15 

D6 

865 


CALL 

TRNS$ 

D6F0 

11 

4D 

D8 

866 


LD 

DE,LD$2 

D6F3 

CD 

1A 

D6 

867 


CALL 

SETS 

D6F6 

11 

53 

D8 

868 


LD 

DF..CALL FLAG 

D6F9 

CD 

1A 

D6 

869 


CALL 

SET$ 

D6FC 

C3 

87 

D1 

870 


JP 

RETXASS 

D6FF 




871 

SHIFT SET 


D6FF 

D5 



872 


PUSH 

DE 

0700 

11 

BF 

D7 

873 


LD 

DE,LDBC$ 

D703 

CD 

1A 

D6 

874 


CALL 

SET$ 

D706 

50 

59 


875 


LD 

DE.BC 

D708 

CD 

1A 

D6 

876 


CALL 

SF.T$ 

D70B 

CD 

37 

1)6 

877 


CALL 

TAB 11 

D70E 

D1 



878 


POP 

DE 

D70F 

CD 

A2 

D5 

879 


CALL 

SPCCUT 

D712 

D5 



880 


PUSH 

DB 

G 

D713 

13 



881 


INC 

DE 

DE 

R 

D714 

13 



882 


INC 

9 

D715 

13 



883 


INC 

DR 

, 

D716 

13 



884 


INC 

DE 

? 

D717 

CD 

A9 

D5 

885 


CALL 

CCHECK 

D71A 

Cl 

25 

D7 

886 


LD 

BC,SFT_ST 2 

D71D 

C5 



887 


PUSH 

BC 

D71E 

D2 

B7 

D5 

888 


JP 

NC,LDHL$ 

D721 

Cl 



889 


POP 

BC 

0722 

CD 

EA 

D5 

890 


CALL 

1NDEX$ 

D725 




891 

SFT_ST 2 



D725 

CD 

37 

D6 

892 


CALL 

TAB11 

D728 

11 

85 

D7 

893 


LD 

DE,LDE2$ 

D72B 

CD 

1A 

D6 

894 


CALL 

SETS 

D72E 

D1 



895 


POP 

I)E 

D72F 

D5 



896 


PUSH 

DE 

1)730 

01 

03 

00 

897 


LD 

BC,3 

13733 

CD 

15 

1)6 

898 


CALL 

TRNS$ 

1)736 

11 

C4 

D8 

899 


LD 

DE,SFT$ 

D739 

CD 

1A 

D6 

900 


CALL 

SET$ 

D73C 

11 

47 

D8 

901 


LD 

DE,LD$ 

D7 3F 

CD 

1A 

D6 

902 


CALL 

SET$ 

D742 

D1 



903 


POP 

DE 

D743 

01 

03 

00 

904 


LD 

BC, 3 

D746 

CD 

15 

D6 

905 


CALL 

TRNS$ 

D749 

11 

•ID 

D8 

906 


LD 

DE,LD$2 

D74C 

CD 

1A 

D6 

907 


CALL 

SET$ 

D74F 

C3 

87 

D1 

908 


JP 

RETXASS 





909 


； 






910 

CPAS 







911 


DB 

11 





912 

913 


DM 

DB 

"CALL" 

4 





914 


DM 

"Fl.AG_A" 





915 


DB 

$01) 





916 


DS 

1 





917 

CP し $ 







918 


DB 

11 





919 


DM 

"CALI/' 





920 


DB 

4 





921 


DM 

"FLAG_L" 





922 


DB 

$0D 





923 


DS 

1 





924 

DS$ 







925 


DM 

"DS" 





926 


DB 

6 





927 


DS 

1 





928 

DW$ 







929 


DM 

"DW" 


►景気が惡くなってきたから，と赏与を出し渋っておきながら，あいかわらず休 U 出勤を 
強いるいまの会社にメチャメチャ股が立っています。サマージャンボに賭けるしかないの 
か？ メモリがほしいよう。 安尾文教(24> 愛知県 
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930 


DB 

6 

931 


DS 

1 

932 

LH$ 



933 


DM 

"LD" 

934 


DB 

6 

935 


DM 

"HI,," 

936 


DS 

1 

937 

LH2$ 



938 


DM 

"LD" 

939 


DB 

6 

940 

941 


DM 

DS 

"HL,(" 

1 

942 

LDH2S 



943 


DM 

"LD" 

944 


DB 

6 

945 


DM 

'•DE,(" 

946 


DS 

1 

947 

LOGl$ 



948 


DM 

")" 

949 


DB 

$0D 

950 

951 


DB 

DM 

11 

"LD'* 

952 


UB 

6 

953 


DM 

"A.L" 

954 


DB 

$0D 

955 


DB 

11 

956 


DS 

1 

957 

LOG 2$ 



958 


DM 

"E" 

959 


DB 

SOD 

960 


DB 

11 

961 


DM 

"LD" 

962 


DB 

6 

963 


DM 

"し， A" 

964 


DB 

$0D 

965 


DB 

11 

966 


DM 

"LD" 

967 


DB 

6 

968 


DM 

"A，H" 

969 


DB 

$0D 

970 


DB 

11 

971 


DS 

1 

972 

LOG 3$ 



973 


DM 

"D" 

974 


DB 

$01) 

975 


DB 

11 

976 


DM 

"LD" 

977 


DB 

6 

978 


DM 

"H,A" 

979 


DB 

$0D 

980 


D» 

11 

981 


DM 

"LD" 

982 

983 


DU 

DM 

5 r . 

984 


DS 

1 

985 

LDBCST 



98« 


DB 

$01) 

987 


DB 

11 

988 

し DBC$ 



989 


DM 

"LD" 

990 


DB 

6 

991 


DM 

"BC," 

992 


DS 

1 

993 

IN$ 



994 


DB 

J 1 

995 


DM 

.’CALL，. 

996 


DB 

4 

997 


DM 

"IN" 

998 


DB 

$0D 

999 


DS 

1 

1000 

1001 

OUTS 

DB 

11 

1002 


DM 

"CALI." 

1003 


DB 

4 

1004 


DM 

"OUT" 

1005 


DB 

$01) 

1006 


DS 

1 

1007 

1008 

1ND$ 

DM 


1009 


DB 

6 

1010 


DM 

” DE • 

1011 


DS 

1 

1012 

1013 

IND$2 

DB 

$0D 

1014 


DB 

11 

1015 


DM 

"LD" 

1016 


DB 

6 

1017 


DM 

"hl, r 

1018 


DS 

1 

1019 

1020 

IND$3 

DM 

”" 

1021 


DB 

SOD 

1022 


DB 

11 

1023 


DM 

"ADD" 

1024 


DD 

5 

1025 


DM 

"Hh.DE" 

1026 


DB 

$0D 

1027 

1028 

JP$ 

DS 

1 

1029 


DM 

"LD" 

1030 


DB 

6 

1031 


DM 

"A,(FR)" 

1032 


DB 

$0D 

1033 


DB 

DM 

11 

1034 


"CP" 

1035 


DB 

6 


1036 


DM 

__$1" 

1037 

1038 

JP_IND$ 

DS 

1 

1039 


DM 

")" 

1040 


DB 

SOD 

1041 


DB 

11 

1042 


DM 

"SLA" 

1043 


DB 

"L" 

1044 


DM 

1045 


DB 

$0D 

1046 


DB 

i \ 

1047 


DM 

"RL" 

1048 


DB 

6 

1049 


DM 

"H" 

1050 


DB 

$00 

1051 


DB 

11 

1052 


DM 

'.ADD.. 

1053 


DB 

5 

1054 


DM 

"HI,, HE" 

1055 


DB 

$0D 

1056 


DB 

1 l 

1057 


DM 

” PUSH" 

1058 


DB 

4 

1059 


DM 

"HI/. 

1060 


f)B 

$0D 

1061 


DB 

11 

1062 


DM 

"RET" 

1063 


DB 

$01) 

1064 


DS 

1 

1065 

1066 

JMP$ 

1)M 

"JP" 

1067 


DB 

6 

1068 


DS 

1 

1069 

1070 

JPZ$ 

DB 

11 

1071 


DM 

"JP" 

1072 


DB 

6 

1073 


DM 

"Z," 

1074 


DS 

1 

1075 

1076 

JPNZ$ 

DB 

11 

1077 


DM 

..JP" 

1078 


DB 

6 

1079 


DM 

"NZ," 

1080 

1081 

I.D$ 

DS 

1 

1082 


DB 

11 

1083 


DM 

"LD" 

1084 


DB 


1085 


DM 

1086 


DS 

1 

1087 

1088 

LI) $2 

DM 

"),HL" 

1089 


DB 

$01) 

1090 


DS 

1 

1091 

CALL FLAG 


1092 


DB 

11 

1093 


DM 

"CALL" 

1«94 


DB 

4 

1095 


DM 

"FLAG” 

1096 


DB 

$01) 

1097 


DS 

1 

1098 

1099 

LU$3 

DB 

11 

1100 


DM 

"LD" 

1101 


DB 

6 

1102 


DM 

"E,(HL) M 

1103 


DB 

$01) 

1104 


DB 

11 

1105 


DM 

"INC" 

1106 


DB 

5 

1107 


DM 

"HL" 

1108 


DB 

$0D 

1109 


DB 

11 

1110 


DM 

"LD" 

1111 


DB 

6 

1112 


DM 

"D,(HL)" 

1113 


DB 

SOD 

m‘i 


DB 

11 

1115 


DM 

"EX" 

1 1 16 


DB 

6 

1117 


DM 

•'DE.HL" 

1 118 


DB 

$0D 

1 119 


DS 

1 

1 120 

PUSH$ 



1121 


DB 

11 

1122 


DM 

"PUSH" 

1123 


DB 

4 

1 124 


DM 

"HL" 

1125 


DB 

$0D 

1126 


DB 

11 

1127 


DM 

，.し D.' 

1128 


DB 

6 

1129 


DM 

"(GR4),SP_ 

1130 


DB 

$0D 

1131 


DS 

1 

1132 

1133 

POP$ 

DM 

"POP" 

1134 


DB 

5 

1135 


DM 

"HL*' 

i 136 


DB 

$0D 

1137 


DB 

11 

1 138 


DM 

"LD" 

1139 

1140 


DB 

DM 

5,,. 

1141 


DS 

1 


132 Oh! X 1992. 9. 


►「 MATIER 」， 面白そうですね。架しみ，架しみ。 


藤原常雅 (21) 神奈川県 


1143 


DM 

つ， HI， 

1144 


DB 

$0D 

1145 


DB 

11 

1146 


DM 

"LD” 

1147 

1 148 


DB 

DM 

6 

” （GR4)，S 

1149 

1150 


DB 

DS 

$01) 

1151 

1152 

RET$ 

DM 

"RET" 

1153 


DB 

$0D 

1154 

1155 

SFT$ 

DS 

1 

1156 


DM 

")" 

1157 


DB 

DB 

$00 

1158 


11 

1159 


DM 

"CALL 1 * 

1160 


DB 

4 

1161 


DM 

"SHIFT" 

1162 


DB 

SOD 

1163 


DS 

1 

1164 

ST$ 



1165 


DM 

")" 

1166 

1167 


DB 

DB 

$0D 

11 

1168 


DM 

"LD" 

1169 


DB 

6 

1170 


DM 

"(HL),E" 

1171 


DB 

$0D 

1172 


DB 

11 

3173 


DM 

"INC" 

1174 


DB 

5 

1175 


DM 

"HL" 

1176 


DB 

$0D 

1177 


DB 

11 

1178 


DM 

"LD" 

1179 


DB 

6 

1180 


DM 

"(HL),D" 

1181 


DB 

$0D 

1182 

1183 

ST2$ 

DS 

1 

] 184 


DM 

")" 

1185 


DB 

$0D 

1186 


DB 

11 

1187 


DM 

”LD” 

1188 
1189 


DB 

DM 

® ( „ 

1190 


DS 

1. 

1191 

SUB$ 



1192 


DM 

")" 

1193 


DB 

$0D 

1194 


DB 

n 

1195 


DM 

"EX" 

1196 


DB 

6 

1197 


DM 

"DE.HL," 

1198 


DB 

$0D 

1199 


DB 

11 

1200 


DM 

"OR" 

1201 


DB 

6 

1202 


DM 

"A" 

1203 


DB 

$0D 

1204 


DB 

11 

1205 


DM 

"SBC" 

1206 


DB 

5 

1207 


DM 

"HL.DE" 

1208 


DB 

$0D 

1209 

1210 

SLL$ 

DS 

1 

1211 


DM 

"SLL" 

1212 


DB 

$01) 

3213 


DS 

1 

1214 

1215 

SRL$ 

DM 

"SRL" 

1216 


DB 

$0D 

1217 


DS 

1 

1218 

1219 

SLA$ 

DM 

"SLA" 

1220 


DB 

$0D 

1221 

1222 

SRA$ 

DS 

1 

1223 


DM 

"SRA" 

1224 


DB 

$0D 

1225 

1226 

TIMES2$ 

DS 

1 

1227 


DM 

，.本 2.. 

1228 


DB 

$0D 

1229 

1230 

AND$ 

DS 

1 

1231 


DM 

"AND" 

1232 


DB 

5 

1233 

1234 

OR$ 

DS 

1 

1235 


DM 

"OR" 

1236 


DB 

6 

1237 

1238 

XOR$ 

DS 

1 

1239 


DM 

"XOR" 

1240 


DB 

5 

1241 

1242 


DS 

1 

1243 

1244 

EXKADR 

DS 

2 

1245 

1246 

TXTADR 

DS 

2 

1247 

WRKADR 




DF00 

DF00 

DFOO 00 00 
DF62 

DF02 00 00 
DF04 

DF04 00 00 
DF06 

DF06 00 00 
DF08 

L)F08 00 00 
DFOA 
DF0A 00 
DFCB 

DF0D 18 27 
DFOD 

I)F0D 18 36 
DF0F 

I)F0F 18 5C 
DF11 

DF1118 5F 
DF13 

f)Ft318 62 
DF15 

1)F1518 69 
DF17 

DF1718 74 

DF19 

DF19 

DF19 

I)F19 

DF19 C3 A2 DF 
DF1C 

DF1(； (：\\ 1C 
DF1E 
DF1E 
DF1E 
DFIE 
DF1E F5 
DF1F 70 
DF20 B5 
I)F2120 03 
DF23 3C 
I)F2418 07 
DF26 
DF 26 AF 
DF27 CB 04 
I)F29 IK 
DF2A IF 
DF2B IF 
DF2C IF 
I)f2D 

DF2D 32 0A I)F 
DF30 CB 0C 
DF32 FI 
DF33 C9 
DF34 
IJF34 OA 
DF35 5F 
I)F36 03 
DF37 OA 


1248 

DS 

2 



1249 

LOG WRK 




1250 

一 DS 

2 



125J 

ORG$ 




1252 

DM 

，， 

OHG 

$，， 

1253 

OYAKUSOKU 




1254 

I)B 

SOD,$0D 



1255 

DM 

"REG 

EQU 

$DF0O" 

1256 

I)B 

$0D 



1257 

DM 

"GRO 

EQU 

REG" 

1258 

DB 

$0D 



1259 

DM 

"GR1 

EQU 

REG+2" 

1260 

DB 

$0D 



1261 

DM 

"GR2 

EQU 

REG+4" 

1262 

DB 

$0D 



1263 

DM 

"GR3 

EQU 

REO+6" 

1264 

DB 

$0U 



1265 

DM 

"GR4 

EQU 

REG+8" 

1266 

DB 

$0D 



1267 

DM 

"FR 

EQU 

REG+10" 

1268 

DB 

$0D 



1269 

DM 

"OUT 

EQU 

REG+11" 

1270 

DB 

$0D 



1271 

DM 

"IN 

EQU 

REG+13" 

1272 

DB 

$0D 



1273 

DM 

"SLL 

EQU 

REG+15" 

1274 

DB 

$0D 



1275 

DM 

"SRI, 

EQU 

REG+17" 

1276 

DB 

$0D 



1277 

DM 

"SLA 

EQU 

REG+19" 

1278 

DB 

$01) 



1279 

DM 

"SRA 

HQU 

REG+21" 

1280 

DB 

$0D 



1281 

DM 

"SHIFT 

EQU 

REG+23 1 ， 

1282 

DB 

$0D 



1283 

DM 

"FLAG_A 

EQU 

REG+25.， 

1284 

1)B 

$0D 



1285 

DM 

"FLAG_L 

EQU 

REG+28" 

1286 

DB 

$0D 



1287 

DM 

_• FLAG 

HQU 

REG+30" 

1288 

1〕B 

$0D 



1289 

DB 

$01) 




1290 0YA2 

1291 KEYBUF 

1292 

1293 

1294 GR0 

1295 

1296 GR1 
1.29 7 

1298 GK2 

1299 

I 300 GR3 

1301 

1302 GR4 

1303 

1304 FR 

1305 

1306 OUT 

1307 

1308 IN 

1309 

1310 SLL 

1311 

1312 SRL 

1313 

1314 SLA 

1315 

1316 SRA 

1317 

1318 SHIFT 

1319 

1320 
1321 : 

1322 

1323 FLAG_A 

1324 

1325 FLAG_L 

1326 RR 

1327 

1328 ; FLAG 

1329 

1330 FLA(3 

1331 PUSH 

1332 LD 

1333 OR 

1334 JR 

1335 INC 

1336 JR 

1337 FLAG2 

1338 XOR 

1339 RLC 

1340 RRA, 

134 1 HRA 

1342 RRA 

1343 RRA 

1344 FLAG3 

1345 LD 

1346 RRC 

1347 POP 

13-lfi HET 

1349 OUT EXE 


ORG 


DS 


DS 


DS 


DS 


DS 

DS 


JR 


JR 


JR 


JH 


JR 


JR 


JR 


FLAG 


JP 


PHE+S0F00 

2 

2 

2 

2 . 

2 

1 

OUT_EXE 
IN_EXE 
SLL_EXE 
SRI,_EXE 
SLA_EXE 
SRA_EXE 
SHI.FT__F.XE 
CHECK input = 

FL_A 

H 

CHECK input = 


AF 

A,H 

L 

NZ.FLAG2 
A ; zero 

FLAG3 

A 

H 


plus 

minus 


00 

1.0 


1350 

1351 

1352 

1353 


LD 

LD 

INC 

LD 


(FR),A 

H ； POP HI 

AF 


A •ぐ BC) 
E, A 
BC 

A•(BC) 


►現在，群馬県にいます。この半年，横浜（鶴見〉，千葉，横浜（港北)，大阪，横浜，群 _ 

馬と1力月くらいごとに移り住んでいます。8月にはやっと落ち着くとは思いますが，明 マシン語カクテル in Z 80 ’s Bar 133 

日には どこへ 行くのかわからない，というサバイバルな毎日でした。やっぱり大企業って 
ヘン。 奥田龃圯 (22) 千槊県 



22 20 
CD 1A 
87 D1 
[U 3K 
D5 C3 
ED 52 
87 D1 
72 D7 


02 : 
D6 ： 
11 : 
24 : 
87 : 
D1 : 
D5 : 
CD : 


D3O0 1)5 11 FA D7 
D308 30 77 23 CD 
0310 D8 CD 1A D6 
0318 C3 87 D113 
D320 11 FA D7 C1J 
D328 D61138 D8 
1)330 CD BF D5 C3 
0338 A2 D5 1)511 
0340 D6 CD 10 D6 
D3481A D6 D1 CD 
0350 D1 13 CD A2 
D358 D7 CD 1A D6 


0280 1A D6 3E 
0288 23 3E 22 
D290 181)1) CD 
1)298 D7 CD 1A 
D2A0 2B 112E 
D2A8 87 D11A 
D2B0 02 D2 FK 
D2D8 FE 58 20 
D2C0 7D D111 
D2C8 C3 87 D1 
D2D0 46 D9 C3 
D2D8 C3 781)6 
D2E018 39 FK 
D2K8 I-E 50 20 
D2F0 28 03 C3 
D2P8 50 20 02 


92 A2 


D000 
D008 
D01O 
D018 
DO20 
D028 
DO 30 
0038 
0040 
1)048 
0050 
DO 5 8 
1)060 
0068 
0070 
D078 


D240 

0248 

D250 

1)258 

U260 

D268 

1)270 

0278 


SUM ： 75IF OB 94 A1 D6 53 4C 289U 


U20018 OA C3 
0208 D5 03 87 
1)210 20 0218 
D21818 09 C3 
0220 (：3 3H D6 
1)228 1)61A KE 
1)230 FK 53 20 
1)238 D1 CD A2 


SUM ： A9 E2 46 0*1351C 75 76 


: AD 
: DB 
: 7F 


: AC 
: 98 
: 8D 
: FA 
: 46 
: E4 
: FA 

6D40 


D100 
1)108 
1)110 
in 18 


；B = 0 

； A=Count 


;H し =W01iD_At)R 


EXE3 


EC 

62 

B4 

41) 

1)5 

6C 

AB 

62 

37 

67 

73 

94 

1A 

9K 

f>4 

B3 


SUM ： AB 02 D4 06 96 C2 AO 42 


S-OS 

BC=count 

DE=(GR?) 

HL=Shift 


: EX BC.HL 


1410 SLA_EXE 


DF77 

CB 

23 


Ull 


SLA 

RL 

RL 

DF79 

DF7B 

CB 

CH 

12 

12 


1.112 

1413 


DF7I) 

CB 

0A 


1114 


RRC 

DF7F 



1415 


RET 

DF80 




1416 

SUA_EXE 


DF80 

CB 

3A 


14 17 


SRL 

DF82 

CB 

IB 


1418 


RK 

DF8-1 

CB 

02 


1419 


RLC 

DF86 

CB 

02 


1420 


RLC 

DF88 

CB 

1A 


142 1 


RR 

DF8A 

CB 

1A 


1422 


RR 

DF8C 

C9 



14 23 


RET 

UF8I) 




1424 

SHIFT EXE 

DF8D 

7D 



1425 


LD 

DF8J- 

114 



1426 


OR 

1 屮 81-. 

28 

0C 


1427 


JR 

DF91 




1428 


; 

DF9I 

C5 



1429 


PUSH 

UF92 



1430 


PUSH 

DF93 

C1 



1431 


POP 

DF94 

E1 



1.132 


POP 

DF95 




1433 

SHIFT2 


DF95 

CD 

81 

IF 

14 34 


CALL 

DF98 

OH 



1435 


DEC 

DF99 

79 



1436 


LD 

DF9A 

BO 



1437 


OR 

1)F9B 

20 

F8 


1438 


JR 

DF9D 




1439 

SHIFT3 


DF9D 

EB 



1440 


EX 

DF9K 

CD 

IE 

DF 

1441 


CALL 

DFA1 

DFA2 

C9 



1442 

1443 

FL_A 

RKT 

DFA2 

01 

1C 

DF 

1444 


LD 

DFA5 

C5 



144 5 


PUSH 

DFAG 

30 

J3 


1446 


JR 

DFA8 

FA 

AD 

DF 

1447 


JP 

DFAB 

3F 



1448 


CCF 

DFAC 

C9 



1449 


RET 

DFAD 




1450 

FL MINUS 

DFAI) 

E5 



M 51 


PUSH 

DFAE 

11 

00 

80 

1452 


LD 

DFD1 

B7 



1453 


OR 

I)FB2 

HD 

52 


14 54 


SBC 

DFB4 

El 



1455 


POP 

DKB5 

C2 

B9 

DF 

1456 


JP 

DFB8 

C9 



1457 


RET 

DFB9 




1458 

FL_M.TN 2 


DFB9 

DFBA 

37 

C9 



1459 

M60 


SCF 

RET 

DFBB 




1461 

FL_PLUS 


DFBB 

F0 



1462 


RET 

DFBC 

3F 



1463 


CCF 

RKT 

DFBD 

C9 



1464 



OBJECT CODK END HFBD 


D,A 

A, (HL) 

#PRINT 
HL ；0 

HL ；CHR 

DE 

A,E 

D 

NZ,0liT_KXE2 



HL 

A,(HL) 

A 

NZ,IN EXE2 


SUM: 58ID D3 28 D1 C8 ED CF 2D17 


DE, HL 
FLAG 


BC.Fl.AG_L 

BC 

NC,FL 一 PLUS 
M,FL_MINUS 


；S = 


,C=1 


HL 

DE, $8000 
A 

HL.DE 

HL 

NZ.FL MIN2 

； S=1,5=1,HL=$8000 


； S=1 ,C=1 ,HLO$8O0G 
P ； S=0,C=0 
； S=1.C=0 


1400 

1401 

1402 SLL_EXE 

1403 

1404 

1405 

1406 SRI. EXE 

1407 — 

1408 

1409 


1363 

1364 

1365 IN_ 


1369 IN_KXR2 

1370 



E 

D 

D 

]) 


D 

E 

D 

D 

D 

D 


A,L 

Z,SHIFT3 ； count=0 


DF38 57 
DF39 
l)K39 7E 
DF3A CD F4 
!)F3D 23 
DF3E 23 
DF3F IB 
DF-10 7B 
DF41 B2 
l)F42 20 F5 
IJF44 C9 
DF4 5 

DF45 54 5D 
DF47 CD 1)3 
DF-1A 2B 
DF4B 
DF4B 23 
DF4C 7E 
DK4D B7 
DF4E 20 FB 




B7 

C8 


09 


U スト 5 


222473 11B 664424 1 

5473D05865CDD0FBCD79722A45C953RB 

83 7 520 FAA32FFFDF 
5 734706 1D57111EI 

4565CD1 F6424C31FEB1F45EEE2EE0O9A 

5472ooE 2 64 20 D9D3nE 22 oCI)CI)CDoocl) 

F44DiD0D0D80701R 

162C434CDC707O1E 

E26420D92()2O22DA5EDO612EAK2ED97K1 

CD4l3D424373D0DBCAlF7472D94442D9i 


FE])70I)6F}FB7(;AU 

1372D51ACDO022D6 

1B11BFCD230BFK37 

2FD731AD 

olcDlllc 

08127135 

21D77D1F 


B2C6C7477C855C157E6C089C 

3E38D5D510D1CD1ACD87FA23 
D611BFD5CDD613CDD8C31 177 

SCDM じ S は SS 扣 

s10DlCDlACD87FAlli 


52D08DC6C3A42E93B36OF1A52536674 1 

77D6 6 Kn5c3c313c3D 6 43D7024E4I)FED5 
F 11 OUBFD6031 8D21 AHDC 6 2Q1 8FK1 AA2 
23CDD5CD 1 A20O2C28D9S5A026313CD 
77 23l)5DlCD 4 E2ec3D8 3 BD6FE 2018 Dl 73 
2277A2D 6 D9FE4F03BFO19B 1 A4E027D 18 


28I)120O3C3AAI)2I-E4F20SO 

3 7103352 K003 
18420 CDDF520 


O3F1FE4420SC3AE;D4KE531FI64 
06 IE 50330 -9 
2DDF420C2DFC -8 

I 

H7B1K 903304 -D - 0 
338DK42QC4DC -6 

FECI)c3F5D2FK4A2o03o87I)4i71 

6533 9 2 EC 0330 - p 
FFOC2DF 42009 - 1 


8 F4E5E3958U444F 6 


I)A67A46AFC742725 

KC27B9D3 

B40D3O72 

CDFE206OC318C3FE 

HA1172CA 

1140DO5] 

13K12085 
D1FD521D 
D19UW1325 
7D07040D 


22O20343A2A9D5SD70O1AD14DO4102 

6O8DDD6853D618E0 

D21ECCDD80CD1DF2 

04 2 9 332 Fllof A63A0 
14OD11D5 10D1U515 

CDKE2032]) 6 1 3C511 1 ) 6 D5ECS 1 51 1 1 )lKK 

3AK1B31 57118 D.b7 9 
214091 DD3D1DCD80 

77C9FK 1)1 C313C2 I;A C[) I)6 D 6 47S]AC3 1 8 

3FD91 37l)D9D50 1CDD 6 1 Al51 103CDD 6 02 

3E421 8 C34 6 D5D5C 11 ACDCDD 6 0 1I) 8 1 A20 

ao 88 oo98A0A 8 BO» 8 (:0c 8 D0D 8 sE 8 F0F 8 
111111111111 t111 
ppppppn-pppppppvp 


3B0D1OFE 
FKFES1A 

4 3 a- 9 
11 K 6 

28232028 

00772001) 

FK1AFKKE 

8 1)5 F 
l 7 7 A 

28282KD 6 


1 Dn9BO3A5953 0 FCDI)A 28 02rJAE 8 D5lA2220 

1 D4 2 KDO 02 1 EO 0 FFliB7 2 agcnl 82 3F 8 FK 

A B0CB0F 31 FrolF0 7 0A 
4 50AEB02llfrtlu721 

A7EDncn])0EDK577c994KED9EK 5 E3B 0 r)DA 

1 KF5GlD9A(:0 1] 11 K2:1CD23440D1F3EFE1 

7 G9ID28B7932F7931 

8 2D4C81B7D121CD21 

6 cB7483A])d« 1 I)9CI )1 K44 12 F'IE 8 CI)42 1 3D9 

F52321EB4OD9420KBB2A95 18 CDD02A7742 

•• 0808080808080808 
M 8899a ABBCCnoKKFP. 
u 00 0 000.0 00 0 000000 
s DDDOUnnnDDDDOnDD 


A A ) A A _ 

DE),)>DEBCHLBC),,,IN 

<HL,<-srsB-A’AZAF cv HL.r “ば AsfNZ.EC DE 


03^U3O33B3E2O 
2CF420CDDK5 2 

080808080808 

223344556677 

uppppppn-ppvp 


" c * 
BCA.Bg 


BCHLBCHL 


12 
3939 
1-1 


139139-139513913971391399 


4 5 6789012 
35135135135135135136136136 


gMCB 巧 SKS : ばは sgh 兆 snAC?! 

-1 - 6 


3sslNOlgLD§JRKETsCALDlicINCsOHJB..ORSBCsLDss3sLDgRETpusLDgs3sADDl,DJNCXORssDECJRlSLARLl glRET 


134 Oh! X 1992. 9. 


► ついに， SX - WINDOW の開発キットが発売される模様ですね。広告によると9月発売 
予定となつていますね。ということは12月だな。 大久保明弘 (20) 岩手県 








20 52 45 47 OD 47 
20 20 20 20 20 45 
20 2 (-) 20 20 20 52 
2B 32 00 47 52 32 
20 20 20 45 51 f>5 
20 20 20 52 45 47 
01) 47 52 33 20 20 
20 45 5155 20 20 
20 52 45 47 ZB 36 
52 34 20 20 20 20 
5155 20 20 20 20 
45 47 2B 38 0D 46 
20 20 20 20 20 45 
20 20 20 20 20 52 
2B 3130 01) 4F 55 
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SUM ： 98 33l)t> 1)1) 4C DC E8 78 7282 


SUM: I'D 6F DD AA IF 3B OD AB 91)33 


1)500 FH 4120 02 
D5G8 D5 D513 13 
1)510 1)5 301C CD 
1)518 1)61185 D7 
0520 01 03 00 CD 
D528 D8 OD tA D6 
1)530 7D 1)7 CD IA 
0538 D1 CD 15 D6 
1)54 0 CD 1A D6 U1 
0548 2B 114CV D8 
D550 87 D11313 
1)558 OD C8 D511 
D560 1)6 Dl CD 1JF 
1)568131A I，E 4i; 
D570 FE 41 20 02 
1)578 U1 IF D9 


SUM: 63 88 K5 


4f; 52 93 FB 76 


SUM: 75 3D E6 98 BC FI BB DE B1F4 

D80O 46 52 29 0U 0B 43 50 06 : 72 
D808 24 31 00 29 OD OB 53 4C : 35 
0810 41 C5 40 0D 0B 52 4C 06 : 4E 
[)818 48 OU OB 4144 44 05 48 : 76 
D820 4C 2C 4 4 45 0f) 0B 50 55 : BE 
D828 53 <18 04 48 4C OD OB 52 : 91) 
1)830 45 54 01) 00 4A 50 06 00 : 46 
D838 OB 4A 50 06 5A 2C 00 OB : 3C 
D840 4A 50 06 4E 5A 2C 00 OB : 7F 
1)848 AC 44 06 28 00 29 2C 48 : 5B 
D850 4C CD 00 0B 43 41 4C 4C : 80 
D858 04 46 4C 41 47 OD 00 01J : 36 
D8B0 4C 44 06 45 2C 28 48 4C : C3 
D868 29 OD 0B 49 *»K 43 05 48 : 68 
D870 4C 0D OB iC 44 06 44 2C : 6A 
D878 28 48 4C 29 GO 0B 45 58 : 9A 

SUM: B134 E5 DC 13 97 A314 F706 

D88Q 06 4145 2C 48 4C OD 00 : 5C 
D888 OB 50 55 53 48 04 48 4C : E3 
0890 OD 0B 4C 44 06 28 47 52 : 6F 
1)898 34 29 2C 53 50 01) 00 50 : 89 
D8A0 4F 50 05 4fl 4C OD 0B 4C : 9C 
DBA8 44 06 28 00 29 2C 48 4C : 5B 
D8B0 01) OB 4C 44 06 28 47 52 : 6F 
D8B8 34 29 2C 53 50 01) 00 52 : 8B 
D8(；0 45 5<\ 01) 00 29 0f) CB 4 3 : 2A 
D8C8 414C 4C 04 53 48 49 46 : 07 
D8D0 54 OD 00 29 «D OB 4C 44 : 32 
D8D8 06 28 48 4C 29 2C 45 OD : 69 
DBk'O OB 49 4E 43 05 48 4C OD : 8D 
D8E8 OB 4C 4*1 06 28 48 4C 29 : 86 
D8K0 20 4 4 0D 00 29 01) 0B 4C : 0A 


SUM ： AB 1)9 54 -U' B4 24 FB Dl 


SUM ： CF F6 Cl B3 35 6C C7 59 A31E 


マシン語カクテル in Z 804 Bar 135 


SUM: IE 6016 92 21 B6 1)5 FI D202 


SUM ： 54 B5 93 89 30 50 CC 89 AB3C 


D8K8 44 06 28 00 29 0D 0U 


: F8 
1601 


SUM ： 8C 06IF B7 E2 29 C9 CB 

1)900 58 06 44 45 2C 48 4C 0D 
0908 OB -IF 52 0H 41 01) OB 53 
D910 4 2 4 3 05 4 8 4C 2 (： 44 4 5 
D918 0D 00 53 4(; 4C 0]) 00 53 
1)920 52 4 (； 0D 00 53 4C 41 0D 
1)928 00 53 52 4101) 00 2A 32 
1)930 01) 00 414E 44 05 00 4F 
D938 52 06 00 58 4F 52 05 00 
1)940 00 00 00 00 00 00 00 00 
0948 20 20 20 20 20 20 20 20 
1)950 4F 52 47 20 20 20 20 20 
D958 2-1OD 0D 52 45 47 20 20 
1)960 20 20 20 45 5155 20 20 
1)968 20 20 20 24 44 46 30 30 
0970 OD 47 52 30 20 20 20 20 
1)978 20 45 5155 20 20 20 20 


►最近になって 2 進数の加算，減-辞ができるようになりました。実は，1の補数とか2の 
補数とか使うのですね。 パソコン 歴4年を経てこんなことをいっているのは，なんだか恥 
ずかしい。 吉田勝昌（19> 群馬県 
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昔むかし，その昔。東京オリンピックに 
合わせて，1964年に「夢の超特急」として 
開業した新幹線。いうまでもなく，いまだ 
に日本では最も速い旅客列車だ。安定して 
あれだけの本数を運転している点まで考慮 
すれば，スピードはともかく，世界的に見 
て も最も優れた列車と いっていい かもしれ 
ない0 

「夢の超特急」と呼ばれていた背景には， 
デザインのよさもあったはず。とくに“顔” 
の部分のデザインは抜群だ。つい最近まで 
ほかの列車のデザインがあまりにもダサす 
ぎたこともあって，30年たったいまでも「夢 
の超特急」の称号はおかしくない。そうい 
えば，開業の少しあとにオンエアされた「ウ 
ルトラ マン」 とは奇妙なことに，“顔”のデ 
ザインカ M 以ているなあ（と思うのだが賛否 
両論あるかもしれない）。 

さて，新幹線が誕生して20数年。東海道 
新幹線に山陽新幹線部分が延長されて，さ 
らに東北新幹線，上越新幹線の2線が加わ 
ってきた力 5 '，ハード的にはほぼオリジナル 
を踏襲してきた0しかし，ウルトラマンで 
はない力 5 ’，新幹線にもこのところやたらと 
仲間が増えてきている。東海道スーパー新 
幹線の「のぞみ」に続いて，7月1日には 
山形新幹線「つばさ」がデビューした。た 
だ，この弟分である山形新幹線，ちょっと 
これまでの兄貴分の新幹線たちとは様子が 
違っている。 

いざ開業してみると，故障やら整備不良 
とかで，7月の間，連日のように問題を起 
こしていた。新幹線は開業以来一度も人身 
事故を起こしていないのがご自慢だが，今 
回初めて発生してしまうのではないか，と 
マスコミは固唾を飲んで恃機する始末（実 
話だよ）。 

なにしろ，「ミニ新幹線」である。これ 
は，従来のいわゆるフル規格新幹線とは違 
って，一般列車用の軌道を広げて新幹線が 
走れるようにした一種の簡略版。 コスト も 
フル規格新幹線の10分の1ですむ経済的な 
列車だ。 

しかも，東京一福島間は東北新幹線に引 
っ張っていってもらい，山形一福島間の自 
走区間は「スーパーひたち」などと同じ130 
キロしか出さない。まあ，名前だけが「新 
幹線」の妥協の産物だから，この程度のギ 
ミックはしかたがない。 

そのせいか，最近巷では「だから ミニ 新 


幹線なんか . 」という論調ができつつあ 

る。 

しかし，これは非常にマズい。というの 
も，今後作られる予定のフル規格新幹線は， 
北陸新幹線を除き，すべて半永久的に採算 
割れするということが目に見えているから 
である。 

たとえば，今後予定されている整備新幹 
線3線（北陸，東北延長分，九州）は，直 
接予算だけで1兆3500億円という工事費で 
ある。つまり，フル規格新幹線の建設費用 
は，距離にもよるが，1路線1兆円と見て 
いい。さらにランニングコストもひどい。 

数年前の段階で東北，上越とも，それぞれ 
年間1000億円の超赤字だったといわれてい 
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新幹線とコンビュ-夕 



TAKAHARA HIDEKI 高原秀己 


る。年々乗客は増えているものの，事態が 
好転しているとは考えづらい。よしんば両 
線が黒字化しても，今後作る路線はなお地 
方を走る。 

フル規格だとまず採算割れは確実で， 
年々貴重な税金や運賃をドブに捨てていく 
ようなものなのだ。 

ただし，一部には「やっぱり本物の新幹 
線がいい」という人もいるだろう。特に， 
新幹線が走る予定の地元の人にとっては， 
フル規格新幹線が走っている場所の人に対 
して負けたような気になるようだし，そう 
いう地元民の意識を悪用する建設業者とか 
代議士の世論操作もある。 

だから，地元の人も「もともと赤字路線 


の地方なんだから，ミニでもマイクロでも 
新幹線が走ってくれるだけで万々歳」とい 
うくらいの意識はもつべきだろうし，少な 
くとも都市部の一般市民は税金や運賃の用 
途まで考えた認識はもつべきだろう。 

といっても，べつに僕は「地方には速い 
交通機関はいらない」とはカヶラも思って 
いない。航空機をバンバン飛ばして，超豪 
華高速バスで補完すればいいだけのこと。 

それだけで問題は簡単に解決する。 

もはや運賃格差もないし，「列車のほうが 
いい j というのは，単なる迷信にすぎない。 
「新幹線の駅が地元にできようものなら，も 
う一気にそこは国際文化都市」というのも 
妄想以外の何物でもない。 

氺** 

と，ここまで書いてきて，今回も最後に 
申し訳程度にコンピュータの話が入る（す 
まない）。 

交通機関以上にコンピュータは速いほう 
がいい。たまに「あまりに速すぎると問題 
がありそうだ」と勘違いしている人もいる 
が，ことコンピュータにかぎっては，絶対 
に「速は遅を兼ねる」はずなのである（注： 
たまに兼ねないこともある。だから某社の 
日本標準パソコンは，複数の CPU を搭載す 
る）。 

すこ とえば，ソフトを作ったりノウハウで 
性能をカバーできないような人の場合，あ 
まりに性能が高いコンピュータだとまずい 
のではないか？という議論がある。しか 
し，これは誤りだ。ソフトを自作できない 
人は，動作効率の悪いプログラムしか書け 
ないし，運用ノウハウで劣る人がまっとう 
にそのマシンやソフトを使いこなすために 
は，もたもたした作業を吸収してくれるほ 
ど CPU が速くなくては，当然問題が出てく 
る。 

同じことは，メモリ容量にもいえる。広 
いメモリ容量があれば，下手くそなプログ 
ラムでもゆうゆうとオンメモリで il 叉容でき 
る。 

速い CPU に広いメモリ。 

「夢の超特急」と同様に「夢のコンピュー 
夕」の理想なのであろう。 

ちなみに，新幹線が開通した頃のコンピ 
ュータは，8ビットパソコンよりも劣る機 
能だったそうだ。コンピュータが発展しす 
ぎているのか，列車の進歩が止まっている 
のか。 
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コナミ S03 (3264) 5678 


1 グラディゥス II 

X680D0 5"2H □版2枚組 

9,800円(税別） q 名 

X 68000 といえば「グラディウス」，というの 
はもはや昔のことで，いまは X 68000といえば 
「クラディウス II 」だ！この超人気伝統的横 
スクロールシュー ティング ゲームを 3名の方 
に。 


2 ,ヘビーノヴァ 


ブラザーエ業0052 (824) 2493 

X68000 用 3_5/5〃2H □版 


5,800円(税別） 


5名 


流行の格闘ゲームでは，筋肉 
モリモリのお兄ちゃん（お姉 
ちゃんもいるけど）が出てく 
るものが多いみたい。しかし， 
この「ヘビーノヴァ」はロボ 
ットどうしで争う，対戦型格 
闘 ゲー 厶なのである。 



プ德卜 


セミック 003(3582)6821 



電子手帳用 

フラッピーカード 


日行表示専用 6 ,000円(税込） 


2名 

「フラッピー」，苜からのパソ 
コンゲームファンには忘れら 
れないアクションパズルゲー 
厶だ。その「フラッピー」が 
電子手帳用のカードになった。 
ただし，8行表示のシャープ 
電子システム手帳専用なので 
ご注意を。 


プレゼントの応募方法 11111111111111111111111111 

とじ込みのアンケートはがきの該当項目をすベてご記入のうえ, 
希望するプレゼント番号をはがき右下のスペースにひとつ言己人 
してお申し込みください。締め切りは1992年9月18日の到着分 
までとします。当選者の発表は1992年丨丨月号で行います。 



^ 上昇気流 vol .3 


またまた「上昇気流」 

が余ってしまったので 
放出します。……なん 
てことを書くと発行人 
の高橋哲史くんに怒ら 
れてしまろかな。では， 
もう一度最初から。本 
誌スタッフである高橋 
哲史氏のご厚意により， 
ミニコミ誌「上昇気流 
vol .3」 を特別に10名 
の方にお分けします。 


Automatic 
Thursday 



4 テレホンカード各種 


4名 

各方面からいただいたテレホ 
ンカードを丨枚ずつ各1名に 
差し上げます。どれが誰に送 
られるかはこちらで適当に選 
ばせていただぎますので，ご 
了承のほどを。 


7月号プレゼント当選者 


D レミングス（埼玉県）川井健司鈴木宗太郎（大阪府)石垣 
直樹0 ノア（青森県)古川圭一（千葉県)濱田研一（神奈川 
県)花上康典 El XIN/X0UT II (福岡県)和田岳雄 B1 ウイザー 
ドリイ幻想曲（愛知県)近藤匡紀（奈良県）中西厚 B Inside X 
68000 (神奈川県)八木明（香川県）黒川孝造 （敬称略） 

以上の方々が当選しました。おめでとうございます。商品は順次 
発送いたしますが，入荷状況などによリ遅れる場合もあります。 
また，雑誌公正競争規約の定めにより，当選された方はこの号の 
他の懸賞には当選できない場合がありますのでご了承ください。 
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第 B 晒知能機械概論——お茶目な計算機たち 


近未来型ワープロ序説 


ープロでは限定を受けてしまいます。もち 
ろん，機能的にはワープロでも実現可能で 
はあります力 ? ，やはり，いまいち書き手の 
感情が伝わりにくいという面は否定できな 
いでしょう。 

そもそも，手書きだと重点を置きたい部 
分には自然と力がこもるので，何もしなく 
てもそれなりの情報（ここが重要なのだ） 
が読み手に伝わるというものです。こうい 
う，どちらかといえばお行儀の悪いといえ 
るような部分こそが重要な付加的情報なの 
だと，僕はいいたいのです。 

ここでは，いま述べたような印字の表現 
力については横に置いておいて，少し違っ 
た角度からこのようなことについて見てみ 
ましよう。「メモ書きシート」とでもいいま 
しよう力％印刷はされないけれども，自分 
にとってあとで参考となる情報を付け加え 
る機能のことをいいます。 

たとえば，文章を書いていて，この部分 
はあとでもう1回推敲が必要だと思ったら, 
その部分を赤いペンでまるく囲っておき， 
「要推敲」とか書いておきます。あるいは， 
自分が気に入った表現があったなら，青色 
で波線をラフにそのところに引いておき， 
「こりや，いい表現！」などと書きます。 

このように，出来上がりの文章をよくす 
るためでなく，自分のために付加的な情報 

図1メモ書きシート例 




僕は，ふだんワープロは Macintosh 用の 
「 MacWritellj というのを使っています。 
特にこれが格段にいいという理由があるわ 
けではないのですが，ほかのいくつかのワ 
ープロに比べて，このソフトを作った人の 
センスのよさが全般に感じられるので，一 
応信頼して使っているのです。 

使っている時間が長いということもあっ 
て，細々したことも含めて，いろいろとも 
っとこうあってほしいという望みがどんど 
ん出てきます。まずここで，そのような要 
望願望の山の中から3つほど，どちらかと 
いえば細かい話に属すること について 書い 
てみましよう。もし，もうどこかのワープ 
口で実現されているようでしたら教えてく 
ださい。 

L メモ書き シー ト 1 

紙に手書きした場合と比べて，ワープロ 
印字はどうしてもお行儀がよくなってしま 
うので，書き手の生の感情というものが伝 
わりにく くなります。たとえば，大事なと 
ころをまるく囲ったり，赤線を引いたり， 
あるいは補足を書き込んだり，少し字を大 
き〈書いたりするような自然な表現が，ワ 


をお絵描きのように自由なフォーマットで 
残してお〈機能です。 

イメージとしては，文書の紙の上に透明 
なシートがびったり くっつい ており，その 
上に色付きのサインペンで自由に絵や字を 
書けるといった感じ，あるいは，文書の上 
に自由に付箋（ボストイット）が貼れると 
いった感じでしょう。 

/タイミング情報利用型 FEP / 

“かな漢字変換をどのようにすればベスト 
なのか？”という問題は，日本語ワープロ 
に課された大きな宿題です。これまでいろ 
いろな変換法が開発されてきました。が， 
漢字の選択にはユーザーの主観や嗜好がど 
うしても入る，つまり100%正解というのは 
ありえない問題ですので，これが絶対とい 
う方法は生まれないのでしょう。 

ここでは，変換キーを押すという ユーザ 
一の負担を減らすことを考えたときに，重 
要と考えられる ひとつの 技法に ついて 述べ 
たいと思います。例として，「お前歯1本が 
痛い」という少し変な文章を考えてみます。 
もし，「おまえ+変換キー十はいっぽんが+ 
変換キー+いたい」と入力したならば，た 
ぶんどんな フロントエンドプロセッサ 
( FEP ) でも，思いどおり漢字が出るまでに 
そう余計なキー入力を必要としないでしょ 

5〇 

しかし，いちいち変換キーというのも余 
分といえば余分な負担です。「おまえはいっ 
ぽんがいたい」と入力しても，きちんと変 
換してほしいという要望が当然あります。 
しかし，多くの FEP の場合，「お前は1本が 
痛い」となってしまうでしよう。こちらの 
ほうが構文的にはふつうですから。 

ここで， ユーザーがキーを 押す間隔タイ 
ミンダに関する情報を使うのです。要する 
に， ユーザーが 文章を入力するとき， キー 
を打つタイミングは構文，あるいは意味の 
切れ目に対応しているのではと期待するわ 
けです。 

この例では，キーを打つ間隔が長くなる 
部分が，「おまえは^いっぽん」ではなく「お 
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まえ^はいっぽん j のほうにあるのではな 
いかと予想されるのです。この情報を使う 
ことによって，このような漢字変換もうま 
くいくようにさせようという話です。ここ 
で重要なのは，ューザーに意識させてキー 
を押す間隔を調整させるのではなく，ごく 
自然に出現するタイミング情報を汲み上げ 
て，漢字変換の際のデータのひとつに使お 
うという点です。 

もちろん，このタイミング情報は万能で 
はありません。 いつも 意味の切れ目に マツ 
チするタイミングになるとは限りませんが， 
変換の候補順を決める有力な情報になりう 
るのではないかということです。 

もし，「おまえはいっぽんがいたい」とい 
う字づらだけから，正解の漢字を選び出そ 
うとするには，「1本」や「痛い」に関する 
なんらかの意味的情報が必要になるでしょ 
うから，それをまともにやるのは，たいへ 
んすぎるのではないかと思われるのです。 

L マク□操作自動設定 / 

ヮープロを操作しているとき，基本的な 
キー 操作の繰り返しというものは意外と出 
てくるものです。しかも，わざわざあらた 
まって定義するほどいつも出てくるという 
ものでもないような性格のものの繰り返し 
です。たとえば，印字出力を整えるために， 
タブを行頭に挿入し， カーソルを 右に3語 
分移動して，……といった具合です。 

このような一連のキー入力を2, 3回繰 
り返した場合，規則性を機械が見つけて， 
どこまでこの処理を繰り返すのかを確認し 
たあと，自動的にやってほしいのです。 

本当は，もっと複雑な規則，た！：えば数 
字で始まる行はある処理をし，文字で始ま 
る行は別の処理をして，のように，条件に 
応じた判断も自分で認識して，その先を実 
行するようになってほしいのです。 

この機能を実現するには，かなり高度な 
知的推論機構が必要となると思われます。 
現在すぐにできることは，最近行った操作 
の履歴がメニューとして出てきて，好きな 
部分をワンタツチでマクロ化することくら 


い。これで，まあ，よしとしましようか。 

画 E 年後〜10年後 

ここまでに述べた3 つの 話より，もっと 
ワープロの 基本的なポリ シーに 関わる話を 
以下に4つだけ述べてみます a 本人は真面 
目なのですが，半分冗談に思える話もある 
かもしれません。 

/アクティブテータペース型ワーフ □/ 

ワープロが 動いているときに， FEP だけ 
でなく各種の データベースがフル 稼働して 
いて，文章作成を支援してくれるような総 
合的な環境が実現すると，それには思わぬ 
ご利益があるのではないでしようか？ {> 
はや， ワープロは 単なる文字列作成の ツー 
ルから大きく飛躍して思考 ツールと なるの 
です。 

ワープロで文章を入力していると，「そ 
れ！入力」として，各種のデータベースが 
探索され，各ウィンドウにその結果がリア 
ルタイムに表示される t いうことなのです。 
辞書，類義語辞典だけでなく，表現データ 
ベース，人名データベースなど多種多様で 
す。 

重要なのは，データベースの探索だけで 
なく，登録も半自動的に行われるというこ 
とです。ですから，少し気に入った表現が 
あれば，その フレーズが どの文書で使われ 
ているという情報付きで，ワンタッチで格 
納されるというわけです。 

実は，この環境は我々の頭の中でいつも 
起こっていることそのものともいえます。 
ある言葉を意識した瞬間に連想が広がりま 
す。これは， データベースの 並列探索にほ 
かならないわけです。これを計算機の画面 
上で行えば，というのです。 

僕自身，このような機能が実現された環 
境がどこまで パワ フルなの 力％ まだはっき 
りとしたイメージをもってはいません。し 
かし，いままでのワープロを遙かに超越す 
るような，想像を絶する知的道具になるの 
ではないかと期待します。 


この ワープロで 大事なのは， パーソナル 
なデータベースとの有機的結合です。単に 
既成の辞書類が絶えず探索されているとい 
うのではなく，自分自身にとって意味のあ 
る情報をほかの情報！：リンクをはかりなが 
ら記憶させて随時呼び出すというところ力 5 
決め手なのです。 

し ヴルーフワーフロ ] 

アップル — ネ クス トの スティーブ.ジヨ 
ブスのいう 「インターハ。ーソ ナル コンピュ 
—ティング」という概念を実現するひとつ 
の有力な道具として，僕は 「グループワー 
プロ」というものを考えています。これは， 
複数の人のあいだであるテーマに ついて ネ 
ット ワーク 上で議論し，その結果に基づい 
てひとつの文書をまとめるまでをサポート 
するというものです。 

ネット ワー ク上で議論するための シス テ 
ムとして，電子掲示板，あるいはニュース 
システム というものがすでに存在します。 
これは，単に相手の記事を引用しながら■， 
自分の記事を投稿し，それを皆で読むとい 
うものです。この システムをベースと し， 
さらに合意が！：れた部分を少しずつ文書と 
して作り上げていくという機能をもたせて 
拡張したものである， t いったら理解して 
いただけるでしようか。 

ローカルなニュースグループを 僕自身も 
使っているのですが，どうも記事が投稿さ 
れっぱなしで，ただ溜まっていくといった 
傾向が強いのです。そうではなく，せっか 
くの議論ですから，なんらかの形でまとま 
った文書になってほしいと思うのです。そ 
こで，そのような方針で新たに グループ ワ 
ープロと いう概念をもつ システムを考えよ 
うというのです。 

このシステムでは，作り上げていく文書 
の構造をある程度作るという作業がまず必 
要になります。その後は個別な論点を設定 
し，話し合い，結論をまとめてはその結果 
を文書構造の適当な位置に挿入するという 
操作をすることになります。 

文書は，表面的には議論の結果の整理さ 
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近未麵ワープロ序説 


れたまとめとして見えますが，該当する議 
論の部分にもリンクが貼られており，あと 
からなぜこういう結果に落ち着いたのかを 
追うこともできるようになっています。 

/自然言語を許さないワーフロ/ 

ワープロで入力した文書というものには， 
きれいにプリントアウトして他人に伝える 
ための情報とぃう側面もあれば，自分自身 
の表現したものを記録した情報という側面 
もあります。現在のところ，ワープロの一 
般的な利用のされ方を見てみると，前者の 
ほうの色合いのほうが濃いように思われま 
す。しかし，これからワープロがもっと深 
い知的情報処理を行うょうになった場合に 
重要となるのは，後者のほうでしょう。 

つまり，きれいにプリントアウトするこ 
とよりも，データとしてとっておいて，そ 
れをいろいろな方法であとあとに有効利用 
するほうが重要になってくるのではないか 
ということです。 

そこで問題になるのが，見せる文書とし 
ての側面と処理されるデータとしての側面 
とのギャップです。文書として書かれた自 
然言語を，機械がその意味を完全に把握で 
きるのならば問題はないといえましょう。 

自動的に処理可能なデータに変換すればよ 
いからです。 

しかし，それを完全に行うのは本質的に 
無理な注文かもしれません。も！：も t , あ 


いまいな文章だって人間は書いてしまうの 
ですから。 

そこで，あえてここでは，僕は従来とは 
逆のアプローチをとります（案外短気なの 
で)。それは，機械が人間の言葉を理解する 
日を侍つのではなく，我々がデータ形式に 
合った方法でワープロに情報を入力するの 
です。そして，文書化は機械に自動的にや 
らせようというアプローチです。 

このように，人が表現したいことを一定 
のルールに従って入力し，機械が用途に合 
わせて書式や文体などを考慮して出力する 
という方法の利点は次のようなことです。 

1 ) 日本語には特に起こりやすいあいまい 
な表現がなくなる。また，文章の意味的な 
間違いもリアルタイムにチェックできる。 

2) 機械力 f 意味を完全に把握するので自由 
に処理ができる。たとえば，リアルタイム 
に各国語の文章が作成できる。 

3) 書かれた情報のデータベース化が容易 
で，有効利用できる。 

し ステータスワー フロ / 

ワープロを使うことによって，それ以前 
よりもっといい文章を書けるようになり， 
また（こっちのほうが重要なのですが)，も 
っといいアイデアが生まれるようになるこ 
とが理想なのですが，実際にはそのように 
なっていない場合が多いような気がします。 
特に（ワープロに不慣れなために，ある 


図2自然言語入力を許さないワープロ 



いは機能不足で)，文章の編集がままならな 
い状態の人においてよ〈見られるのですが, 
どう {> 文章が荒っぽい.まま残りがちな気が 
します（おっと一，人のことはいえん力*)。 

知的情報処理が実現された将来において, 
ワープロに望むのは，よりよい文章を作る 
能力を養成する機能です。ひと言でいえば, 
悪文が書けないようなワープロというもの 
を望みたいのです。 

ワープロの機能がもっと進んでくると， 
ワープロにもユーザーを選択する権利が発 
生するかもしれません（なんじゃこりゃ， 
ちよっ t 苦しいかな？>。あまりにも目に余 
る文を入力しすぎたり，せっかく用意され 
た機能を使わないでいると，しまいに「あ 
なたはこのワープロを使用する レベルに達 
していません。購入された店で払い戻しを 
受けてください」と画面に出て，もう動か 
な〈なるというものです。 

このような機能は何を意味するのでしょ 
うか？ 要するに，これは新たなステータ 
スの誕生を意味するのです。「僕は X ワープ 
口を使用しています」と公衆の面前で述べ 
ると，「ウォー！」というどよめきがわき起 
こるのです。 

知能情報化社会においては，知的道具を 
駆使して素晴らしい文章を作る能力が，従 
来の古めかしい ライセンスやステータスを 
遙かに超える評価を受けるようになるので 
す。 


筆者より 

今回はいろいろ考えている近未来ワープ 
口像の断片のみを害きました。そのうち 
まとまった形になればいいと思っていま 
す。皆さんも，ありきたりでなく，過激 
で革新的なワープロを無黄任でもいいか 
ら思いついたら，アンケートハガキにで 
も耆いて編集部まで送ってください。紹 
介します。また，万一興味をもたれた研 
究者の方などがいらっしゃったのなら， 
junet: ari@debris.elcom.nitech.ac.jp までご 
連絡ください。 
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x _。 zmu _ 恋をしようよ Yeah! Yeah! r™ 


X 68000 • Z - MUSIC 用 ゆめいっぱい 


Tadokono Hinoyuki 田所広行 


今月は，最近 LIVE in では常連となりつつある LIN □日 ERG の曲と，あのちびまる 
子ちやんのオープニングソングをお届けします。2曲とも XB 8000 • Z - MUSIC 用で 
す。さあ，張り切って入力してくださいね。 


恋をしよろよ！ 

さて，今月の1曲目は LINDBERG のァ 
ルバム 「 LINDBERG V 」のなかから，「恋 
をしようよ Yeah ! Yeah !」 をお届けしまし 
よう。 X 68000 用で， Z-MUSIC システム が必 
要です。この曲は コカ•コー 戈の CM ソング 
にもなっていますので，サビくらいは聞い 
たことがあ之でしよう。 LINDBERG は，こ 
の LIVE in にも過去に2回登場していて人 
気のほどがう.かがえます。投稿してくれた 
南君も LINDBERG のファンらしく，歌詞 
までていねいに書いて送ってくれました。 

曲はとってもグーです。最初のギター t 
いい，ノリといい，な.かなかよくまとまっ 
ています。プログラムが長いのが難点とい 
えば難点ですが，過去にはもっと長いもの 
も載っていますし，問題ないでしよう。 

ただ， PCM ファイルが 120 K バイト程度 
になりますので， Z - MUSIC の設定によって 
は演奏できないかもしれません。 一 P オプ 
シヨンで 150 K バイト程度の PCM バッファ 



LINDBERG 


を確保しておけば大丈夫でしよう。 

ワークエリ アをいっぱい取るのもばかば 
かしいので， ZPCNV . X を使って . ZPD ファ 
イルを先に作っておいてください。プログ 
ラムでもそういった設定になっています。 

PCM 8. X を使っていないので， PCM 8 を 
持っていない人でも 0 K ですが，そのぶん 
PCM ファイルが大きくなったといったと 
ころでしようか。 

南君はバソコン通信でもやっているので 
しようか。非常に見やすいドキュメントフ 
ァイルでありがたかったです。できれば， 
作った t きの苦労話や セールス ポイント， 
自己紹介なんかをいっぱい書いておいてく 
れると，もっとよかったんですけどね。 

笑顔の魔法をおしえて 

日曜の夕方はテレビの前に座っている人 
も多いのではないでしよう力'。もちろん， 
見ているものは「ちびまる子ちゃん」です 
よね(読者の年齢層を無視した発言）。ちよ 
っ t 懐かしくて，なんとな〈笑ってしまえ 



る（身に覚えがある？），ほのぼのとしたア 
ニメです。このちびまる子ちゃんの曲とい 
えば，「おどるポンポコリン」力 ? 超有名です 
よね。っていっても，今回お届けする曲は 
オープニングテーマの 「ゆめ いっぱい j の 
ほうです。 

演奏には Z - MUSIC システムのほかに， 
SC -55 が必要です。 SC -55 からしか音は出ま 
せんので，ミキシングの必要はありません。 

テレビサイズ t いうことで，1 コーラス 
しかありませんが，余計にテレビを見てい 
るような錯覚に陥ることができます。リス 
卜も短いので，入力しやすいのではないで 
しようか。デキのほうはちゃんと保証しま 
す。あの楽しい雰囲気を見事に再現してい 
ますよ。 

プログラム中で，パート3や14などでル 
—プの中にバンク切り替えコマンドがあり 
ます力*,これは1回だけだとバンク切り替 
えされないことがあるためだそうです。 
SC -55 に詳しい人で，この症状の原因がわ 
かる人がいたら教えて〈ださい。 

この作品は音取りでなかなか苦労したそ 
うです。とにかく，楽譜が高かったそうで, 
「コードをお店でメモってしまう j という 
必殺ヮザを使ったとか。ひとりがコードを 
読み，ひとりがメモり，ひとりがそれを隐 
す t いうユンビネーションも完璧です。ま 
あ，次回からは録音できるウォークマンか 
テレコを使うことをお勧めします。 

初投稿ということですが，これからも常 
連目指してどしどし投稿してくださいね。 

( S . K .) 


_リス M 恋をしようよ丫 eah ! Yeahl 


日本音楽著作権協会（出）許諾第9270994 -20 1号 


1: .comment 恋をしようよ Yeah ! Yeah ! < LINDBERG > 

2: .comment 作キ / 作曲川添替久 

3： 

4: .comment PROGRAM 南正梅 / 1992-05-25 

5： 

6 ： / for ZMUSIC.X 
7： 


8： /- 

9 ： / TRACK SETUP 
10 : 

11 ： (i) 

12： 

13: (ml, 1200) (aFm5,1) /Vol 
14 ： (m2,1200)(aFm6,2) /Vo2 
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15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 


(®1 ， 


(® 2 , 


(«82, 


AR 

1DR 

2DR 

RR 

1DL 

TL 

RS 

MUL 

DTI 

DT2 

AME 

31, 

0, 

0 

, 0. 

， 0, 

39, 

1 ， 

6, 

. 3, 

. 0, 

, 0 

31, 

3, 

1, 

, 1. 

1, 

38, 

1, 

7, 

i 3, 

,0, 

， 1 

19, 

2, 

1 ； 

. 6, 

ili 

38, 

1, 

1, 

, 7, 

, 0, 

,0 

16, 

0, 

0, 

,9, 

0, 

0 ， 

1. 

2_ 

i 7, 

, 0, 

,1 

AL 

FB 

SM 

PAN 








0, 

8) 












Synth 








AR 

1DR 

2 DR 

RR 

1DL 

TL 

RS 

MUL 

DTI 

DT2 

AME 

25, 

18, 

〇 , 

,15, 

0, 

42, 

0, 

1, 

i 5, 

0, 

,1 

28, 

4, 

〇 , 

,15, 

0, 

2, 

0,. 

2, 

3, 

,0, 

i 1 

20, 

15, 

〇 , 

,15, 

0 , 

35, 

0 ， 

0, 

i 3, 

, 0, 

,1 

28, 

15, 

〇 , 

i 15, 

0, 

2, 

0, 

1, 

3, 

i 0. 

1 

AL 

FB 

SM 

PAN 








7, 

7) 












D.G 

H ( Oh ! X 

1991/12) 





AR 

1DR 

2 DR 

RR 

1DL 

TL 

RS 

MUL 

DTI 

DT2 

AME 

27, 

25, 

1. 

i 9. 

2, 

27, 

0 ， 

4, 

， 3, 

,2, 

, 0 

27, 

20, 

1. 

， 9, 

4, 

24, 

1, 

14, 

， 6, 

i0i 

, 0 

31, 

2, 

1, 

,9, 

3, 

7, 


0, 

: 3, 

,0, 

, 0 

30, 

14, 

0. 

i 9, 

0. 

1, 

1, 

1, 

> 7. 

, 0 】 

, 0 

AL 

FB 

SM 

PAN 








3, 

7) 











/ MML DATA SET 

/ Vol(Fm5) 

/IA] 

(tl) ®k+4 vll18 q7 «1 
(tl) |:10rl:| rl 
/[B] 

(tl)®1 | : o5 cc4c4>gg 4 a4aag4&ff16.&{f32g)fitg&q8e4q7rr2 
(tl)|1 rl : I |2 8k0plvl2 | :3rl : 1 <dl rl ®k + 4p3vll:| 

/ [C] 

(11)(SI | : o4c2c4ed& d4r2 . f4e4d4c4 >b4<c4d4>b4 
(11)<ccccc4ed& d4r2. f4e4d4c4 |1 >b4b<c4.d4 : | 

(tl)12 a4g4e4d4 cl rl : | 

/ [D] 

(t1)| : vll18 q7 Q1 〇 4 r2aaaa atf4rr2 r2aaaa 
(tl)a4. gg2 r2araa ag4rr2 a2.aa& b2.r4 
/ [E] 

(tl)| ： o5cc4c4>gg4 a4aag44ffl6.&(f32g) & g&q8e4q7rr2 rl：| 
(tl)f 4.<c4.r4 >eee<c4.r4 > f4f <c4.c4 >b4bg4.r4 
(tl) a2&agag g2r2 a2.a4 b4g4b<d4c& 

パ El] 

(tl)|1 c2.r4 | ： 7rl : | 

/ [CM 

(tl) 91o4 c4c4c4ed!c d4r2. f4e4d4c4 >b4<c4d4>b4 
(tl) <ccccc4ed& d4r2. f4e4d4c4 a 42464 d4 cl rl : | 

/[E2] 

(tl)I 2 o5 c2.r4 丨 ： 3rl : I 


E Organ 6 


OM 

WF 

SY 

SP 

PMD 

AMD 

PMS 

AMS 

PAN 

15, 

2, 

1, 

190, 

,10, 

i 0, 

1, 

1 

,3, 

DR 

SR 

RR 

SL 

OL 

KS 

ML 

DTI 

DT2 

0, 

0. 

15, 

0, 

, 30, 

,0, 

0, 

. 3, 

.0, 

0, 

0, 

15, 

0. 

0. 

i 0, 

0, 

r 7, 

10 ， 

0, 

0, 

15, 

0, 

,• 0 , 

1 0, 

3, 

， 2, 

, 0 ， 

0, 

0, 

15, 

0, 

0. 

i0, 

2, 

> 3, 

.0, 


(v51,0 


(m3, 1200) (aFm7,3) /Ch,Vo 

(m 4,2100 MaFra 4,41 /Gtl 
(m 5,360 0)(aFml,5) /Gt2 
(m6,1200)(aFm7,6) /Gt3 
(m7,100O){aFra5,7) /Kb 
(ra 8,240 0)(aFm8,8) /Ba 
(m 9,200 0)(aAdpcm,9) /Dr 


/ ADPCM DATA SET 
.ADPCM_BLOCK_DATA=Yeah.2PD 


/ OPM DATA SET 

(vl9,0 / F Guitar 


/ 

AF 

OM 

WF 

SY 

SP 

PMD 

AMD 

PMS 

AMS 

PAN 



57, 

15, 

2, 

0, 

200, 

0, 

0, 


0, 

3, 

0 

/ 

AR 

DR 

SR 

RR 

SL 

OL 

KS 

ML 

DTI 

DT2 

AME 


31, 

22, 

8, 

6, 

7, 

11, 

2, 

12, 

6, 

0, 

0 


31, 

6, 

0, 

6, 

3, 

33, 

1, 

3, 

3, 

0 ， 

0 


28, 

6, 

0, 

6, 

15, 

, 32, 

0, 

3, 

4, 

0 ， 

0 


31, 

8, 

0, 

8, 

15, 

0, 

0 ， 

1, 

4, 

0, 

0) 

(v 24，0 

/ 


E Guitar 

4 







/ 

AF 

OM 

WF 

SY 

SP 

PMD 

AMD 

PMS 

AMS 

PAN 



2, 

15, 

2, 

0, 

200, 

， 0, 

0, 

0, 

0, 

3, 

0 

/ 

AR 

DR 

SR 

RR 

SL 

OL 

KS 

ML 

DTI 

DT2 

AME 


28, 

0, 

0, 

10, 

0, 

,57, 

0. 

2, 

7. 

0, 

0 


31, 

18, 

0, 

10, 

2, 

r 33, 

1, 

8, 

7, 

0, 

0 


26, 

16, 

6, 

10, 

2, 

, 29, 

1, 

0, 

4, 

0, 

0 


28, 

6, 

0, 

8, 

15, 

, 0 ， 

1. 

1, 

4, 

0 ， 

0) 

(v28,0 

/ 


E Bass 1 








/ 

AF 

OM 

WF 

SY 

SP 

PMD 

AMD 

PMS 

AMS 

PAN 



3, 

15, 

2, 

0, 

200, 

. 0, 

0, 

0, 

0, 

3, 

0 

/ 

AR 

DR 

SR 

RR 

SL 

OL 

KS 

ML 

DTI 

DT2 

AME 


31, 

12, 

0, 

10, 

15, 

. 47, 

0, 

5, 

6, 

0, 

0 


31, 

0 ， 

0, 

10, 

0, 

i 23» 

0, 

0, 

4, 

0 ， 

e 


31, 

0, 

4, 

6, 

0, 

,33, 

0, 

0, 

4, 

0, 

0 


28, 

0 ， 

6, 

8, 

0, 

, 0, 

0, 

0, 

3, 

0, 

1 ) 


/ [F] 

(tl)| : 19rl : | | ： 3rl：| o5 flk0plvl2@l dl rl «k+4p3vll r2 

/ [G] 

(tl) vll18 q7 ®1 

(11) o5 cc4c4>gg4 a4aag4&ff16.&(f32g) & g&e4rr2 rl 

/copy と嘗いてある所はコピーできます 

/tEJcopy 

(tl)| : o5cc4c4>gg 4 a4aag4&ff16.&(f32g) & g&q8e4q7rr2 rl：| 
(11)f4.<c4.r4 >eee<c4.r4 >f4f<c4.c4 >b4bg4.r4 
(tl)a2&agag g2r2 a2.a4 b4g4b<d4c& 

/[E3] 

(tl)c2.r4 rl 
/ [H] 

(11)| : o5cc4c4>gg4 a4aa24&ffl6.&.(f32g) & g&q8e4q7rr2 rl：| 

/m 

(11)|:4o5cc4c4>ggv9@k0<g gg4a4.&g4fik+4vl1 | : rl : | ： |rl : | 


/ Vo2 (Fra6) 

パ A][B 】【 F 】 以外は （ tl ) と同じです 
/ [A] 

(t2) ®k-2 vll18 q7 ®1 
(t2) | ： 10rl：| rl 
/[BJ 

(t2) SI | : 〇 5 cc4c4>gg4 a4aag4&ff16.&(f32g)&g&q8e4q7rr2 
(t2) II rl : | |2 ®k0| : rl : | b2.b4 bl rl @k-2:I 
パ C] 

(t2) @1 | : o4c2c4ed& d4r2. f4e4d4c4 >b4<c4d4>b4 
(t2) <ccccc4ed& d4r2. f4e4d4c4 I 1 >b4b<c4.d4 ：| 

(t2) |2 a4g4e4d4 cl rl：| 

/[DJ 

(t2) | : vll18 q7 dlo4 r2aaaa ag4rr2 r2aaaa 
(t2 ) a4 . gg2 r2araa ag4rr2 a2 . aa&. b2 . r4 

/ [E] , 

(t2 > | : o5cc4c4>gg4 a4aag4&ff16.&(f32g) & g&q8e4q7rr2 rl : | 

(t2) f4.<c4.r4 >eee<c4.r4 >f4f<c4.c4 >b4bg4.r4 
(t2) a2&agag g2r2 a2.a4 b4g4b<d4c& 

/[El] 

(t2) |1 c2.r4 | ： 7rl：| 

/ [C»] 

(t2) ®1o4 c 40404 ed& d4r2. f4e4d4c4 >b4<c4d4>b4 
(t2) <ccccc4edi d4r2. f4e4d4c4 a 42464 d4 cl rl:| 

/[E2J 

(t2) |2 o5 c2.r4 | :3rl：| 

/[F] 

(t2) | : 19rl：| ®k0| ： rl:| o4 b2.b4 bl rl fik-2 r2 

/ [ 0 ] 

(t2) vll18 q7 @1 

(t2) o5 cc4c4>gg 4 a4aag4&ff16.&(f32g) & g&e4rr2 rl 
/ [E]copy 

(t2) | : o5cc4c4>gg4 a4aag4&ff16.&(f32g) & g&q8e4q7rr2 rl : | 

(t2) f4.<c4.r4 >eee<c4.r4 >f4f<c4.c4 >b4bg4.r4 
(t2) a2&agag gZr2 a2.a4 b4g4b<d4c& 

/[E3] 

(t2) c2.r4 rl 

/[H] 

(t2) | : o5cc4c4>gg 4 a4aag4&ff16.&(f32g)& g&q8e4q7rr2 rl : | 

/LI] 

(t2) |:4o5cc4c4>ggv99k0<c dd4e4.&d4@k-2vl1 |:rl ： I ： |rl：| 


/ Ch,Vo3 (Fm7) 

/tA] 

(t3) |:10rl:| rl 

/ [B] 

(t3) vl0 18 q7 01 

(t3) @1 | : 〇 5 ee4e4cc4 >a4aag4&ff16.8t(f32g) & g&q8e4q7rr2 
(t3) II rl:| |2 r2..p2vlla& gl& g2.g4 gl rlp3vl0 ：| 

/ [C] 

(t3) @1 I: o4c2c4ed& d4r2. f4e4d4c4 >b4<c4d4>b4 
(t3) <ccccc4ed& d4r2. f4e4d4c4 11 >b4b<c4.d4 : | 

(t3) |2 a4g4e4d4 cl rl：| 

/ [DJ 

(t3) |： vl0 18 q7 @1o5 r2cccc C>b4rr2 r2aaaa 
(t3) a4.gg2 <r2orcc c>b4rr2 a2.aa& b2.r4 
/[E] 

(t3) | : o5ee4e4cc4 >a4aa£4&ff16.&(f32g) & g&q8e4q7rr2 rl : | 
{t3) f4.<c4.r4 >eee<c4.r4 >f4f<c4.c4 >b4bg4.r4 
(t3) <c2&c>b<c>b b2r2 a2.a4 b4g4b<d4c& 

/ [El] 

(tT3) |1 c2.r4 | :7rl：| 

/fC'] 

(t3) @1o4 c4c4c4ed& d4r2. f4e4d4c4 >b4<c4d4>b4 
(t3) <ccocc4ed& d4r2. f4e4d4c4 a4g4e4d4 cl rl : | 

/[E2] 

(t3) |2 o5 c2.r4 | :3rl：| 

/IF] 

(t3) | : 19rl : | ®1o4 rlp2vll glL g2.&4 gl rl r2p3vl0 
/ [G] 

(t3) vl0 18 q7 <81 

(t3) o5 ee 464004 >a4aa24&ff16.&(f32g) & g&e4rr2 rl 
/{Ejcopy 

(t3) | : o5ee4e4cc4 >a4aag4&f fl6.&(f322) & g&q8e4q7rr2 rl：| 
(t3) f4.<c4.r4 >eee<c4.r4 >f4f<c4.c4 >b4bg4.r4 
(t3) <c24c>b く c>b b2r2 a2.a4 b4g4b<d4c& 

/[E3] 

(t3) c2.r4 rl 

/£H] 

(t3) | : o5ee4e4cc4 >a4aa£4&ff16.&(fS2g)& g&q8e4q7rr2 r1 : I 

/[I] 

(t3 ) |:4 o5 ee4e4ccv9>a aa4b4 .ita4vl0 | : r 1：| : | rl : | 


/ Gtl (Fm4) 

(t4) tl87 vll18 q8 
/ [A] 

(t4) S82 o5 c2.>g4 f4.e4.d&(d,o5c) & c2.>g4 f4.g&£2 


K 2 R 1111 
A 6 A 3 3 3 3 
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►大学院試まであと 1 力月半。それにしても，受験がこんなにしんどいとは……。高校生 
のときは，結構がんばれたのになあ。 松田英弘 (21) 京都府 
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266 
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268 
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279 

280 
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282 
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284 

285 

286 
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289 
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291 
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293 

294 
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296 

297 
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299 

300 

301 

302 

303 

304 
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366 

307 

308 

309 

310 

311 
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313 
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315 

316 
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319 
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321 
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(t4) cl >(b,o4e)&e2.. (cg)&g4(cb-)&(b-4a)&a4 
(t4) (al 6 f)&f2... (g4a)&(a4b-)&(b-4,o5d-)&d-4 
(t4) fl >(a,o5e)&e2.. 

/ [B] 

(t4) | : vllq4 @19o3g<ec>g<gc>gd f<fc> f<gd>g<g 
(t<l) rec>g<ec>gd |1 rl：| | 2 | : 4v9«82rl : | 

(t4) o4’d#4>g#4 , ， e4>a4 ， *e#4>a#4'* f#4>b4' 

/ [C] 

(t4) 051 vl4 q 8 〇 3 I ： I ： 5rl：| r2 

(t 4 ) plv3{ga)&v5(ab)&v6(b,o4c#)&v9(c#d#) & 

(t4) (d#f)& P 2(fg)&g4&g2& v8g2&v7g2:| rl rl 
/[DJ 

(t4) I ： | ： 8 rl : | 

/IE] 

(t4) I: vll@19q4 o3g<ec>tt<gc>gd f<fc>f <^d>g<g 
(t4) rec>g<ec>gd rl : | @82 o3 v9 ffffr2 eeeer2 ddddr2 
(t4) <gr4g&g2>ffffr2 v7er4e4.vl0<(fg)&g ggf4gf4. g4ggig2 
/[El] 

(t4) |1 cl& c2.r4 rl vllo5 pi q 8 c2.>g4 
(t4) f4.e4.d4 rl <c2.>g4 f4.g&g2 p3 
/[C»] 

(t4) | :® 51 vl4 q 8 o3 

(t4) rl r2plv3(ga)&v5(ab)&v6(b f o4c#)&v9(c#d#)& 

(t4) (d#f)&p2(fg)&g4&g2 & v8g2&v7g2：| rl rl : | 

/[E2] 

(t4) |2 |:3rl:| 06 vll r2r4.c& 

/IF] 

(t4) q8116cde-dc>b-ga-b-gagfgl8(f16g)&gl6q7 
(t4) g2 & (gf)&ff.fl 6 & 

(t4) f<(e-,o7e-)&e-4>(e-,o7e-)&e-4&(e-,o6e-)> 

(t4) (e-2. ,o4e-Xr(al6,o6f )&{ fl 6 g)&«b-f | : 3 ( f 16g)&g 16 : Iff 
(t4) & (fg)&ga-(fg)&gg(e-t)&f e-(e-d)&d{e-16d)&dl6cdc>b- 
(t4) (gl6f)&fl6e-(c4,o4c)r>b-<ce- 
(t4) (cl6g)&gl6b-<cd4.>>q2g4q7 

(t4) 1161 :o2(b-,o3c)&c ： |(e-f)e-8e-(fg)&gfggb-g 
(t4) (b- , o4c)&cc>b-<ce-ce-| : (e-f )&.f: | g 8 (b-g)&g 
(t4)18b-<(e-16f)&f.U-16f 4,04 c>>b-b- 
(t4) <e-ce-f(fl6g)4(gl6f)4(fl6e-)4e-16(fg)&g 
(t4 ) e-(fg)&gf(fl 6 g)&gl 6 b-r>g <c>b-gb-4 <c>b-4 
(t4) gd4f(g2d)& (dl,o2g) rl <(fla) & al 

(t4) p3 |:24g:| (edcdc>b}l r2 
/ [GJ 

(tl)vl1019q4o3g<ec>g<gc>gd f<fc>f<gd>g<g rec>g<ec>gd rl 
/IE 1 copy 

(t4 ) | ： vl1019q4o3g<ec>g<gc>gd f <fc>f <gd>g<g rec>g<ec>gd 
(t4) rl : | ©82o3v9 ffffr2 eeeer2 ddddr2 <gr4g&g2 >ffffr2 
(t4 ) v7er4e4 . vl0< ( fg)&,g ggf4gf4 . g4gg&g2 
/ [E3] 

(t4) | ： 2rl：| 

/[H,I] 

(t4) vll q 8 | ： 6o5 c2. 〉 g4 f4.e4.d4 
(t4) <c2.>g4 f4.g&g2：| t50 q8<c2 & ¥75c2 : | 


(t5) 

/ [A] 
(t5) 
(t5) 
(t5) 

/ [B] 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
/( C ] 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 

/ [D] 
<t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 

/ [E] 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 
(t5) 

/ [El] 


Gt2 (Fml,2,3) 
v918 


@82 q7 | : | ： o3(b,o4c)&ccc：I rl : I I ： 4o3(b,o4c)&ccc : | 

<I ： o3 q2eeq7 , e<ce*q2eeq7 1 e4.<c4.e4 .' 
q2ffq7*f<cf , q2ffq7'f4.<c4.f4. 1 : | q7o4| ： 8 , cg<c , : | 

I : o4q2’eg く c’q7’cgtc’rq2’eg く。 ， q7’c2 g2< c2’ 

>q2| : ， f<cf ， ： |q7 ， f4 く c4f4 ， q2| : ， g く dg 1 : Iq7 , g4<d4g4 , 
o4q2 *cg<c ' q7 *cg<c*rq2 1 cg<c , q7 , c4.g4.<c4. 1 q2 , cg<c , 

|1o3q'7'f4.<c4.f4. ' ' g2<d2g2 ' &.» g <dg 1 : | 

|2 o3q7 , f4.<c4.f4.' l g2<d2g2 , |: ， gl 6 <dl 6 gl 6 ， ：|:| 

•g 2 ..<d 2 ..g 2 .. 1 | ： , al 6 <dl 6 gl 6 bl 6 , ：| 

*g 2 ..<d 2 ..g 2 ..b 2 ..»| ： , gl 6 <dl 6 gl 6 bl 6 , ：| 

•gl<dlglbl* ， d#4>g#4, , f4>a4 , *f#4>a#4'*g#4>b4 1 

@24 vll |:3o5 ©dl > 〇 4 .e4.',26g&g2@d0 
®dl>'b4.<d4.',26 く ®dl>'a4.<c4. f <g&g2®d0 
@dl> *b4.<d4. ',26<g4g2@d0 ： | o5 ®dl*c4.e4.',26g&g2Qd0 
®dl> *b4.<d4.',26<g&g2@d0 ®dl>•a4 . く c4•*<g&g 2 ®d 0 
edl>*b4.<d4. 1 ,26&g4®d0 982 v9 o4 q8(g4.c) 

， clgl く cl，，0 o3 q7 r|:7 , g<dg , : | 

I : | : 〇 3 q2aaq7 1 a<ea 1 q2aaq7 , a4.<e4.a4 . 1 

q2ggq7 1 g<dg* q2ggq7’ g4 . く d4.g4.’ 

IIq2aaq7•a く ea * q2aaq7 1 a4.<e4.a4 .' 
q2ffq7 , f4<c4f4 , q2ggq7 , g4<d4g4 , : I 
|2 q2ffq7 , f<cf , q2ffq7 , f4.<c4.f4.' 
q2ggq7 , g4<d4g4 ,, f4<c4f4 , *«4<d4g4' : | 

I: o4q2’cg<c’q7*cg く c 1 rq2 く c*q7’c2g2<c2’ 

>q2| :»f<cf* : |q7» f4<c4f4 , q2| : ， g<dg ，： Iq7 , g4<d4g4 , 
o4q2 , cg<c , q7 , cg<c*rq2 , cg<c*q7 , c4.g4.<c4. , q2 , cg<c , 
o3q7*f4.<c4.f4.''g2<d2g2'& 1 g<dg' : | 

〇 3 | : q2fff<q7 , cf , & , c2f2 , >q2eeeq7 1 b<e*& , b2<e2 1 
IIq2dddq7 ， a<d ， & ， a2<d2 ， 

'g<dg'rq2' 2 <dg * q7 * g<dg' & 1 g2<d2g2 1 : | 

|2q2ffq7 , f<cf*q2ffq7 , f4.<c4.f4 . 1 
q2ggq7 * g<d« *q2ggq7 * g4.<d4 .£4 .'：| 


(t5) |1 | : 16 , c<gc , : | 

(t5) vll|:| : 〇 3 (b,o4c)&cc>(b,o4c)&cocc ： |rl:|v9 
/ [C»] 

(t5) ¢24 vll o5 ddl*c4.e4. 1 ,26g&g2®d0 
(t5 ) fidl> , b4.<d4.*,26<g&g20d0 Odl>'a4.<c4. 1 <ff&g2«d0 
(t5) ednW • く d4.* ,26 く g&g2®d0 o5 <Sdrc4 .e4. 1 , 26g&.g2®d0 
(t5) ®dl> *b4.<d4. 1 ,26<g&g2®d0 0dl> f a4.<c4.'<s&g2fid0 
(t5) «dt>'b4 . <d<f. 1 ,26&g40d0 ®82 v9 o4 qB(tf4.c) 

(t5) 'clg^cl',0 o3 q7 r|:7.g<dg，：| : | 

/[E2] 
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(t5) |2 o4q7| : | : , cg<c , ； |r4 >I : , g<dg , : |r4 

(t5) | : »f<cf»:|r , «<dg , & 

(t5) |1 l g2<d2g2 , : ||2r , g<dg , r , e->a- , t 
/[F] 

け 5) , e->a-»ql@82|:15 , e->a-* : | |:16 , cg , :| | ： 16*e->a- 1 : | 
<t5} |:16’f>b’：| | : 16*e->a-' : | |.:16 , cg，：| | : 16'e-b-* : | 
(t5) | : 16 , d>g , : | q7| : 〇 4 |: , cg<c , ： |ro3| : *g<dg* : | 

{t5> r’a く ea’’a く ea 1 & , al<elal , ： ||:24'g<dg , :|<{c>babag)lr2 
/ [G] 

(t5) o4q2 * cg<c 1 q7 1 cg<c * rq2 *cg<c * q7'c 2 g 2 <c 2 * 

(t5) >q2| : ， f<cf ，： |q7 ， f4 く c4f4 ， q2| : ， g く dg 1 : Iq7 ， g4<d4g4 ， 

(t5) o4q2 , cg<c'q7 , cg<c , rq2*cg<c , q7 *c4.g4 . く c4• ， q2.eg く c 1 
(t5) o3q7*f4.<c4.f4. ， »«2<d2g2 1 & *g<dg 1 
/ [E]copy 

(t5) |: o4q2’eg く。 •q7’eg く c’rq2’cg<c 1 q7’c 2 g 2 < c2 1 
(t5) >q2| : ， f<cf ， ： Iq7 , f4<c4f4»q2| : , g<dg* ： |q7*g4<d4g4' 

(t5 ) o4q2 ,cg く c * q7 ’cg<c ’ rq2 f 〇 8 < 〇 ^ 7 ' 〇 4 . 24 .< 〇 4 . ' q2 * ctf <c * 
(t5) o3q7 , f4.<c4.f4.'*g2<d2g2* &»g<dg 1 : | 

<t5) 〇 3 | : q2fff<q7»cf , & , c2f2» >q2eeeq7 1 b<e* & 1 b2<e2' 

(t5) |Iq2dddq7'a<d , &*a2<d2 , 

(t5) 'g<dg *rq2'g<dg 1 q7 *g<dg 1 'g2<d2g2 1 : | 

(t5) |2q2ffq7 1 f<cf'q2ffq7 * f4.<c4.f4 . 1 
(t5) q2ggq7 , g<dg , q2ggq7 *g4.<d4.g4 .*： I 
/ [E3] 

(t5) 〇 4 |: 8 ’c く gc’：| r>| ： 7 , g<dg , : | 

/tH] 

(t5) |: o4q2 , cg<c , q7 *cg<c*rq2 1 cg<c*q7 *c2g2<c2 * 

(t5) >q2| : *f<cf* : Iq7 ， f4<c4f4 ， q2|: ， g<dg ，： Iq7 , g4<d4g4* 

(t5) o4q2 *cg<c *q7 *cg<c'rq2 , cg<c , q7 *c4.g4.<c4. , q2 , cg<c , 

(t5) o3q7 * f4.<c4.f4.» 1 g2<d2g2'& *g<dg 1 : | 

/[I] 

(t5) 〇 4 |:64*c<c’r:| q 8 *c2<c2 1 & ¥75*c2<c2* :| 


/ Gt3 

(t6) vll18 q8 

/[A] 

(t 6 ) d82 06 c2.>g4 f4.e4.d&(d,o6c)& c2.>g4 f4.g&g2 cl 
(t6) >(b,o5e)&e2.. (cg)&g4(cb-)4(b-4a)&a4 (al6f)&f2... 

(t6) o3(b-4,o4c) & (c4d-)&(d-4e)&e4 al(a,o5c)&q7c2.. q8 
/tB.C] 

(t6) | ： 30rl : | 

/[D,E] 

(t6) I: | ： 24rl：| 

/ 【 E1,C ， 】 

(t6) |1 |:3rl：| ®82 vllo5 p2 c2.>g4 f4.e4.d4 rl 

(t6) <c2.>g4 f4.g&g2 p3 | : lOrl : | : | 

/[E2] 

(t 6 ) |2 rl 6 | :3r1:| 06 v9 q7 r2r4.c& 

/IF] 

(t6) @82116 (cd)&(de-)&.( e-d)&(dc )&c> (b-g)t(ga-) 

(t6) (a-b-)(b-g)&(ga)&(ag)&gfgl8(fl6g)&gl6 

/ このへんは （ t4 ) と同じです 
(t6) g2i(gf)&ff.f16& 

(t6) f<(e-,o7e-)4e-4>(e-,o7e-)4te-48c(e-,o6e-)> 

(t6) (e-2.,o4e-)<r(al6,o6f)&(f16g)tgb-f|:3(f16g)&g16：|ff 
(t6) & (fg)&ga-(fg)&gg(e-f)&f e-(e-d>&d(e-16d>&dl6cdc>b- 
(t6) (gl6f)4fl6e-(c4,o4c)r>b-<ce- 
(t6) (Cl6g)&gl6b-<cd4.>>q2g4q7 

(t6) 1161 ： o2(b-,o3c)&c ： |(e-f)&fe-8e-(fg)igfggb-g 
(t6) (b-,o4c)&cc>b-<ce-ce-| : (e-f)&f ： |g8{b-g) 

(t6)18b-< (e-16f )&f. (e-16n&fl6&<f4,o4c>>b-b- 
(t6) <e-ce-f(f16g) & (gl6f) & (f16e-)ie-16(fg)&g 
(t6) e-(fg)&gf(fl6g)&gl6b-r>g <c>b-gb-4<c>b-4 
(t6) gd4f(g2d) & (dl,o2g) rl く （ fla)& al 

(t6) | : 3rl：| r2 …: | 


/ Kb 

(t7) v718 q 8 

/[A,B,C] 

(t7) ®2 | ： 4rl：| o3 1 elg1•&»elg1 * •elgl» 'flal* * 8 lb-l' 

(t7) »flal , q7 ， gl<cl ， q8 | ： 30rl：| 

/[D,E] 

(t7) I ： | ： 24rl : | 

/ 【 E1,C ，】 

lt7) |1 I ： 18rl：| : | 

/[E2] 

(t7) |2 | : 3rl：I ¢2 o3 r2r4.e-i 

/ [F] 

(t7> ®2 e-1 dl cl& cl e-1 dl cl >b-l く e-1 dl cl& cl e-1 
(t7) dl gl& gl | ： 8 rl : | r2 : | 


/ Ba (Fm8) 

(t8) tl87 @28 vl218 q7 
/ [A] 

(t8) 〇 2 |:|:(b,o3c)&ccc> : | rl: 丨 I : 4(b,o3c)&ccc> : I 

(t8) | : eeeeeeee ffffffff ： | く ccccccco 

/[B] 

(t8) I: o3 cccccccc > ffffgggg <ccccccco 11 >fffg4ggg : I 
(t8) |2 o2 fffg4gs4 I ： 3g£gg4g22：I g#4a4a#4b4 : I 
/ [C] 

(t8) I ： |1 |:7rl : I o3 r2vl1(a2,o2a)vl2 : I |2 I ： o3 
< t8) ccccccco >gggggggg ffffffff gggggggi ： I : I 
(t8) <cr>cccccc >£g 2 ggggg 
/ [P] 

(t8) | : 〇 2 aaaaaaaa gggggggg aaaaaaaa ffffg^gg aaaaaaaa 

(t8) gggggggg ffffffff ggggf4g4 

m 】 

(t8) | ： o3 cccccccc >ffffgggg <ceff#gfed >fefg4ga4:| 

(t8) ffff4fff eeee4eee <dddd4ddd >gggg4ggg 
(t8) ffff4fff eeee4eee eggeeggg 

/ [El] 

(t8) | 1 〇 3| : cccccccc ： | | ： | ： > (b,o3o)4cc> (b,o3c)icccoc ： I rl：| 
/[C ，】 


►今年の度も郵便局でアルバイト。今回は MIDI を一式揃えるぞ。それにしても髙校3年 
生がこんなことをしていていいのだろう力、 宇野和孝 （18) 茨城県 
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442: (t8) | : 〇 3 cccccccc >gggggggg ffffffff gggggggg : I 
443 ： (t8) <cccccccc >ggggggg8 : I 
444 ： / [E2] 

445 ： (t8) |2 o3 ccr4>ggr4 ffrf&(f,o3e)i(e4.,o2g) <ccr4>ggr4 
446: (t8) ffrgrgra-& : | 

447: /[F] 

448: (t8) | : a-a-a-a-a-a-a-a-：| <| : cccccccc : | > 

449: (t8) | : a-a-a-a-a-a-a-a-：| b-b-b-b-b-b-b-<(cd)&dfgb-d4c4> 
450: (t8) | : a-a-a-a-a-a-a-a-：| <| : ccccoccc : | 

451:(t8) I : e-e-e-e-e-e-e-e-：I >I : gggggggg : I 

452: (t8) <ccr>ggraa& al <ccr>ggraa& a2&(a,o3a) & (a4.,o3c) 

453: (t8) > I : gggg4ggg:| <ggggggg4 (c>babag)1 r2 
454 ： / [G] 

455 : (t8) o3 cccccccc >ffffgggg <cccccccc > fffg4gge 
456 : / [E]copy 

457 ： (t8) | : 〇 3 cccccccc >ffffgggg <ceff#gfed >fefg4gg4:| 

458 : (t8) ffff4fff eeee4eee く dddcUddd >ggg^4ggg 
459: (t8) ffff4fff eeee4eee ffff4fff ggeggggg 
460 ： /[E3J 

461 : (t8) o3 cccccccc Oggggggg 
462: /[H] 

463: (t8 ) I: o3 cccccccc > f fffgggg 

464 ： (t8) <cccc4vll(c f o4c) & (c4.,o3c)vl2 > fff4ggg4 : | 

465: /[I] 

466 : (t8) | ： 4o3cccccccc>ffffgggg<ccccccccffffeeed ： Iq8c2 & ¥75c2 
467: 

468: /- 

469 ： / Dr (ADPCM) 

470 ： (t9)18 p3 q8 
471 ： /[A] 

472 ： (t9) o1 g4d4cc#d4 c4d4f#c#dc# g4d4cc#d4 cc#dc#dd#c#d 
473: (t9) g4d4cc#d4 |:c4d4cc#d4 : | c4d4cc#dc# | : c4d4cc#d4 : | 

474 : (t9) dc#dc#dd#c#d 
475 ： /[B] 

476 : (t9) ol |: g4f4<e4>f4 I ： e4f4<e4>f4 ： | I 1 e4<f4g#4f4> : | 
477: (t9) |2 e4<f4g#4f4> | : g4f4<g#4>f4 : | g4f4<g#4f4 a4f4f4f4> 
478 ： /[C] 

479: (t9) ol | : g4d4cc#d4 c*Jd4f#c#d4 | ： c4d4cc#d4 c4d4f#c#d4 : | 
480 : (t9) c4d4cc#d411 c4d4cc#dc# : | 

481:(t9) |2 c4d4cc#d4 g4d4f#c#d4 cc#dc#dc#dc# 

482: /[D] 

483 : (t9> I: ol g4d4cc#d4 c4d4f#c#d4 c4d4cc#d4 c4dc#c4d4 
484 : (t9) c4d4cc#d4 c4d4f#c#f4& g4d4f#c#f4 
485 ： (t9) <<<{e#e#e#}4{d#d#d#}4>>a4a4> 


486 ： / [EJ 

4 87 : (t9) o3> >g4< <d4cc#d4 c4d4cc#dd# c4d4cc#d4c4dc#> >b< <c#dd# 
488 : (t9) >>g4<<d4cc#d4 c4d4cc#dd# c4d4cc#d4c4dc#> >b<<c#dc# 

489: {t9) ol«4dc#f#4d4 c4dc#f#c#d4 | ： c4dc#f#4d4 c4dc#f#c#d4 : I 
490: (t9) c4dc#f#4d4 c4dc#f#c#dc# 

491 :/ [El] 

492 ： (t9) |1 olg4d4o4dc# c4d4co#d4 o3>>g4<<d4cc#d4 c4d4cc#d4 
493: (t9) cc#dc#cc#dc# | ： c4d4cc#d4 : | 

494: {t9) c#<ccccccc> 

495 ： / [C 1 ] 

■196 : (t9) ol g4d4cc#d4 c4d4f#c#d4 I :c4d4cc#d4 c4d4f #c#d4 : I 
497 ： (t9) c4d4cc#d4 c4d4cc#d4 g4d4f#c#d4 cc#dc#dc#dc# : I 
498: /[E2] 

499: (t9) |2 ol gc#d#4gc#d#4 gc#d#c#rc#<<<c4>>> gc#d#4gc#d#4 
500: (t9) gc#d#ererg& 

501 ： /IF] 

502 : (t9) gc#f#4cc#f#4 | : 3c4d4cc#d4 : I g4d4cc#d4 I:c4dhcc#d4:| 
503: (t9) cc#d4cc#dc# g4d4oo#d4 | ： c4d4cc#d4 : I c4d4cc#a4 
504 : (t9) g4d4cc#d4 | ： c4d4cc#d4 : | cc#dc#f#c#d4 d#d#rd#d#rd#d# 
505 ： (t9) r<<<e#16e#16d#l6d*16d#16d#16c#16c#16c#16>>>c#16df4 
506: (t9) d#d#rd#d#rd#d# r2.<<<c4>>> g4d4c4d4 c4d4cc#dc# 

507: (t9) c4d4cc#d4 {cd#d#d#d#d#)1 r2 
508: /[G] 

509: (t9) o3>>g4<<d4cc#d4 c4d4cc#dd# c4d4cc#d4c4dc#>>b<<c#dd# 
510: / 【 E】copy 

511 ： (t9) o3> >g4<<d4cc#d4 c4d4cc#dd# c4d4cc#d4c4dc#> >b<<c#dd# 
512: (t9) > >g4<<d4cc#d4 c4d4cc#dd# c4d4cc#d4c4dc#> >b< <c#dcf 

5131 (t9) olg4dc#f#4d4 c4dc# f #c#d4 »-1 ： c4dc#f#4d4 c4dc#f#c#d4 ： | 
514.: (t9) c4dc#f#4d4 c4dc#f#c#dc# « 

515 ： / [E3] 

516 : (t9) ol g4d4cc#d4 c<<<eeeeeee>>> 

617 ： / [H] - 

518: (t9) 〇 3 |： >>g4<<d4cc#d4 | ： 3c4d4cc#d4：| : | 

519 ： /[I] 

520 ： (t9) o3 |:4 |:4c4d4ccfd4:| :| 

521 ： (t9) ol t50 gl : | 

522 ： 

523 ： /- 

524: 

525: (p) /play all tracks 

526 : /(p4,5,6,7,8,9) /karaoke 
527 ： /(p4,5,6) /Gt k Kb 
528: /(p8,9) /Ba & Dr 


| リスト S 恋をしようよ Yeah ! Yeah ! コンフイグファイル 


恋をしようよ Yeah! Yeah! ADPCM 設定ファイル 

.olg 

=.ole#,ra34 

ole# 

=KICK1.pera,v45 

. ola 

=.old#,m34 

old# 

=SHPS.pem,v65 

. o3c# 

=.ole# 

olf# 

=H02.pem,v70 

.o3d# 

=.old# 

olg# 

=H01.pem,v70 

.o3c 

=•o3c#,m35 

ola# 

=CRSH1.pem,v50 

. o3d 

=.o3d#,m35 

olb 

=RIDE1.pem 

.o4c 

=.o4c#,m27 

o4c# 

=POWTl.pem,v30 

. o4e 

=.o4e#,m27 

o4d# 

=POWT2.pem,v30 



o4e# 

=POWT3.pcm,v30 

. o2e 

=.ole,m25,dl30O 



.o2f 

=.olf,m25,dl300 

ole 

=.ole#,m30 

. o2ii 

=.olg# t m25,dl30O 

old 

=.old#,m30 

. o2g 

=.ol2im25 ( dl300 

ole 

=.ole#,m32 

. o2a 

=.ola,m25,dl30O 

olf 

=.old#,m32 




.erase 34 


| リスト3恋をしようよ Yeahl Yeahl カウンタ表示 

/恋をしようよ Yeah! Yeah! ステップカウント 

/ 1 ： 000088E0 00000000 2 ： 000088E0 00000000 3 ： 0O0088E0 00000000 4 ： 000088EO 00000000 
/ 5:O00088E0 00000000 6:00006540 00000000 7 ： 000065A0 00000000 8 ： 014D88E0 00000000 
/ 9 ： 000088E0 00000000 


111スト 4 ゆめいっぱい 


日本音楽著作権協会(出)許諾第9270994 -20 1号 


10 /*/*/*/*/*/*/»：/*/*/*/*/*/*/*/*/»/»/*/♦/«/*/»/*/*/»/*/*/* 

20 /* FOR X68000+SC55 /* 

30 /本 一ゆめい〇ばい- /* 

40 /* 一ちびまる子ちゃん TV アニメパージョンー /* 

50 <作曲/編曲 嫌田哲郎 > /* 

60 /* /拿 

70 /* PROGRAMED BY lAfl /♦ 

80 /*/*/*/*/*/*/*/*/»/"*/*/*/ 本/*/*/*/*/*/*/*/*/*/*/*/*/*/本 

90 /t 

100 m_init():m_ch( ’’MIDI"} : key 3,"m_stop{)"+chr$(13):ac55_print 
("Chibi Maruko Chan") 

110 dim char rs(3)=(&H40,0,&H7F,0} 

120 ro_roland(&H10,4H42,ra) / * S C 5 5 をエ « 出荷状慂に初期 f 匕 
130 for i=l to 16:m_alloc(i,1500):ra_asaign|i,i) : next 
140 str a[256】，b[25 巨], c[256],d[256]Te[256],f[256】 

150 str x[l2]="@iS41,17,$42" 

160 dim char rv{6)={4,4,O,&H70,&H40,0,0) : ac55_reverb(rv) /* 

リパーフ 15$ 

170 dim char ch(7)={2, 0 ,&H6E,8 f &H50,3,13,01：sc55_chorus(ch)/* 
コーラス 12 定 

180 dim char dr{3)=(&H40,&H1A,&H15,&H2} 


190 m_roland(4H10 ,&H42,dr) /*PART11 をドラム 2 に拉定 

200 dim char dm(3)=(&H40,&H1B,&H15,&H1} 

210 m_roland(&H10,fltH42,dm) /* PARTI2 をドラム 1 に _ 

220 dim char dn(3)={&H40,&H1C,&H15,&H1) 

230 m_roland(&H10,«tH4 2 1 dn) / 家 PART13 をドラム 1 { こ ■ 

240 for i=1 to16 : m_trk(i,x+"r2") : next 

250 dim char pr(15)={l,2,4,2,1,1,2,1,0,1,2,1,2,2,1,11 ： ac55_v_r 
eaerve( pr ) /* ノくーシャノレリザー ;^ 

260 dim char ks{3)={&H40,&H1A,&H16,4H3E) ： m_roland(&H10,&H42,ks 
)/ り、•一 卜 11 をキーシフト 
270 /本 
280 /* 

290 /* MML 設定 
300 /* 

310 /本 

320 /* シンセサイザ ー 1 

330 a="116 zl 27,120,115,120,127 r4dc+>b く c+d2ic d4f+edef+2 z q7g 
214cg gf+ed gd+ga+ afa く cq8 

340 b= ,, 18>_l5b-lalglg2a4<c4>b-lala2e-.f.ga2a.g.ab-lgl _10«-4&f 
4&e-4&d-4&c2f2i 

350 c="_10fl&_lOf2_10&f211rr >b-gof '30ddg« cf"10b-2a2~15b-2<c 
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2>_25e-lflb-lglrlrlrlr2. 

360 d="~25dl6f16<dl6f16_1518b-lalglg2a4<c4>b-lalg2e-.f.ga2a. 2 . 
ab-lb-2 

370 m_trk(1,"®y1,$63,$3d@5Io5v9@e70,90"+a):m_trk(15,"Oyl,$20 , $ 
35v9@4 9o5@pl0@e 60,60 ._+a) 

380 m_trk(1,b) ： m_trk(15,b) 

390 ra_trk{1,c) ： m_trk(15,c) 

400 in trk (1,d) ： m_trk {15 ,d) 

410 /* シンセサイザ ー 2 

420 a="116 2127,120,115,120,127r4bagab2&. b4<dc>b<cd2 z q7e2>14 
a く e dc+>ba <d+>a+<d+g fcfaq8 

430 b="_1518fIfle-le-2f4g4flfle-2>b-.<c.de2e.e-.ffl>b-l >_8 ， b- 
4<b- , & , a4<a , & , g4<2'& , g-4<g- , & , f2<f*< l f2<c , & 

440 c="_10 , fl<c , &_lO , f2<c»_10& , f2<c»llrrrrrr ~30»g-a , 'g-a 1 *b-< 
d ，， b- く d*'e-g ， ~10 , df2*'d-e2 1 '10*dfa-2 1 ， egb-2 ， _17•gb-1 1 *a<ce- 
1， * <df1''b- く dl*rlrlrlrl 

450 d="~518<fIfIe-le-2f4g4flfle-2>b-.<c.de2e.d+.fflf2 
460 ra_trk{2,"eyl,$63,$3de51o4v7@e70,90"+a):m_trk(16,"ey1,$20,$ 
35 v 7049040 pi1Ode 60,60 "-fa) 

470 ra_trk(2,b):m_trk(16,b) 

480 ra_trk(2,c):m_trk(16,c) 

490 ra_trk(2,d) ： m_trk(16,d) 

500 シンセサイザ ー i" 

510 a="@e80,20®49vl 01102 , g<dg<d , 'b<f+b<f+'<»cg<cg*'dg<dg f *d+g 
<d+g4'> *at<d+a + <d+4 » < *d+g<d+g4'，ga + <ga+4, ， fa<fa4, , cf<cf4 »» fa<fa 4 
'* a<ca<c4' 

520 b="_10>'b-<df<b-'< , dfa<d , 'e-gb-Ce-' 1 fa<ce- 1 > »b-<df<b-*< *df 
a く d ，， e-gb- く e- ， ， fa く ce- ， > ， b- く df く b- 1 *gb-<dg'< 1 g-b-<d-» ， fa<c ， 

530 c="®7v 98690,1003 @yl,$20,$3bl4| : | : il27,0'b-<df. 1 ,4 ： I*b-<df 1 
I *gb-<d. 1 ： | 1 gb-<d* | : *ce-gb- . 1 ： I 1 ce-gb- * | : *fa<ce-. ' : I , fa<ce- > 

：I I ： I ： 'd«-a<c.' : | , dg-a<c , :||:|: ， gb-<d. ， ： | ， gb-<d，：| 

540 d=" | :'ce-gb-.• : I’ce-gb-'| ： 1 fa<ce-. 1 ：I *fa<ce-* | : *b-<df.* : I 1 
b-<df*| : *b-<dfa-. f : | , b-<dfa- 1 ® 4804116 @yl, $20,540 ®yl,$64,$50®e 

110,20 vlO|:iO,0e-gb-<e-ge->b-g : | |:i0,0fa<ce-fe-c>a : | | : i0,Ob-<dfb 
- <d>b-fd> : || : gb-<dgb-gd>b-:| 

550 e="eel20,90®31®yl,$21,$4a®yl,$20,$ 330318 r8v7I: ■c>c 1 ,0 : |r 
2| ： 4 , c>c , : Iq7r4.@bO,-4000,70 1 f>f2 1 ®b0, -4000 ,50 1 f>f4.•®b0 ， f>fl6" 
f>fl6, 丨 ： 4 ， f>f4,：| 

560 f="«yl,$20,$40@yl ,$21 ， $40q8fie 80,20 @49v 91102 *b- く dfXb-* <'dfa 
<d 1 ' e-gb-<e - 1 ' f a<ce- ’>’i>-<df<b-’<’dfa<d" e-gb - く e- ’ ’ fa く ce- ’ > ' b-<d 
f く b- ， , b-<df<b-2 , 

570 m_trk(3,a) 

580 m_trk(3,b) 

590 m_trk(3,c) 

600 ra_trk(3,d) 

610 ra_trk(3,e) 

620 mltrk(3,f) 

630 / 本シンセサイザ ー 4 

640 a="fiel 20,80 @yl,$20,$3a @yl,$64,$55 Qllo6v 514 dlrlrl<gf+ed 
v09 q5gd+ga+ afa<c>b-lalglafa<c>b-lalg2e-8.f8.g8a2a8.g8.a8b-l 一 15 
glg-fe-d-cl|:14rl ： |~15b-2a2a-l glalb-2b-2gl rlrlrlrl 
650 b="b-lalglafa<c>b-lalg2e-8.f8.g8a2a8.g8.a8b-1 
660 m_trk(4,a) 

670 m_trk(4,b) 

680 /* サクソフォン 

690 a="®yl I $2C,$39eyl,8,$4c0yl,9,$4bll6rlr2... 30032 &g4r2 . '2 
0f32&g8. .e32&f + 8. . d32&e . @h20@ 111100 @b0,-2000,4 4d4 . «b9mc . cd8e8@m90e 
4@md8c8fih5e@mlO0d&f2..." 

700 b="|:8rl : |0hl00r2d4. f&e&d+«k64d&«k0dl A 8 f+4&f8&d 十 8 c+4&f2 
*8 f4&d+8 dl 

710 m_trk(5,"© 6.604 vl4@el00,20"+a):m_trk(6,"®b 5006604 vl4@el00,2 
0"+a) _ , 

720 m trk(5,b):ra trk(6,"@b50"+b) 


730 / 本シンセベース 

740 a="ee60,10«yl,$20,$3O«38vl 20118 q6 |:4g く g>:| 丨 :4b<b> : |<| ： 4c< 
c> ： ||:4d<d> : ||:4d+<d+> : |f<f>f<f>fcdf 

750 b="_10o2q8>| : b-fgb-4fgb- <d>ab<d4>ab<d e->b-<ce-4>b-<ce- f 
cdf|&fcdf>:|f.f.f |:4b-<b-> ： ||:4g<g> ： || ： 4g-<g-> ： |I:4f<f> : | 

760 c="*15| ： 14b-b-b-b-8b-8 gggg8g8 cccc8c8 ffg8f8b-8f8:|<dddd8 

d8 dddd8d8 >Sggg8g8 gggg8g8 cccc8c8 ffff8f8 b-b-b-b-8b-8 b-b-b-b 

—8b-8 

770 d="e-.e-.e-8e-8 f . ®b0 ， -2000 ,0f8&«b-2000,0f 8&@b0f 8f 8f-8 b-. b 
-,b-8b-8 g.gd8e8g8 r8c8c8c8c8c8d8e8 f8c8c8c8c8c8d8e8 f2f2fff8c8f 
8c8 

780 e=" 1001181: b-fgb-4fgb- <d>ab<d4>ab<d e->b-<ce-4>b-<ce- fc 
df|4fcdf>:|f.f.f b-1 b-1 
790 m_trk(7,a) 

800 ra_trk(7,b) 

810 m_trk(7,c) 

820 m=trk(7,d) 

830 ra_trk(7,e) 

840 ドラムス 1{BassDrum) 

850 a="®rlfiel0O,10v09@ 11402 k-lr8| :120 ccc:|cccc8ccl6cl6c8c6c6o6 
r8| : 3cccc : |cccc8 ~10| : 8c2..c8c8r2.. ： ||:c.c.c c.cc8c:|c2c 20202 cc 
ccccccr 8 | : 6 cccc : |cccc 8 ccl 6 cl 6080606 c 6 r 8 cccc 
860 m_trk(10,a) 

870 /* 卜 . ラムス 2(SnareDrum&tamburin) 

880 a="eriee 120,5 vl0@p80@49 140 2|:20d:Idd*42d32d8d8d 】 6dl6d8 | : 
7 ， d<f+ ,, d<f+ ,, d<f+ ,, d<f+ , : | , d<f+ , dl6dl6d8 , d6<f+ , *d6<f+*»d6<f+» | 

:lVcKf+i : rd く f+8, 丨 :5dl6: |rl6 | :32rd: | 

890 b="| ： r2.'cKf+'rZ.d : 丨 _ 15r8d8d8d8d8r2d8d8d8d8r.ddddddd8dl6dl 
6dl6dl6d815 

900 c= •• 丁： 7 , d<f+ , , d<f+ , , d<f+ , , d<f+ , : I ， d<f+,dl6dl6d8 ， d6 く f+, く f 
+ ' »d6<f+' , d<f+ , 'd<f+ f, d<f+8 , | ： 5dl6:| 

910 m_trk(ll,a) 

920 m_trk(11,b) 

930 ra_trk(11»c) 

940 / 本ノく一カツシヨン { ハント • クラッフ • > 

950 a="erl@e 50,0 v11® 11802 |: 5d+4d+4d+d+d+4 : I d+4d+*42d+32d+d+d 
+ 16d+16d+|:7d+4d+4d+d+d+4 : |d+4rl6rl6rd + 6d+6d+6|:4d+4d+4d+d+d+4 : I 
| : 16rl ： ||:8rl : || ： 7d+4d+4d+d+d+4 : |d+4rl6rl6rd+6d+6d+6d+4d+4d+d+d+ 
4d+l 

960 m_trk(12,a} 

970 /* 卜 • ラムス 3(hi-hat & Cymbal) 

980 a="@rl@e50,30v8eil8o3 c+>I:47f+ ： |<<<v6®p40116| : 120a+ ： |o3c+ 
6c+6c+6o5|:64a+: 102181 :128f+:|I ： 32f+ ： |rf+f+f+f+r2f+f+f+f+r4.a+f+ 
f+f+f+f+f+f+f+f+f+f+f+a+f+f+ 05116 |:120a+ : |o3c+6c+6c+6o5I:16a+：|o 
3c+l 

990 m_trk(13,a) 

1000 /*raerody 

1010 a="@e 80,20 Vl6o5®h50®m30q718 |:8r8i127,0:|rl®48rlrlrlrl_15 
1020 b="'15ffffddf>a4a4a<d4fr ggggd+d+gg4ag4f4d+r ffffddfd4d4df 
4ar g^ggd4 . f . ga4 . ra~ 16g - '16aa+l&a+2r2rlr 1 > 

1030 c="_15r4a+4aa+4<c& c4>a+4aa+4<d &d2d+4dd &dc2.r> r4a+a+a+a 
+ 孕 + a+ <c4 >a + a+aa+4 <g &g4g4g4 f f& f2.dd + 

1040 d= H d4d+d2dd4d+4d4e4c4.c>a+4aa+2.g4a+<d4cc4.c>a+aa4ag4aa + l& 
a+2..b-4 

1050 e="<g2.b-4a4a4ga4ab-4b-4b-a4gd2r dddc2rdddc4.r> ' fb-4'< , gd , 
'fc' ， gd ， *cf2.'fc'cfl'r 
1060 m trk(14,a) 

1070 m_trk{14,b) • 

1080 m_trk(14,c) 

1090 m_trk(14,d) 

1100 m_trk(14,e) 

1110 mltrk(14,b) 

1120 m_tempo(140) ： m_play() 


(善）のゲームミュージックで八’ビンチヨ 


セガ「シャドーダンサー」の基板を買った。こ 
のゲーム，やたら難しくてゲームセンターでやっ 
てた頃はステージ丨さえクリアできなかったんだ 
が，これで思う存分遊べます。この基板，ナムコ 
のシステム2みたいになんとかステレオに出力で 
きないかしらん。ど一も CRT から聴こえるこもっ 
た音では迫力に欠けるので。情報待つ。 

鲁ダライアス /TAITO ZUNTATA 
CDiPCCB- 00093 

ボニーキャニオン 1,500円（税込） B/21 発売 

以前に紹介した 「OUTRUN」 「忍者ウォーリアー 
ズ」同様の復刻版シリーズ。オリジナルサウンド 
にアレンジ2曲を収録。しかし，あの頃のタイト 
一って「忍者ウォーリアーズ」にしろ，この「ダ 
ライアス」にしろ，他社とは違った独自の育楽セ 
ンスで光ってましたねぇ。 

「ダライアス」では， 「COSMIC AIRWAY」 は私は 
名曲だと思うな。 YM0 を彷彿させるようなちょっ 
と日本風味の味つけのメロディに，わが道を行く 
リズム。メロディもなんか裏返ったようなどぎつ 
い FM シンセ，しびれるな一。ダライアスというと 
みんな 「CAPTAIN NE0」 に目がいきがちだけど私 
は 「COSMIC 〜 j を推すな。 


さて，アレンジバージョンはなんとなくこの間 
聴いた YM0 のリミックスアルバム 「H 卜 TECH/M0 
CRIME」（ALFA:ALCA-323) を思い出させた。 

お勧め度 8 

籲スーハ•ーファミコン•ゲームミュージックサイバリオン 
CD:TOCT-6617 

東芝 EMI 3,000円（税込） 8/12発売 

スーパー ファミ コン（以下 SFC) の音源てやつは, 
スゴイスゴイと初めはいわれていたけど，関係者 
から話を聞くといろいろと問題 • 制約があるよう 
で。んで，各社独自の技術でそれらを解決してい 
るんだね。この SFC 版サイバリオンも，そういった 
問題•制約をちっとも感じさせない，かなりの完 
成度だ。 AC 版とはまったく違った，全曲 SFC 版のた 
めの書き下ろし曲が収録されている。 

私は SFC も持ってないし， SFC 版サイバリオンも 
遊んだことはないのだが，そんな私でもこのアル 
バムはすっかり気に入ってしまった。2トラック 
目の「戦い〜勇者朝日に向かう」ってやつがいい 
ね，ちょっとダンサンブルで。リズムを補間する 
感じのベースライン，単純なピアノのバックに乗 
って學開するアドリブ調メロディ。 

ちなみに音楽監修はすぎやまこういち氏だそう 


です。 お勧め度 9 

•魂斗羅スピリッツ/コナミ矩形波倶楽部 
CD:KICA-7604 

キングレコード 2,800円（税込） 8/21発売 
SFC 版の「魂斗羅スピリッツ」のオリジナルゲー 
ムサウンド全曲と，アーケード版，ファミコン版, 
MSX2 版，ゲームボーイ版の「魂斗羅」「スーパー魂 
斗羅 j のダイジェスト，さらに「魂斗羅スピリッ 
ツ」の MIDI アレンジバージョンまで収録された超 
もリだくさんのアルバム。 

SFC 版のサウンドは，壮大なオーケストラ構成 
のシン フォニック あり，緊張感あふれるへビメタ 
サウンドありと，2万円そこらのゲーム機から奏 
でられているとは思えない音質と音楽性で，一聴 
の価値あり。 お勧め度 9 
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善バビスペシャル 


対談!！ GM コンポーザー 


第4回 S.S.T.BAND 

今月はセガ•サウンド•チーム， 「 S . S . T . BAND 」 

の皆さんのお話をうかがうことができました。 

松前公高（以下松）：キーボードとコンピュータを 
やってます，松前です。 

並木晃一（以下並）：ギターと MC とリーダーをや 
ってます，並木です。 

飯島丈治(以下飯）：ギターとオタクをやってます， 
飯島です（笑)。 

西川善司（以下善）：さて， FI のべ ルガー の テーマ 
ということで S . S . T . BAND の曲がこの間かかりまし 
たが，ということはつまり T - SQUARE などと肩を 
並べたということですかね。 

飯：いや，でも身長はそんなに変わんないと…… 
(笑 )。 

善：新幹線「のぞみ」のブロモーションビデオで 
内装かなんかを紹介しているとき，バックでギャ 
ラクシーフォースがかかってましたよ。 

飯：う一む。それでビス飛ばされちゃった日には 
たまりませんね一（笑)。 

SST . BAND とセガンド•トム 

善 ： BLIND SPOT の発売以後，ずいぶんと前面にク 
ローズアップされてきていますが，ちゃんとゲー 
ムミュージックも作られているんですか。 

並：ええ。それがメインで.逆に合間にこういっ 
たバンド活動をやっています。 

善：ふ一む。よかった。 S . S . T . BAND というのは総 
勢何名くらいで構成されているのですか。 

並：ええと。アーケードなどのゲーム ミュー ジッ 
クを担当しているのはだいたい20名くらいですね。 
LIVE や BLIND SPOT などのような S . S . T . BAND の活 
動をしているセガの社員は2名です。 

善：すると， S . S . T . BAND ってたしか6人構成だっ 
たと思いますが，あとの4人は？ 

飯：ふだんはふつうのミュージシャンです。だか 
ら私ゲームミュージックよく知らない（笑)〇 
(注：今回お話をうかがった3人のうち，セガの社 
員でかつ S . S . T . BAND の方は並木さんだけです） 

善：オリジナルとゲームミュージック，2つのお 
仕事に感覚的な違いってありますか。 

並：ゲームの場合には目の前に絵がありますが， 
オリジナルの場合はそういうのがないですよね。 
つまり，オリジナルは自分のなかにある蓄積され 
た感性によって作曲していくわけです。でも，い 
ったん作り始めちゃうと特に違いはないですね。 

ま，好きなことができるぶん，オリジナルのほう 
がいい面は多いですが。 

善：今後どんどん活躍されていくなかで，インス 
卜•バンドという枠を打ち破ってポーカルが參加 
してきちゃうみたいなことはありえますかね。 

松：う一ん，周りに歌がうまいやつがいないって 
ぃぅ……（笑)〇 

並：いきなり，こいつのために曲が害きたい！ 
なんていうポーカリストが現れたりしたら，たぶ 
ん……。 

松：基本的に「声」というひとつの楽器としてと 


らえていますし。我々は特にインストというジヤ 
ンルにこだわりはありません。 

善：そうですか。んじゃ，ちょっと質問の方向を 
変えまして。せっかく Oh!X ですから（笑)。ちょっ 
と突っ込んだ質問をいくつか。セガさんは曲作り 
と打ち込み人というのは分かれているんですか。 
並：いえいえ，うちは昔っからひとりで全部みん 
なやりますよ。効果音から打ち込みからね。音源 
ドライバなどもやりたくはないんですが，自分で 
やってますね。 

善：ファンタジーゾーンとか，アウトランとか， 
ギヤラクシーフォースとか，いろいろ好きなのが 
あるんですが……。 

並：あ，ギヤラクシーフォースの 「Beyond the galaxy 」 
とかは私の作品です，ど一も （笑)。 

善：……そこで，年々ハードがパワーアップして 
音源の発音チヤンネル数などが拡大されてきてい 
ますね。そういった進歩が曲作りにどういった影 
響を与えますか。 

並：発音数が増えたから，というようなことは， 
我々制作者側からはそれほど大きな問題ではない 
ですね。やはり，小容量の ROM を使っていいものを 
作るといったことが，我々技術者にとっていちば 
ん要求されることですね。なかなか辛いところな 
んですけど。 

善：ふ一む。というと，ただ音楽ができるという 
だけではダメなんですねぇ。 

並：ええ，それはもう。我々は作曲家というより 
は技術者ですから（笑)。 

善：ゲームの企画の段階から曲を害き始めちゃう 
んですか，それとも画面などができてからとか？ 
並：企画からかかわる場合もありますし，ま， い 
ろいろですね。音関係はすべてこちらに任せてく 
れる場合もありますが，なかにはドラムのフレー 
ズまで指定してくる場合もありますよ。過去の例 
から見ると，全部任せてくれたほうが， いい もの 
が上がりやすいですね。 

善：ほかのライバル社のゲームミュージックとか 
を意識されたりしますか。 

並：う一ん。どんなチップ使ってるかとか音源は 
何かとか，そういった技術者の目で見ち ゃい ます 
ね。やはり。 

善： FM 音源などは最近のゲームミュージックな 
どでは常識化していますが，ああいった音源でい 
かに面白い音を出してやろうかという研究はいつ 
もされているのですか。 

並：はい。それは技術者の宿命です（笑)。うちで 
は膨大な FM 音源音色と PCM 音色を丨力所に集め 
て管理し，それをネットワークによりアクセスで 
きるようにしていますね。 

善：おお。それはすごい。 

音楽と音源 

善：皆さん最近一目匿いてる MIDI 楽器などは？ 
松：やはりローランドのサウンドキャンバス SC - 
55 ですかね。 


並：実は我々みんな持ってるんです，あれ。よく 
SC -55 は音が悪いなどという DTM マニアの 方がい 
ますが，どういった了見でそんなことをいうので 
しょうかねえ。我々が音楽を始めた頃と比べれば， 
考えられないほどいい音が揃ってると思うのです 
がね。結局，使う人のセンスの問題だと思うんで 
すが。 

松：楽器のスペックと音楽のよさとはほとんど無 
関係なんですよね。極端な話，ギター丨本ピアノ 
I 台でもいい曲なんてのはいくらでもできますし。 
並：サンプリング周波数がいいだとか， SN 比がい 
いだとか，そういったカタログ的なスペックより 
は，要はその楽器の出す音が音楽的であるかとい 
うことだと思うんです。もしそうでなかったら， 

1970年代の音楽を全部否定することになってしま 
うんで。ま，こういうメッセージを最近の DTM マ 
ニアの方々に送りたいですね。 

松：私なんか，ピアノと茶碗と箸とラジカセで音 
楽作ってましたからね。 

並：旅先なんかにも持っていけますし， SC -55 は 
重宝してます。 

松： SN とかアタックとかそういった面では SC -55 
は弱いところがありますが，11220や D シリーズな 
どのいい音ばかりをセレクトしてありますから。 
ひとつのシンセの使い方をマスターするまでには， 
かなりの時間を要しますよね。でも，そんな時間 
があったら音楽作ってたほうがいいわけです。で 
すから，いい音をチョイスしてプリセットしてい 
くということは大事なんですよね。ま，そんな意 
味からしても SC -55 ってのはすごいわけです。 

飯：口ーランドさん，なんかくれないかな。 

一同：大爆笑 

松： X 68000 にも内蔵音源がありますよね。だか 
ら， SC -55 がなくてもいくらでも音楽はできます 
よ。音源のスペックにとらわれないで音楽しても 
らいたいですね。 

並：そうそう，あの JACCS の CM なんか，そこらの 
もの叩くだけで音楽してたでしょ。 

飯：あぁ，あの T 2 の警官みたいな白人がキャベツ 
切ったりするやつね。 

松：シーケンサでも使いにくかったらそのシーケ 
ンサの操作体系にインスパイアされて，そのシー 
ケンサならではの曲を作ることもできますね。 

善：なるほど……。 

BLIND SPOT 

蕃： アルバム 「BLIND SPOT 」 では，5トラック目 
の 「SEVENTH FLIGHT 」 というのが好きなんです 
が，メンバーの方に直接なんかコメントがいただ 
けると鑑賞の幅が一層広くなると思うので。 

松 ： 「SEVENTH FLIGHT 」 のアドリブ的なシンセ • 
ソロは，実は私ともうひとりのキーボーディスト 
で作ってるんです。あれは半分が手弾きで半分が 
打ち込みで，コンピュータと人間との融合を実現 
しています(笑)。初めから終わりまで完全に楽譜 
化した曲よりも，その場その場の感覚で仕上げて 
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い.くといった曲のほうが楽しいですね。 

飯：頼まれもしないのに，勝手にソロで埋めちゃ 
ったりしたな一（笑)。 

並：メンバーどうしがインスパイアされて生まれ 
てくるフレーズは大事にしたいなと思っています 
ね。私の音楽の最終目標の一部でもありますね。 
飯：将棋の名人戦みたいな。「う一む。そうきまし 
たか」みたいなね（笑)。 

松：ただ，そればかりだとムチャクチャになるの 
で，ある程度のガイドラインは必要ですけどね 
(笑)。 

これからの S . S . T . BAND 

蕃：あの 一， 海外進出とかは考えてないんです 
か？ ゲームミュージック というジャンルは，海 
外でもっとも知名度が高い和製音楽だと思います 


し，セガの知名度もかなりのものですよね。 

並：う一む。イタリアでは「セガ」ってのは「才 
ナニー」という意味の言葉らしいですね（笑)。 
ま，それはさておき，海外進出はぜひボニーさん 
の力でなんとかしていただきたいな，と（笑)。 
飯：自衛隊じゃないですが，行けといわれたら行 
きます，我々は（笑)。 

並：飛行機，嫌いだしな一。新幹線で行けたらい 
いんですが。 

飯：他社さんが海外レコーディングとかいって盛 
リ上がってましたな。 

並：そういやカシオペアのインタビュー記事で， 
オーストラリアでレコーディングしたときの丨日 
のスタジオ代が I 〇万円程度だったってのがあった。 
我々が使ってるところよリ安いよね。 

飯：海外のほうが安くあがるな……。 


善： （海外進出っていったい…… ） では，最後に 
8月の GAME MUSIC FESTIVAL '92 に向けての意気 
込みを。 

松：皆さんのリクエストになるベくお応えした構 
成で，オリジナル，ゲーム ミュージック ともに， 
ライブならではのアレンジを施してお届けする予 
定です。 

飯： ま，お祭りなんで。笑かすことに命張ります 
んで（笑)。 

並：年内にもう丨枚アルバム出しますんで，よろ 
しく 一0 

なんだかとても知的な感じのする S . S . T . BAND の 
皆さんでした。 

というわけでゲーム ミュージックに， オリ ジナ 
ルに，ライブに，パワー全開の S . S . T . BAND をこれか 
らも応援してあげてください。んでは。 


S . S . T . BAND ディスコ グラフ ィー 


★ギヤラク シーフオース 


CD : D 28 B 0002 2,627円（税込） 

1988年7月21日発売 

★パワードリフト&メガドライブ 

CD : D 28 B 00 I 0 2,627円（税込） 

1988年12月28日発売 

★スーパーソニックチーム 

CD : PCCB - 00009 2,500円（税込） 

1989年10月21日発売 
★メガセレクション 


CD : PCCB - 00014 2,500円（税込) 



1989年12月15日発売 
★アフターバーナー/セガ 
( G . S . M . 1500シリーズ） 


CD : PCCB - 00032 
1990年6月21日発売 

★ハイパー ドライブ 

1,500円(税込) 

CD : PCCB - 00035 
1990年7月21日発売 
★ S . S . T.BAND LIVE 

3,200円(税込) 

CD : PCCB - 00042 
1990年10月31日発売 

★フオーミュラ 

2,500円(税込) 

CD : PCCB - 00059 
1991年4月21日発売 

★ストライクファイター/セガ 

( G . S . M .1500 シリーズ） 

3,200円（税込） 

CD : PCCB - 00067 
1991年8月21日発売 
★ メガセレクション II 

1,500円(税込) 

CD : PCCB - 00077 

1991年12月15日発売 

2,500円(税込) 

★ヴァー チヤル オーディオ f-IGP 
ザ • エグゾースト•サウンド 

CD : PCCH - 00015 

1992年1月21日発売 

2,800円（税込） 

★アウトラン/セガ （ G . S . M .1500 シリーズ） 

CD : PCCB - 00081 

1,500円（税込） 



1992年2月21日発売 

★ BLIND SPOT 

CD : PCCB - 00085 2,800円（税込) 

1992年4月29日発売 
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八ードウェアエ作入門（27〕 


<1 



コンピュータアーキテクチャ編 



デジタル論理回路を学ぶ 


Misawa Kazuhiko 

三沢和彦 


今月は，先月号で設計した1桁加算器を日桁に発展させ，デジタル回路で設計 
し直します0そこで，ソフトウェアで設計したものを，効率よく八ードウェ 
アで設計するための知識を解説していきます。 


今月は8月号で設計した加算器を実際の 
デジタル回路で設計するために必要な事柄 
について説明していきたいと思います。ハ 
ー ドウェアに関してはまったく初めて，と 
いう読者のためにも，電子回路の基礎的な 
知識から説明を始めていきます。そして， 
実際のデジタル論理回路でよ〈使われてい 
る，汎用ロジック 1 C について説明を続けて 
いくつもりです。 

それらの説明後，先月設計した加算器に 
ついて， もう一度ハードウェアの観点から 
考え直してみましよう。先月はあくまでも 
論理演算というソフトウヱアの観点から設 
計したので，実際にハードウェアを製作す 
るためには，もう少し検討すべき点がある 
のです。今月は，1桁どうしの加算をデジ 
タル回路で実現することから始め，さらに 
桁上げを考えた2桁どうしの加算器まで発 
展させていきたいと思います。 

なぉ，今月は予定していた以上に内容が 
膨らんでしまいましたので，工作実習は来 
月に回すことになりました。 


1 գ 電子回路の基礎 

まず，電子回路とはどういうものかにつ 
いて少し説明したいと思います。図1の豆 
電球に電池をつないで点灯させる回路を見 


てください。この回路を考えるうえで電圧 
と抵抗，電流という3つの要素を理解する 
ことが重要です。電圧は回路に電気を流そ 
うとする力，抵抗は電気の通りにくさの度 
合い，そして電流は回路に流れている電気 
の量のことをいいます。これら電圧 E , 抵抗 
R , 電流 I の間には， 

(電圧 E )=( 抵抗 R ) x ( 電流 I ) 

という単純な関係が成り立ち，これを「才 
ームの法則」といいます。 

図1の回路で電池の電源電圧を E =6 V 
(ボルト），電球の抵抗を R = 100 D (オーム） 
とすると回路に流れる電流は， 

I = E+R 

で計算でき， 6 + 100 = 0.06A (アンペア）と 
なることがわかります。 

今度は，この回路にスイッチを付けてみ 
ましよう。スイッチを切ったときには電球 
は消えており，スイッチを入れると電球が 
つきます。このときの電圧と電流の様子を 
調べてみましよう。図2のように電 i 荒計と 
電圧計とを回路につないで電球に流れる電 
流と電球の両端の電圧を測定します。電流 
はスイッチを ON にしたときには 0.06A に 
なっていますが，スイッチを OFF にしたと 
きには 0 A であることがわかります。これ 
は，電球がつくときは電流が流れていると 
きであることに対応しています。そして， 


電球の両端の電圧についても，スイッチが 
ON のときに 6 V ( H レベル）で， OFF のと 
きには 0 V ( L レベル）になっています0 

以上の例からスイッチの ON / OFF を電 
圧の H / L に対応させることができるのが 
わかるでしよう。前回述べた論理演算では， 
すべての数値を1/0の2種類で表すことに 
なります。これをデジタル論理回路で行お 
うとするならば，電圧レベルの H / L の2種 
類で表すのが適当なところです。ところで， 
論理演算は基本的に AND ， OR , NOT の3 
種類ですベて表現することができる，とい 
いました。これにしたがって，デジタル論 
理回路を考えるうえでもこの3種類の基本 
演算を実現する回路を組むことが，最初の 
問題となるわけです。 

では，電池とスイッチとで豆電球を点灯 
させる回路を使って，論理回路の AND , 
OR , NOT に相当する回路を作ってみまし 
よう。図3の3つの回路を見てください。 

図3 (1) は AND 回路になっていて，スイッ 
チ ( a ) とスイッチ ( b ) とがどちらも ON になっ 
ていないと電球が点灯しません。スイッチ 
の ON / OFF を H / L に置き換えれば，まさに 
AND 回路の論理になっています。図 3(1) の 
下にある論理表を参照してみてください。 

次に図3 (2) の OR 回路は，スイッチ ( a ) と 
スイッチ ( b ) のどちらか一方が ON になって 


図1 


図2 スイ ッ チの ON / OFF による H / L レベルの区別 


㊉ 

JZL 

也 寅)電球 =[) 

© I 


電子回路記号 



E = R x I 
(オームの法則） 


爾流計 OA 



電圧計 

OV 

II 

L レペル 


スイッチ OFF 
OFF — し 


0 . 06 A 



スイッチ ON 
ON—H 


148 Oh ! x 1992.9- 
























































いさえすれば，電球は点灯し 
ます。これも論理表を見てく 
ださい。なお，図3 (3) の回路 
は余計な抵抗が入っています 
が ，とりあえず無視してくだ 
さい0この回路でスイッチが 

OFF の状態では，電流が電球 
のほうを流れるため点灯しま 
す力 5 '，スイッチを ON にする 
と今度は電流がスイッチのほ 
うに流れてしまい，電流が電 
球のほうに流れなくなってし 
まうので消えてしまいます。 

したがって，スイツチの ON / 

OFF と電球の ON / OFF と力 5 ' 

入れ替わっているわけです。 

これはまさに NOT 回路に相 
当しています。 

このように電圧の H / L で 
論理演算 AND , OR ， NOT の 
1/0を表現する回路を構成することができ 
るのです。 

しかしながら，いま述べたように豆電球 
とスイッチの回路では，かさばるうえに使 
い勝手もよくありません。そこで，論理演 
算を行う回路をパッケージしたデジタル 
1 C の出番となるわけです。 


図 3 豆電球を使った AND, OR, NOT 回路 


(I) AND 


(2) OR 


⑶ NOT 



ヽ$イッチ 

( b ) X a, 

スィッチ ''x 

ON 

OFF 

ON 

電球 

ON 

OFF 

OFF 

OFF 

OFF 
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基本デジタル 1 C 


デジタル ic には大きく分けて， 

1) 汎用ロジック 1 C 

2) 専用 LSI 

の2つのグループで考えることができます。 
今後，使っていくのが 1) の汎用ロジック 1 C 
で，これはコンピュータの基礎となる論理 
回路である AND ， OR , NOT の基本回路を 
ベースに，それらの組み合わせでできる回 
路をパッケージにしたものです。これには 
TTL ， C - MOS といういくつかのファミリ 
に分類されています。同じファミリのなか 
で電気的特性が揃えられていて，接続が簡 
図41桁加算器 




単になるようにしてあるのです。 いくつか 
あるファミリでも， TTL の LS タイプと C- 
MOS の HC タイプがよく使われています。 
LS タイプは現在のデジタル論理回路の標 
準となっているシリーズで，極めて豊富な 
種類の 1 C が揃っています。この連載ではこ 
の LS シリーズをメインに使って いくつ も 
りです。 

一方， C-MOS は消费電力が小さく，電源 
電圧も 2 〜 6V と幅をもたせることができ 
るため，使い勝手がよくなっています。こ 
れまでの主流だった LS シリーズとほぼ完 
全に互換性があるので，従来の設計に変更 
を加えることなく， HC シリーズを使うこ 
とができます。しかしながら， LS シリーズ 
のすベての品種をカバーし てい るわけでな 
く，実際，今回の加算器に使おうと思った 
1 C も LS シリーズにはあって， HC シリーズ 
にはありませんでした。 HC シリーズは電 
源に電池を使うことができるので非常に魅 
力的ですが，今回は LS シリーズを使うこと 
に絞ることにします。 

図5ゲートの組み替え 


1桁加算器の製作 


先月述べたように1桁の加算器は，排他 
的論理和 XOR と呼ばれる論理回路と同じ 
ものです。 XOR の回路図は図4のとおり 
で，上の位は AND ゲート1個のみ，下の位 
は4つのゲート回路 （AND 2個， OR 1 個, 
NOT 1個）の組み合わせになっています。 

実際にデジタル 1 C で組むときも原理的 
には，これらの4つのゲートの端子間を配 
線してやればよいことになります。 AND ゲ 
ートは LS 08, OR ゲートは LS 32, NOT ゲー 
卜（インパ、ータ）は LS 04 t いう型番のもの 
です。しかし，この回路には少し工夫の余 
地があります。というのも，ひとつのパッ 
ケージには，同じゲートが複数あり ， LS 
08, LS 32 では4個ずつ， LS 04 にいたっては 
6個も入っているのです。それでも， AND , 
OR , NOT は別々のパッケージに入ってい 
るため，最低3個の 1 C は必要になります。 
実際に使うゲートは，それぞれの種類で1 


XOR 





X 

H 

し 

H 

H 

し 

し 

し 

し 





X Y 

X Y 

XAY (XAY) 

XVY 

しし 

H H 

H し 

し 

し H 

H し 

し H 

H 

H し 

H H 

し H 

し H 

し H 

H 

H 


AND 回路 


ハードゥヱァエ作入門 249 



























































































illustration:Y.Kawahara 


個か 2 個なので，大部分のゲートは使わな 
いままになってしまうわけです。 

これは大変もったいないことです。そこ 
で，1個しか使わないゲートをほかのゲー 
卜の組み合わせで表現することを考えます。 
図5を見てください。 AND ゲートの入出力 
端子にすべて NOT を入れてみます。論理表 
を追っていくと，なんと OR の論理とまった 
く同じになってしまいます。同様に OR ゲー 
卜の入出力にすべて NOT ゲートを入れる 
と， AND の論理と同じになります。これを 
式で表すと， 

(xAy)=xVy 

(xVy)=xAy 

となるのです。これはド.モルガンの法則 
と呼ばれるもので，これに従い XOR 回路の 
OR ゲートの部分を置き換えてみたのが図 
6です。こうすると AND ゲートと NOT ゲ 
—卜の2種類だけで XOR を表現すること 
ができるのです。 

しかし，これでは 1 C の数が減った分だ 

図6ゲートの置き換え 


け，配線する筒所が増えてしまいました。 
結局手数として変わりなければ，わかりや 
すい回路のほうがミスが少なく製作するこ 
とができます。では，元の図6 (1) の回路の 
ほうがよい回路なのでしょうか？という 
ことで，もうひと工夫してみます。図6 (3) 
のように囲ってみると，同じパターンの回 
路が見えてきます。このパターンをどうに 
かいじるこ t はできないか考えて-みます。 

この回路を図7のように変形していきま 
すと， OR と NOT の組み合わせになってい 
て，これは NOR ゲート（図7 (4))という比 
較的一般的な回路になるのです。これ自体 
が LS 36 というひとつのパッケージになっ 
ており， AND と NOT をつなぐ部分の配線 
を省略することができます。このようにし 
て工夫した XOR は最終的に図8のように 
まとめることができます。 

ここまでの様子で想像できるかと思いま 
すが，同じ機能をもつ論理回路の設計の仕 
方はひととおりでなく，いろいろなバリェ 
ーシヨンが考えられるのです。論理回路を 
製作する！；きには，それぞれに応じて都合 
のよいものを選ぶことができます。では， 
ひょっとすると XOR 全体がひとつのパッ 
ケージに入っているものがあるのではない 
か？ こう疑ってみた人は センスの ある人 
です。いまでは，デジタル回路の普及はめ 
ざましいものがあり，実際のところ，この 
ハードウヱアエ作入門で扱う程度の基本的 
な回路は，ひとつのパッケージで実現でき 
る 1 C がすでに製品化されている， t 考えて 
もかまわないほどです。 


問題の XOR ゲートは LS 86 という型番の 
ものです。回路図にも専用のゲート記号が 
あります（図9)。これを使えば桁上がり付 
き1桁加算器の下位は LS 861 個，上位は 
LS 081 個で実現できます。 



実際に計算器に使う場合，1桁どうしの 
加算器ではなんの発展性も期侍できません t 
そこで，桁上がり付きで2桁以上の加算器 
を設計する必要があります。基本的には1 
桁加算器を並べるだけなのですが，2桁目 
以上は下の位からの繰り上がりも足し込む 
必要があります。1桁加算器の実際の製作 
に入る前に，その部分を設計しておきまし 

よ5。 

まず，論理表を作ります。繰り上がりを 
キヤリ ct しておきましよう。和の部分は簡 
単で ， x ty とを XOR で足したあと，さらに 
c も XOR で足せばよいだけです（表1>。 

キヤリの部分は X ， y , c のうちどれか2つ 
が1であれぱ，繰り上がりが生じることに 
なります。そこで， x ty , x t c , ytc の3 
つの 組み合わせ について AND を取る t , 2 
つ以上が1の場合にかぎりそれら3種類の 
AND (表2の論理表で u , v , w ) の中で1 
が残ります。もし X ， y , c の2つ以上が1で 
なければ，これら3種類の AND はすべて0 
になるのです。そして，最終的に U, V， w の 
OR を取ってやれば，それが次の上位へのキ 
ヤリとなります。 

以上のキヤリ部分の説明を回路図に表す 

図フ回路の変形 
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と，図10のようにな.ります。和の部分は先 
ほど登場した XOR ゲート2個!，キヤリ部分 
は AND が3個と OR が2個の組み合わせに 
なっています。 2桁分すベての加算器を回 
路図にしたのが図11です。これを3桁以上 
の加算器にするには，図10 (図11の点線部 
分）を付け足していけばよいだけです。 
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さて，いま設計した回路をもう一度よく 
眺めると，どうも2桁目以上のキヤリ部分 


(図 10) だけゲート数が多いように見えま 


それぞれ1パッケージですみます。しかし 
ながら，この回路を実際に作ってみたとこ 
ろ，配線の数がかなり多く，1桁増やすご 
との労力もばかになりません。 

先ほど，この入門記事で製作する程度の 
回路はひとつのパッケージでできるものが 
多いと書きましたので，もしかすると， 2 
桁加算器もすでにひとつのパッケージに収 
まっているものがあるかもしれない，と考 
えてみるのも悪くありません。実際のとこ 
ろ，桁上がり付き加算器はコンピュータ回 
路でも基本的なものなので，以下に挙げる 
ようないくつかの品種が見られます。 


LS 180 1桁全加算器が1個 
LS 182 2桁全加算器が1個 
LS 183 4桁加算器が1個 
LS 282 1桁全加算器が2個1組 
LS 283 4桁全加算器が1個 
このうちよく使われるのは， LS 183 と LS 
283です。今回はこれまでに設計してきた2 
桁加算器と同じ働きをするものとして ， LS 
183を扱うことにします。図12は LS 183 の仕 
様を規格表から抜粋したものです。この 1 C 
は14番ピンの Vcc と7番ピンの GND とを 
別にすると，1〜6番ピンまでの組と8 
〜13番ピンまでの組とでまったく同じ回路 


す。この部分ももっと簡単にできないかと 
普通は考えるのですが，残念ながらもうひ 
と工夫したとしても，2個の OR ゲートの組 
み合わせを1個の3入力 OR ゲートに変更 
するだけしかできません。さらに実際には 
3入力 OR ゲートという 1 C は，製品になっ 
ていないので4入力 OR ゲートを流用する 
しかありません。いずれにしても，必要な 
1 C の個数は， XOR ゲートが3個， AND ゲー 
卜が4個， OR ゲートが2個ということで， 
図10キャリ付き1桁加算器 


表1繰り上がり付き加算の論理表 表2繰り上がりを調べる論理表 
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図12 LS 183 の規格表 
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図112桁全加算器 
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完全に独立した Full Adder が 2 個入っている 
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が 2 組入っています。それぞれの回路は図 
10の回路と完全に対応しています。要する 
に，この 1 C をそのまま使えば，ほとんど配 
線することなく目的の加算器を完成できる 
のです。 


入出カインタフェイス 

市販の加算器パッケージを使うことで， 
論理回路部分は簡単にできることがわかり 
ましたが，実際に計算するデータを入出力 
する部分がないと加算器として働かせるこ 
とはできません。そこで，次にデータの入 
出力を行う回路を設計することにします。 

入力に関していえば，通常のコンピュー 
夕ではキーボードとマウスが一般的です。 
しかし，この加算器では2桁の2進数を入 
力するだけなので，今月の最初のほうで説 
明したようなスイッチを使って入力する方 
図13入カスイッチ 


式で十分だと思います。スイッチは 1 C 用基 
板の上に直接取り付けられるタイプのもの 
が便利です。それには，少し小型ですが， 
デイップ ( DIP:Dual in Line ) スイッチと 
いうデジタル回路用のスイッチが最適です。 
これは2〜8個のスイッチが1列に並んだ 
もので，2〜8ビットデジタルデータの入 
力に使います0ここではディップスイッチ 
の ON / OFF を2進数の1/0に対応させて入 
力します。 

スイッチを使ってデジタルデータを入力 
する方法として，図13の回路が非常によく 
使われています。ただし，この回路はスイ 
ッチの ON / OFF と論理回路の H / L とが入 
れ替わるため，論理が逆転してしまうので 
注意が必要です。図 13(1) のようにスイッチ 
が ON のときは，入力端子が GND とショー 
卜してしまうので，入力端子にかかる電圧 
は L レベルに なってしまいます。逆に図 
13 (2) のようにスイッチが OFF の 
とき，入力端子は（抵抗を介して） 
Vcc につながりますので，入力端 
子にかかる電圧は H レベルに なり 
ます。このように ON — 0， OFF —► 

1という対応になります。しかし， 
スイッチにはたいてい向きがない 
ので，このまま逆論理の設計でか 
まわないでしょう。 

出力に ついて も最初に述べた電 
球の点灯で十分役割を果たせます 
力 5 '，豆電球よりは電力を食わず， 
小型で取り扱いの便利な発光ダイ 
オード (LED : Light Emitting 
Diode ) を使います。これは LED の 
ON / OFF を2進数の1/0に対応さ 
せて 出力します。この場合， LS シ 


リーズを使う場合は取り出せる出力電流の 
関係で，図14(1)， （2) のような接続はでき 
ません。基本的に使われる回路は図 14(3), 
(4) のようなものです。 

これは，（1)， （2) のように TTLIC から流 
し出せる電流が 0.4 mA であるのに対し， 
(3)，⑷のように流し込める電流が 8 mA と 
余裕があるためです。しかしながら，この 
回路も論理が反転してしまい， O - ON ， 1 
— OFF の対応になってしまいます。今回の 
回路は，練習のために簡略化しているので， 
0 40 N ， 140 FF という と害 11り^} 

って考えればそのままにしておいてもよい 
のです力 1 '，どうしても1 — ON ， 0 — OFF に 
したい場合は，図15のように NOT ゲートを 
1個はさむことで問題は解決します。 

ホ 木 ホ 

以上で目的の桁上がり付き2桁加算器の 
回路が設計できました。全体の回路図は来 
月あらためて掲載しようと思います。いろ 
いろと論理ゲートの組み合わせをいじくり 
ましたが，結局は出来合いのパッケージを 
使うことに落ち着いてしまいま'した。しか 
しながら，コンピュータアーキテクチャを 
理解するためには，前回と今回とで述べた 
ような基本的なデジタル論理回路の考え方 
が重要になってきます。慣れないうちは難 
しく感じるかもしれません。しかし，今後 
の連載の中でデジタル論理回路の設計の基 
本概念を繰り返し解説していくので，がん 
ばって ついて きてください。 

さて，来月はいよいよ製作実習です。ハ 
-ドウエアの工作がまったく初めてという 
人のために，工具の選び方やハンダ付けの 
仕方など入門の部分から始めていこうと思 
いますので，ぜひお楽しみに。 
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図15出力 LED を正論理にする 




152 Oh! X 1992. 9. 


H —ON 




















































月日が流れるのは早いもので，私がこの 
連載を始めてから，すでに1年が過ぎよう 
としています。な一んて，この1年って結 
構長かったよ 一。 だってほら，ネタのほう 
は意外 t ポコポコ出てくるもんだけど，サ 
ンプル曲の説明の苦しさ。「あとは楽譜を 
見て〈ださい」といって逃げちゃいけない 
んだけど，結局そうやってトンズラしちゃ 
ったりとかあったりして。う一ん，もうち 
ょっとボキャブラリ ー•を増やす必要がある 
よな，私ってば……。 

まあ， この 1年間に ついての 反省点は 
数々あれど，とりあえずなんとか1年お役 
目を采たせることができました。月並みな 
言葉ですけど，みんな，みんな，読者さま 
さまのおかげです（編集者さまのおかげで 
もある）。感謝してます。はい。今後もよろ 
しくお願いします。 

さて，いつまでも感慨に浸ってると，無 
駄話の好きな私は，いつまでもしゃべりか 
ねないので，ここらで毎度の CD 紹介をする 
ことにします。 

実は，今月はちょっと妙なものに手を出 
しました。最近よくある環境音楽の類です。 
どうもこれには2種類ほど分類があるよう 
ですね。 

ひとつは完全にオリジナル曲で，なんだ 
かよくわかんない曲がえんえんと流れてい 
ます。私はこのテのことは詳しくないんで 
すけど，なんでもサブリミナル効果だとか 
いう，人間の不可聴域である一定の音波を 
鳴らして，人の脳裏に直接訴えかけるよう 
な怪しい技術だそうで，人によってはかな 
り効くらしいです。そういえば，そんな感 
じかな一って雰囲気。こういうのって編さ 
れてしまうほうが得ですよね。目が覚める 
飲料水とかと同じでね。 

で，もう片方はリラックスしてしまうよ 
うな穏やかな曲ばかり集めているようなも 
のです（版 It の関係でクラシックが非常に 
多い）。まあ，のんびりできる曲が詰まって 
いて（しかも芸術性うんぬんよりも，人間 
に聴きやすい曲が集めてある），これはま 


Creative Computer Music 入門 （ 12) 

偶成和音と借用和音 


今月で一応基礎編は終わりです。いままで小難しい理論ば 
かりで疲れたでしよろが，音楽をやっていくろえでの基礎 
Taki Yasushi 瀧康史 知識は十分身につけられたと思います。さあ，皆さんもど 

んどん自分自身で曲を作っていきましよう。 


あ，こんな感じかな一って霧囲気でした。 

まあ，同じ「環境音楽」という題目の異 
なる2種の CD を2ネ父聴き終えたら，なんと 
なく 「のほほん」って感じになってる気も 
しないこともないんですけどね。特にクラ 
シックのほうは，聴きやすい曲のセレクシ 
ヨンという向きもありましたし，興味があ 
ったらそこらへんで いっぱい 売ってるので 
いろいろ 買ってみても いい かもしれません。 

さてと。前置きはここらで終わりにして， 
本題に入りましょうか。今回は，前回予告 
したとおり，偶成和音，借用和音について 
お話ししたいと思います。 

8偶成和音 

偶成和音の名からもわかるとおり，この 
和音はもともとは偶発的に出来上がった和 
音です。古典的な和声法では，偶成和音は 
和音と名がついても，和音の仲間としては 
扱われていません。この理由はこれからお 
話しするなかから，？余々にその意味を感づ 
いてもらったほうがいいでしよう。 

ほんとは，これをお話しする前に4声体 
をお話しすべきなんだろうけど，はっきり 
いってこれは面倒ですから，ある程度簡単 
にお話ししたいと思います。4声体とは， 
簡単にいってしまえば，コードの進行をそ 
れぞれの構成音ずつの進行と考えて，ソプ 
ラノ，アルト，テナー，バス進行の4つで 
考えるものです。とりあえず，いまはそう 
t だけ頭に入れておいてください。 

まあ，それに，私の個人的見解からする 
と，偶成和音なんてあくまでも「偶然」で 
きるんだから，总識しながら使わなくても 
いいと思いますし。先月のように偶成和音 
がわり！:使われてる曲を採譜するなら，そ 
のとき，意識して「あ，これは偶成和音な 
のか」って改めて覚え直してもいいし，自 
分で曲を作るときに進行を見て「これは偶 
成和音を使えるな」と，ふと思い出して使 
ってみたりしてもいいです。とりあえずは， 
そのはしり的にそんなものがあるという意 


味でとってかまわないでしょう（もっと:も， 
しっかり理解するには，自分でわざと偶成 
和音を使った曲を作ってみるのがいちばん 
ですが……）。 

保続による和音 

余談がすぎたところで，本線復帰しまし 
ょう。まず，「保続音 j という言葉ですが， 
この「保続」の意味を文字どおり取ると， 
「保ち続ける」ということになりますよね。 
これが，音という文字に修飾しているって 
こ！：はすなわち，保続音とは「ある一定の 
音を保ち続ける」ということ， t いうのが 
妥当な解釈でしょう。 

ところで通常，曲の進行の诂中に，ある 
一定の音が鳴りっぱなしになったら，どう 
なるでしょうか？ はっきりいってヤです 
よね。耳障りですよね。耳障りにならない 
ためにはどうすれぱいいか？ 

まず伸ばす音についてですが，いちばん 
耳障りにならない音があるとすれば，それ 
は，曲の根音（すなわちスケールが C なら 
C ), そしてあとひとつ考えられるのが，厲 
音 （5 度の音，すなわちスケールが C なら 
G ) です。 

また音の高さは，高めの音と低めの音と 
どちらがいいかというと，理山はややこし 
くなるので割愛しますが，どちらかという 
とこれ は低い音，いちばん低い ベースノー 
卜のほうがいいのです。 

さて，保続されることがどういうことに 
なるのかわかった時点で，ここで和声進行 
上で例をおいて考えてみましょう。 

まず，図1, 2を見てください。これら 

はどちらも同じコード進行ですが，一部の 
コードが図2では転回形に化けています。 
どちらも C 調で書かれていて，図1が保続 
のない通常の進行，図2が保続のある進行 
です。図2中で音符に「ホ」と書いてある 
のが保続音ですから，念のため。両者を聴 
き比べて（リスト1, 2 > みてください。 

このテのただコードが連続しているだけの 
例では弊囲気はなかなか伝わらないでしょ 
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うが，保続音を使う目的は，1度または5 
度の音を聴き手に意識させて，調性をわか 
らせようとするものです。そんなふうに聞 
こえませんか？ 

さて保続音をまとめると，1度または5 
度のベースノートを動かすことなくそのま 
ま保続させ，聴き手に調性をはっきりと理 
解させる，ということになります。当然， 

図1保続のない通常の進行 


保続音のうえにわかりにくい進行をさせて， 
聴き手を困惑させるような使い方はバッで 
す。 

非和声和音 

スケール C 上で I ( C ) から IV ( F ) への 
進行をするときのことをイメージしてくだ 
さい。 この 3和音の構成音は， C ( maj ) では 


C . E . G , F ( maj ) では C • F • A です。 

ここでこの進行を，それぞれの音のレべ 
ルで考えてみると， C は C へ， E は F へ， 

G は A に移動することがわかります（図 
3)。このうち ， G — A への音の移行を，滑 
らかにつなぐために G — G #— A と経過的 
につないだらどうなるでしよう？ 

結論からいうと，図4のように進行は見 
かけ上 ，I — Iaug -> IV と進行します 。I 
aug は非協和音のため，単独ではカデンツ 
に含めて進行することはできません。しか 
し，単独ではよい響きとはいえないこの 
aug コードも，前後関係の結びつきによっ 
ては，単なる基本的なカデンツで作られた 
進行では絶対出せないような，独特の雰囲 
気を酿し出すことができるのです。 

aug を使った偶成和音は ，I - i aug — 
IV のほかに，以下のような？）のがありま 
す。 

1) I -» I aug-»II (図5 ) 

2) I — I aug-VI (図6 ) 

3) V — Vaug— I (図 7) 

では，簡単にこれらを説明しましよう。 

まず進行上では， 1) はさっきの I — I aug 
— IV の進行の IV が II によって代理された 
だけです。音が経過的になっているところ 
は I の5度の構成音 G が ， I aug の構成音 
G #， そして最後の II の構成音の A と結ばれ 
ているところです。 

そして2>の最後の VI ですが，これはトニ 
ックの代理です（サブドミナント IV の代理 
とも解釈できる）。やはりこれも， G -> G # 
— A と経過的になっています。 

そして 3) のドミナント モーション も同じ 
ように ， D — D 卜 E と経過的に連なってい 
くのです。 

ここ に挙げた例は経過的なものだけです 
が，実は非和声音と同じ数だけ，すなわち 
経過和音刺繡和音，倚和音，掛留和音，先 
取和音，逸和音の6つがあります。また， 
実際には aug コードだけではな〈， 9 th , 7 
th , さらには dim コードまで使われます。 
結構奥が深いんですよね。そんなわけでこ 
こで全部覚えるのもなんですから，ここで 
はそんなものがあるということた•け'覚えて 
いてください。参考にツェルニー3〇番練習 
曲一26から，経過的半音階進行の例を載せ 
ておきます（楽譜1)。 

^付加和音 

1991年11月号で話したきり，一度も使い 
方に出て こない 和音があります。 dim , aug 
は今回出てました。しかし，一向に出る気 



図2保続のある進行 
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図 3 コード上の単音レベルでの移行 


図4経過和音を利用した移行 
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図 5 I — I aug-HI 


図 6 I — I aug^VI 


図 7 V — Vaug —• I 



図日付加和音の例（トニックとして代用されやすい順） 


- a - 


誓 


¥ 


c ： 


Imaj7 


lma|9 


1 69 


配も見せない16， I maj 7， I maj 9, そし 
て通称 H コードといわれている I 69などは， 
どうしちゃったんでしよう。 

実はコードの種類については，いままで 
にやってきた一般的な終止形によるカデン 
ッァ進行，偶成和音を使った特別な進行， 
そしてこのあとの借用和音で，進行のパタ 
ーンも含めてすべて今回でひととおり説明 
しきってしまうのです（すなわち，アナリ 
ーゼはこれだけの知識でひととおりできて 
しまう）。でも，このあと説明する借用和音 
にも，新しいコードは出てきません。そう 
なると，例の4つはいったいいつ使われる 
のかと思うでしようし，市販されている楽 
譜を読んでいて，このようなコードに出合 
ったらどのように解釈したらいいのか，と 
いう疑問もわいてきますよね。 

さて，ここで図8を見てください。これ 
らのコードの根底にあるトライアドコード 
(4 音以上で構成されるコードは通常トラ 
イアドコードがもとになっている）を調べ 
てみると（そんなのばっかり集めたのです 


が），すべて I になるのがわかってもらえる 
と思います。 

すなわち，これらの6度の音，7度の音， 
9度の音は，緊張感を出すために単に I に 
付加されただけだと考えられるということ 
です。 C 調での6度の A ， 7度の B ， そし 
て9度の D は，非和声音として扱う必要性 
はないのです。ただし，当然これらの和音 
はすべて トニックと して扱っていいとはい 
え，やはりただの I とは違うので，それな 
りの対処が必要です。たとえば ，I 9では曲 
を終わらせないとか，念のため I に進行す 
るとか，そういうことを行う必要性はある 
でしよう。 

ちなみに，これらの付加和音は時代的に 


かなり新しいコードですから，クラシック 
では使われているものが極めて少ないです 
し，また使われていたとしても，トニック 
としてではなく，経過的に連続して ， I — 
I maj 7— I 7— VI -> I aug — I (図 9 ) とい 
う具合に（ずいぶん回りくどく書きました 
が），決してトニックとしては使われません 
でした。 

^借用和音 

偶成和音とは違って，借用和音は完全に 
意図的に盛り込まれたコードです。 

1月号でこれについてお話ししたときは， 
終止形を話した直後でしたので，よく意味 
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が'取れずにそのままにしている人もいるこ 
とでしよう。ここにきて1月号を引っ張り 
出してくださいというのもなんですし，1 
月号の借用和音についての説明は，存在価 
値とその概念程度で資料的な価値がないの 
で，ここではじめからお話しすることにし 
ましよう（覚えている人も復習ね）。 

この借用和音の説明は，鍵盤関係の音楽 
雑誌で毎年のように行われているようです 
が，よく見ると借用和音そのものを説明す 
るより，結果としてどのような形になるか 
という例をたくさん持ち出して説明するパ 
ターンが多いようです。 

図9経過的に丨 maJ 7 が使われる例 


教える側でも楽だし，すぐに実用になる 
ためそういう目的で読んでいる人にはよい 
のでしようが，これでは自分自身で借用和 
音を意識して面白い進行にこだわる作業が 
身につきませんし，いろんな曲の解釈で応 
用が利かないでしようから，私は借用和音 
そのものをお話しすることにしましよう。 
それに，和声的にこだわってアレンジをす 
るという作業は，できるようになるとパズ 
ル的でなかなか而白いですしね0 

さて，ここらで本筋に戻しましよう。コ 
ード進行は基本的な終止形だけでやってい 
ると， トニック， ドミナント，サブドミナ 


ントの3つだけになってしまいます（代理 
和音は除く）。これだけでは曲の単調さを招 
きかねません。 

そこで，広い調性感を求めるため，また， 
和声進行に色彩的で機能的な変化を与える 

ために，ダイアトニックコード以外のコー 
ド，すなわち，違うスケール I ..のコードを 
借用して〈るという方法が生まれるのです。 
このことによって，曲にアクセントをつけ 
たり，逆になるベく経過的に無理なく進行 
をさせたり，また本来ならば進行できない 
ようなコードを連結し進行させるために使 
われたりします。 

言葉でいえばこのように難しい表現にな 
ってしまいますが，実際はそんなに難しく 
ありません。とりあえず，リスト3を打ち 
込んで〈ださい（図10)。聴いてみていかが 
ですか？ 大筋は， I の進行 
ですが，借用和音をいろいろなところで導 
入したほうは，ところどころほかの調性に 
浮気しているので，コード上の展開という 
か，調性的に広い雰囲気が出ています。 

結論からいってしまえば，いまからこの 
ようなコード進行を自分で作り出せるよう 
になってもらいます。さあ，今月は内容が 
濃いですけど頑張って！ 

近親調 

近親調を簡単に説明してしまうと，ダイ 
アト ニックト ライアドコードの個々のうち， 
トニックに なれるコードカ ? 作るスケールで 

す。百聞は一見にしかずという言葉どおり， 
話に聞いてもわかりにくいでしようから， 

図11を見てください。 

わかったでしょう （ と決めつけている）。 
このなかで，長調の VII ，短調の II は，減3 
和音（すなわち dim コード）となるので，卜 
ニックに ならず，除外します。すると ， C 
( maj ) スケール上では Dm . Em . F • G • Am , 
Am スケールでは C . Dm . Em . F • G が 
近親調となります（注：近親調の求め方は， 
このようにダイア トニック コードから導き 
出すようなものとは違って，調号の数から 



図10基礎的なカデンツと借用の例 
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図 11 近親調 
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求めるものもあります）。 

原調から見て，その調と調号（#， b ) の 
数が同じか，あるいはひとつ違いのものが 
近親調です。すなわち，調が Cm なら b が3 
つですから，当然同じく 3つの Eb ( maj ) は 
近親調，そして， b が2つの B ( maj)，Gm 
も，4つの A b ( maj ) も， Fm も近親調という 
ことになります。 

どちらのほうが求めやすいかはその人し 
だいになりますが，調号がどこにつ〈かま 
だピンとこない人にはこの方法がよいかも 
しれません。 

借用和音になりラる和音 

借用和音で最も代表的なものは次の2つ 
です。 

1) 近親調から借用された副 V の和音 

2) 同種短調から借用された準固有和音 
副 V ，同種短調，準固有和音などといき 

なりいってわからないでしようから，順 
に説明していきま しよう。 

まず副 V ，これは近親調の V です。 V だ 
けではなく， V 7， V 9， そしてややこしく 
なるのであまり述べた〈ないのですが ，V 
7， V 9 の根音省略系というものがあります 
(こういうのを V 諸和音という）。 

同種短調とは， C ( maj ) スケールに対する 
Cm , G ( maj ) スケールに対する Gm です。 

そして，準固有和音とは，いま述べた同 
種短調の固有和音(ダイアトニックコード） 
のことです。 

とりあえず，上の2つのうち，「近親調か 
ら借用された副 V の和音」だけ，今回はや 
ることにしましよう。「同種短調から借用さ 
れた準固有和音」は，いずれ サンプル 曲か 
なにかで出てきたときに説明することにし 
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lllr 

(d ： II7 


です。これが借用和 図12 D 2 の使用法 

音の基礎です。注目 
すべきところは ， C 
( maj ) にはない音が 
F ( maj ) には含まれ 
ていることです，こ 
の場合は B レがそう 
で，このように原調 
にはないけれど，借 
用された近親調には 
ある音を特徴音とい 
います。 

さて，いまの例の応用として，原調（こ 
こでは C ) の V (7) に滑らかに進むには，前 
にどんな借用和音を置く といい か考えてみ 
ましよう。原調 ( C ( maj )) から数えて V 調 


d とは， Dm スケールからコードが借用さ 
れていることを表します。ちなみに， d が 
小文字なのはスケールがマイナーだからで 
す〇これがメジャースケールなら大文字で 


( G ( maj )) すなわち G のドミナント 7 th は D 
7ですよね。この D 7 は原調から数えると 
117。この進行は原調から見れば， 

( a ) II ( m )(7)-> V (7)-> I 

なんと，1月号でお話しした終止形のひ 
とつになってしまいます。あまりにも日常 
的な進行なので，終止形の一部に数えられ 
ているのです。でも，その基本は借用和音 
からきているのですね。 

また，この II ( m ) ⑺は D 7 調の D 7 なので， 
ドツペルドミナントとか，ダブルドミナン 
卜とか，セカンダリードミナントとかいわ 
れています。記号は D が2つ連なった形や， 
D 2と書いたりするのですが，印刷の都合 
上（タイプの都合上）今後これを引用する 
ときは，この講座では D 2 (こちらのほう 
が原調の II だとこじつけができて覚えやす 
いでしよう）とすることにしましよう。 


□2 をさらに使ラ 


書きます。 

この例を見て，そして聴いてみてわかる 
とおり，実際のところ D 2はさして意識も 
せず， D の前にあるものとして，使われて 
いる ことがわかります。 

借用和音は副 V だけではなく， V の前に 
進行する何かを置〈ことも可能なのです。 

ここでの例は借用された近親調の D 2 (副 
II )でしたが，実際にはそのほかに S (サブ 
ドミナント：畐 IJIV ) なども使われます。 



編集部から，基礎理論は今月までにして， 
来月からは応用編をやってくれという依頼 
があったので，今回はそのしわよせで，理 
論中心のお話になってしまいました。あん 
まり今月みたいな調子は，好きじやないん 
ですけどね。まあ，先に進むためにはしか 
たがないでしよう。 


ます。 

さて，借用和音の奥義は，実はただのド 
ミナント モーションです。 ドミナント モー 
シ ョンというのは，もう皆さんわかってい 
ると思いますが，ドミナントはトニックに 
進まなくてはならない！という法則で， 
この性質を利用して，近親調の和音を借り 
てこようというのです。 

たとえば，さっきの図10の6小節目の C 
7 は，スケール C 上から見たら17にすぎな 
く単なる付加和音なのですが， C ( maj ) スケ 
ールの 近親調の F ( maj ) スケールでは，これ 
は， V 7 でドミナント 7 th です。したがって， 
ド ミ ナントモーシ ヨンが起こ り， V 7 はトニ 
ック I に進みたがります。よって， F ( maj ) 
スケールのトニック， F ( maj ) に 当然の よう 
に進みます。この動きを原調 C ( maj ) から見 
たとき ， I — 17- > IV という進行になるの 


ここで ， D 2は単なる借用ではな〈，終 
止形のひとつの形にすぎないんだと考え， 
この D 2を利用した効果的な進行の例を考 
えてみましよう。 

先ほどいったとおり，借用和音のもっと 
も一般的なものは副 V を使うものでした。 
この考えをさらに発展させ， （ a ) の進行が一 
般的なものだと意識するなら，この117も借 
用に使うことが可能だといえます。 

ここで図12を見てください。 I から II に 
進行するとき，（単純に進めますが)借用和 
音を使って進行するとすると， 

C : I - > III 7-> VI ( m )(7) - >IIm 

というように進行できます。このままで 
は理解:しにくいでしようから， 

C : I ->1117— VI ( m )(7) - >IIm 

(d : 11274 V ( m ) ⑺-> Im ) 

というふうに表してみます。カツコの中の 


コードブックを読んで途中で挫折してし 
まったような初心者にありがちな，「トニッ 
ク，ドミナント，サブドミナントの機能は 
わかったけど，それ以外はどうやって使う 
の？」みたいな素朴な疑問も今回で解けた 
ことと思います。 

さて，来月ですが，ひょっとしたらお休 
みするかもしれません。応用編ではできる 
だけ，すぐに使える応用テクニックをやっ 
てみたいのでネタの整理をやらなきやなら 
ないんです。でも，基礎知識総集編みたい 
な感じで「資料」として，1年分の原稿を 
まとめるかもしれません（保証はできませ 
んけど）。 

ま，そんなわけで，今月号で基礎編は終 
わりと。 

ではまた，来月か再来月にでも会いまし 

よ5 〇 
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今回め CG テー勺 

総物体数382 
うちメタボール数60 
光源22 

1280 XI 024ピクセル 

1670万色フルカラーを 


7 、伞相み irA pbM^O/V 



4 X 5 ポジで出力 
使用ソフトは 
C - TRACE , サイクロン 
マッピングデータ作成に 
Z'sSTAFF PRO -68 K 
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最近何かと世間を騒がせている「バーコード j と 「 G コード」。なん 
にでも興味を示すキヨウコさんらし<, 「 G コード」を入力する「ピ 
デオフラス」を購入していろいろと実験しているようですが • 


〇 


は， 「 EA 」「 EP 」 などの項目がズラリと並ん 
でいた。 「 EAj の欄には「バーナー.サー 
ミスタ」とだけ書かれてある。 

燃焼する中心部が不正に組み立てられた 
ために，その近くの温度が局部的に卜.#し, 
バーナー•サーミスタと いう燃焼の検知装 
S が「危険」の判定をした。それで消火さ 
れたのだった。 

「全部の エラー 表示を マニュアルに のせる 
と，かえってめんどうになるんですよ j 
私のように「修理」をする人がふえて闲 
るのだろう。ロッドフ1ムという，中心 
部のネジ に 似た感知部品も老朽化していた 
ので交換，しめて4,3651オフシーズン手 
当は請求されていなかったようだ。 

進 f 匕のあと 


灼熱の部屋 

「ここ もあけたんです か？」 


R 筒のカバーがはずされた。 
「これもですか？」 


金網のカプセルカす取られた。 

「もっと中までですか？」 

「ハイ， はずせるところまで」 

小さな m 盤もはずされた。 

「あ 一， ここが逆です。あけてみてよかっ 
たあ。ふつうはここまでは調べないんです 
けどネ」 

こうして7月の午後のリビングでフアン 
ヒーターは焚かれた。試運転だ。 

「15分くらい燃やしてみないとわかりませ 
んから 」 

SANYO の f 彦理マン氏は汗をふきふき， 
そういいながら麦茶をひと口飲んだ。 

夏場は暖房器の修理は受けないようにし 
ているということだったのに，運よくきて 
もらえた0そして，やっぱり原因はアレだ 
ったのだ。 

炎を みつめて 何分もじ一っとガ マンの 観 
察をしながら，修理マン氏が遠慮がちに聞 
いた0 

「こういうこと，好きなんですか？」 

“こういうこと”とは機械をバラしてみる 
こと。故障の最終的な原因は分解掃除のあ 
との私の組み立てミスだったのだ。 

「あんまりいろいろな エラー 表示が出るも 
のですから，どうしてもあけてみたくなっ 
て，誰だってそうじゃありませんか？」 


「あまり女の人はねえ，中まであけてはみ 
ないと思いますけど……」 

「はい . 。そうですよね」 

舂が近くなるころから， フアン ヒーター 
に エラー 表示が多〈なった。 「 E 2」 やら， 
「 E 7」 やら，そのつど エラーの 内容を示す番 
号がちがうし，「換気」のアラームがひんぱ 
んに鳴るなど症状もとらえにく C 、。 

ボディカバーをはずし，中の マイコン 装 
置をみたものの，目でわかるような異状は 
ない。気になるのは中心の燃焼部分で，こ 
の中をぜひ掃除してみたい。“秘密です”と 
でもいうように，すっぽり力、くされている 
円筒の部分を，メモもしないでどんどん解 
体した。 

この中はマイコンと無関係だからだいじ 
ようぶ。元のとおりにすればいいのだし， 
プラモデルよりやさしいと，汚れを取った 
あと再び組み立てた。 

このとき1力所だけ部品の向きに不安が 
あったが，ひとまずそれらしい形に戻して 
試運転。結果，いままでの不安定な エラー 
はすべて解消した。ところがそれも束の間， 
点火して 10 分〈らいす ると， こんどは マニ 
ュ アルにない 「 EA 」 と いう エラー 表示が出 
て，消火してしまうようになった。 

どこかマイコンの 配線を損傷してしまっ 
たのだろう力、。でもあれだけたくさんあっ 
たエラーがひとつにまとまった。ただし， 
前より悪い状態になったのかもしれない。 

「EA という エラーはマニュアル にはない 
んですけど j と私がいうと， 

「メー カーのマニュアルにはあるんです」 
と，修理マン氏がそれをみせてくれた。 
「虎の巻」だというわりに簡単な印刷物に 


7月18日付の朝日新聞で，ファーストフ 
ードの廃棄率の話を読んだ。ハンバーガー 
などで知られるファーストフードの各チェ 
ーン店では，調理されてからほんの短い時 
問を，「赏味時間」と定めて，その時間を超 
えて売れ残った商品は捨ててしまうそうだ。 
マクドナルドでは10分間が制限だった。 

それでも1000個こしらえて5,6個捨てる 
くらい，つまり1%に満たないのだそうだ。 
そして，これを最小限に抑える役割をして 
いるのが，やはり POS システムだった。 

POS システムといえばバーコード。太さ 
のちがう棒をさまざまに組み合わせて並べ 
た認識票0これを POS レジスターに読み取 
らせて，売り上げを計算すると同時に，さ 
まざまな情報を取り入れる。 

客の来店時刻，商品，消費総額などのデ 
ータは親システムに集められ，日付や曜 F 1， 
時間帯による商品の売れ筋などを分析して 
経営戦略に役立てる。 

バーコ ー ドは pos システムと同時に， 

1982年ごろから急速に普及して，いまは400 
万以上の数があるそうだ。 

このごろの子供の遊びはバーコードを使 
うと聞いて，これだけ氾濫しているものを 
遊びにする子供のウイットはすごいなと思 
ったら，なあ一んだ，これもおとなが仕档卜 
けたものだった。 

オモチヤのメーカーが，バーコードを数 
値に置き換えて処理をする，専用のゲーム 
機を発売したのだ。 

カードに貼りつけたバーコードをゲーム 
機に読み取らせると，「生命力」「攻撃力」 
「守備力」などにして表示する。2枚の バー 
コードで その数値を戦わせて，「生命力」が 
先に ゼロに なったほうが負けだ。 
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illustration : Kyoko Takazawa 


ほとんど が 男の子である マニアたち は， 
バーコードを何百枚もあつめ，名人級の子 
はみただけでおよその強さがわかるそうだ。 
全国大会もある！:いう大流行ぶりだが，試 
合の特徴としては機械を介したゲームらし 
く，クールで，白熱することはないという。 
やっぱり子供たち がつ くりだした遊びとは， 
このへんがちがう。 

雑誌も薬もスナックも，何からなにまで 
バーコード。商品が戸籍をもっているよう 
なものだ。スーパ ーでバーコー ドがないの 
はモグリか，日替わりの臨時商品だ。バー 
コードのない商品を買おうとすると，とた 
んに手動の入力になって，数秒間よけいに 
侍たされることになる。 

バーコードがスゴイのか， POS が偉いの 
か。一瞬の光を当てるだけの入力には，は 
じめは魔法をみたように驚いたはずなのに， 
みなれたというだけですぐに機械の優位に 
立った t 思う私たち。そして疑念ももたず， 
どんどんラクになる。 

努力しないで何かを得てはいけないのだ 
と，なんとなく子供のころから呪文をかけ 
られたせいか，イソップやたくさんの寓話 
に洗脳されてきたため力'，あまりに無為の 
まま成果を得てしまうと，いつか怠けたこ 
との処罰が待っていそうな気がする。 

便利なものがあらわれるたびに，人間は 
引き換えにひとつずつ能力を捨てていく。 
そういうことを「進化」と呼ぶのだといっ 
た人がいた。 

捨てられたこととは……。 

ナイフで鉛筆を削れること？ 手で洗濯 
できること？ 元気に長い時間歩けるこ 
と？それから，筆算ができるこ t ? 漢 
字が正しく書けること？ なんだか，私も 
だいぶ「進化」してしまった。 

カギは時計だ 

最近また私たちを進化させる新しいもの 
があらわれたので， いくつか 購入して身近 
な人に プレゼント してみた。誰が進化して， 
誰が現状にとどまるか。 

それは，テレビ番組の録画予約をするた 
めの専用 リモコン 「ビデオプラス」という 
商品だ。そして，まっさきに活用をはじめ 
たのが泊江のアニキだった。 

ところが，使用数日でかけてきた電話で 
は，10 チヤン ネル（テレビ朝日）に予約の 
設定をしたもの力す，どうしても1 チヤン ネ 
ル ( NHK 総合）に対応してしまうと，不可解 
な症状を幸 g 告してきた。 

海外の製品なので，購入元から取次店に 


送り調べてもらったが，どう 
も原因がわからないという。 

修理の担当者とァニキとは， 

あれこれ電話で話し合った。 

そして思わず声をあげたのは 

アニキだった。マニュアルの 

欄外の小さな文字に気づいた 
のだ。 

予約機にはいくつか初期設 
定が必要だが，所有ビデオの 
メーカーを，決められた番号 
で入力しなくてはならない。 

アニキは ビクターの 番号とさ 
れている「01」を入力したの 
だが，欄外の注意事項にはビ 
クタ ーでもアニキの使ってい 
る 「 HR - S 8000」という機種は 
「04」にするように記されてい 
たのだ。 

無事トラブル解決。進化のためには順応 
の努力も必要なので，いちばんのりのァニ 
キはそれなりに偉い。ほかの数名はまださ 
わろうともしないのに。 

「ビデオプラス」は 「 G コード」（ジェムス 
ターコード） という番組ごとに定められた 
8ケタ 以下の数字を入力するだけで， 一度 
に 8 番組までの予約ができる。 「 G コード」 
はいまのところ朝日新聞とテレビガイドに 
掲載され ている だけだ。 

ビデオの予約には，たいていの人が手順 
が複雑すぎるという意見をもっているらし 
い。この機械も，録画予約にことごとく失 
敗していたというエピソードをもつ，ヘン 
リー*ューェンという香港生まれの数学者 
によって発明されたのだそうだ。 

ことごとく失敗というあたりはわが家も 
レベルが一致。 「ビデオ プラス」 は救世主と 
いってもいい。ただ，なんとかもっと扱い 
やすくとは望んでいたものの，ここまでシ 
ンプルにされてしまうと，ありがたい半面， 
なさけないような気分にもなる。 

各番組の末尾にゴシック体で記された数 
字。いちばん小さいものは2ケタもある。 
これを入力して録画ボタン（毎週，1回な 
ど）を押すと，放送日と録画開始時刻が表 
示される。どれを入力しても，確認すると 
番組表どぉりの放送日時になる。1枚の新 
聞だけでも何百もある G コード。このマジ 
ックはなんなのだ。 

パソコン通信のボードでも，みんながか 
わるがわるいろいろな推論を立てていた。 
コードの中から何か規則性をみつけようと 
したり， 2進法をあてはめてみたり。 

わが家でも，あれこれトライしてみた。 


でもナゾは深まるばかり。 

夫が出張先の関西から持ち帰った新聞を 
広げて， 

「みてごらん，各地にそれぞれテレビ局が 
あって，すべてに G コードがつけられてい 
るんだ'よ」 

ほんとうに膨大な数だ。 いくつ あろうと 
公式はひとつなのか。弁護士の資格ももっ 
ているという数学者は，いまごろさぞ満足 
に思っているだろう。 

夫が，なにげなく前日の新聞に掲載され 
ている G コードを入力してみた。予約の結 
果を確認してみると 「 Err 」 が表示された。 
その前日のコードは放送日時があらわれる 
が不正確。その前日も同じ。 

そこで，こんどは内蔵の時計をある日時 
に戻して設定，その日からは未来となる放 
送日の G コードを入力してみた。なんと正 
しく予約の放送時刻が表示された。つまり 
時言 t を基準にして，将来だけについて予約 
のプログラムをするのだ。 

ただし，無制限の未来というのはダメな 
ようで，ずっと過去に時計を戻して実験を 
してみたら，1力月先くらいまでが限度だ 
った〇 

遊んでいるうちにわかったのはこれだけ。 
G コードの 謎にはみんなが フアイ トを‘燃や 
しているらしく， ジェムスター • ジャパン 
社にも， コードの つくり方を教えてほしい 
という電話がよくあるそうだ。 

さて，やはりもう一段の進化をとげてし 
まいそうな私は，きょうもふしぎな Gn — 
ドとにらめっこ。 

「じいコ ー ドに 「ばあコ ー ド」 0 秘密の ワ 
ザをもった仙人なのだろうか。 
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PRODUCTS 


X 68000 用八ードディスク 

GF-120/200/240/300/500 

写其は PC -980 丨用の a シリーズです 



ジェフは7月下句より X 68000 のハード 
ディスクを発売した。 

本機は， WORKSserise として新しく発 
売されるもので， 120 M パイト （ GF -120) か 
ら 500 M バイト ( GF -500) まで5タイプ用意 
されている。 

すべてのタイプに信頼性を高めるオート 
シッピング機能，バッドエリアを自動交換 
するインテリジェント機能を装備。外形寸 
法は 60 mm (幅 ） x 120 mm (高さ） X 295( 奥 
行）となっている。 

キ ヤッシュバ•ッファと して 「 GF - 120/200 j は 
64 K バイト， 「 GF -300/500_ i は 128 K バイト， 
「 GF - 240」は 256 K バイト搭載して いる。 

インタフェイスには SCSI を使用。 ID スイ 
ッチの変更により7台まで接続可能である。 
また，接続ケーブル（フルピッチ50ピン） 

とターミネータが同梱されている（インタ 
フェイス ボードは別売）。 


価格は「 GF -120」 が108,000円， 「 GF -200」 
が138,000円， 「 GF -240 j が148,000円 ， 「GF 
-300」が318,000円，「 GF -500 j が418,000円 
(すべて税別）となっている。 

く問い合わせ先〉 

㈱ ジェフサポートセンター 006(336) 
5901 

電子システム手帳丨 C 力ード 

PA-3C45S/48S 

デイ • メーレ/ログ 

シャープ電子システム手帳用 1 C カード 
2種が発売される。 



PA -3 C 45 S 


•ステラ薰子のミツドポイント占星学カード 
「 PA -3 C 45 S 」 (&, 4行表示専用力ード） 

生年月日，出生時刻，出生場所を入れる 
だけで，固有のホロスコープ(天体配置図） 
をサーチし，本人の運気を割り出してパー 
ソナルな占いを行うこ t ができる。 

また，利用者本人が過去の運気を質疑応 
答方式で入力していくことにより，占う人 
の思想や行動に影響を与える星（支配星） 

を見つけ，より精度の高い占いが可能 t な 
った。 

人生総運，仕事運，金運，愛情運（男)， 
愛情運(女)，相性診断の6種類の占いがで 
き回答文章数1,120,運気の傾向調査の質問 


文章448を収録。 

価格は9,500円（税別）となっている。 
く問い合わせ先〉 

揃デイ•メーレ 003(3468)7253 



參イベントクイズカード 「 PA -3 C 48 S 」 （8,4 
桁表示用力ード） 

テレビでお馴染みの篠沢教授とそのスタ 
ッフが考えた，問題数約3,000問のクイズゲ 
—ム。プレイヤーはクイズに答え，正解数 
だけビルを登っていくという設定となって 
いる。そして，登場する3つのビルをクリ 
アする t 超難解な「スペシャルクイズ」50 
問に挑戦することができる。 

また，ひとりで遊べる 「チャレンジモー 
ド」と，2人でできる「対戦モード」の2 
つのモードを用意。クイズの合い間には， 
神経衰弱 やスロットマシン， 擎沈 ゲーム， 
競馬 ゲームな ど9種類の イベントゲームが 
遊べるようになっている。 

途中で電源を切っても再開できるコンテ 
ィニュー 機能 や， カードを抜いても再開で 
きるパスワード機能を搭載。ゲーム中にル 
ールを確認できるヘルプ機能も装備してい 
る。 

価格は8,5000円(税別)となっている。 

く問い合わせ先〉 

㈱ ログ 303(3837)2595 
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コンパクト液晶ビジョン 

XV-P1 

シャ ープ 

XV-PI 



シャープは，コンパクト液晶ビジョン 

「 xv - n 」 を発売した。 

本機は，新開発の30万画素高精細液晶パ 
ネル1枚を搭載した「単板方式 j を採用。 
これにより，徒来機の約3分の1に小型化， 
軽量化することができた。さらに，明るさ 
の均一性を高めた高輝度映像を実現してい 
る。 

さらに，アンプ，スピーカーを内蔵（モ 
ノラル）しているため，ビデオデッキやビ 
デオカメラと接続するだけで大画而を楽し 
めるようになっている。 

また，“ハイブライトスクリーン”（別売） 
と組み合わせることにより，明るい場所で 
の視聴もできる。 

なぉ，ビデオ入力は2系統， S 映像入力 
端子は1系統装備して いる。 入力はビデオ 
入力1に S 映像入力が優先される。 

価格は220,000円（税別）となっている。 
〈問い合わせ先〉 

シャープ ㈱ Q 03 (3260) 1161,06 (621) 1221 

ビジネス パーソナル ファクシミリ 

UX-11 

シャープ 

シャープは，留守番電話とファクシミリ 
を一体化させたビジネスパーソナルファク 
シミリ 「 UX -11」 を発売した。 

ファクシミリ 機能としては， A 4 標準原稿 
なら12秒で伝送可能な「高速伝送機能」や 
最高5枚まで連続して送信できる「自動給 
紙機能」を装備。そして，細かな図而など 
の送信に適した「精細 （セミスーパーファ 



UX-II 

イン）モード」と，ハーフトーンを美しく 
再現する16階調の「中間調モード」も搭載 
している。 

留守番電話機能としては，留守ボタンを 
押すだけで留守録モードになる「ワンタッ 
チ留守番電話機能」，留守録を指定の電話に 
転送できる「指定先転送機能」や電話の着 
信をポケットベルに知らせてくれる「ポケ 
ベル転送機能」がある0もちろん外出先の 
プッシュホンから留守録機能を操作するこ 
とも可能。 

また，別売のハンドスキャナ 「 UX -05 
I - IS 」 を接続することにより，ノートなどの 
厚みのある原稿や新聞のように大きな原稿 
なども，直接ファクシミリで送信すること 
もできるようになる。 

価格は112,000円(税別)となっている。 

<問い合わせ先> 

シャープ ㈱ Q 03 (3260) 1161，06 (621) 1221 

通信機能付きスクリーンエディタ 

Xe ver.2 

エル • クラフト 

エル•クラフトは， X 68000 用スクリーン 
エディタ 「Xe ver .2」 を発売した。 

「Xe ver .2」 は1行95文字，3000行までの 
テキストを扱える通信機能付き学習用シン 

グルファイルスタリーンエデイタである。 
C 言語によるソースリストが公開されてお 
り，ユーザー は自分の手でエディタの改造 
などを自由に行えるようになっている。 

なお，同ディスクには簡易 ファイルセレ 
クタ 「 FS . Xj も収録されている（こちらも 
ソース リスト付き）。 

価格は9,800円（税別）となっている。 
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く問い合わせ先〉 

㈱ エル.クラフト 30559(71)2015 


INFORMATION 


ダイヤル Q 2 アスキー 書籍 • 

^■■ータライブフリー 

アスキー 

アスキーは， ダイヤル Q 2 サービスを 利用 
して パソコン 通信で提供す る 「ダイヤル Q 2 
アスキー， 書籍 データ ライブラ リー」 を開 
始した。 

この サービスを 利用す る ことにより，ユ 
ーザーは提供された書籍の中のデータ， サ 
ンプルプログラムを 自由に入手す る ことが 
できる。そして，書籍の一部分から1册全 
体のデータまで，ユーザーが必要としてい 
る データを選択して入手可能。 

今回提供される書籍は，以下の9タイト 
ル 0 「花子入門 」 「Multiplan 3.1 」 「MIFES 
を256倍使うための本」「 VZ を256倍使うた 
めの本」 「 X 68000 パワーアッププログラミ 
ング」 「 C プログラムブック I 」 「 C プログ 
ラムブック II 」「 C プログラムブック Illjr 応 
用 C 言語」 

なぉ，入会手続きは不要。 

• アクセス 番号： Q 0990-343260 
• アクセス 料.： 90円/分（通話料別） 

• 通信プロトコル： Xmodem , Y modem 
• 通信ボーレート： 2400 bps 
く問い合わせ先〉 

㈱ アスキー Q 03 (3797) 3225 

ペンギン情報 コーナー 263 
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このインデックスは，タイトル， 
注記——著者名，誌名，月号，ぺ 
ージで構成されています。暦のう 
えではもう秋だけど，まだまだ暑 
さは続きます。夏バテしないよう 
に，しっかり栄養をつけて，たま 
には運動もしましょうね。 


参考文献 
I / O 工学社 
ASCII アスキー 
コンブティーク角川害店 
テクノポリス徳間窨店 
天文ガイド誠文堂新光社 
トランジスタ技術 CQ 出版社 
POPCOM 小学館 

マイコン BASIC Magazine 電波新聞社 
マイコン 電波新聞社 
LOGIN アスキー 


一 船 
瓶 

► THE NEWS FILE 

•92 東京おもちゃショウ会場の模様をレポート。ゲーム 
マシンはもちろん，子供たちの間で大人気のバーコード 
バトラーの新機種など，各社ともハイテク電子技術を駆 
使した話題の商品を出展。——編集部， LOGIN , 14号，38 
-39 pp . 

►アルゴリズムを見切ったぞ!？ 

3 D ゲームの卷•その3。 3 D 座標の計算アルゴリズムに 
ついて， X 68000 の X - BASIC のリストなどをサンプルにや 
さしく解説。一おにおん，テクノポリス，8月号，132 
-136 pp . 

►ど〜するど〜なる!？ パソコンゲーム！ 

1991年度のパソコンゲームソフトの売り上げは，前年 
と比べると20%の落ち込みだった c 着実に人気を伸ばし 
つつあるゲーム専用機と，マニア向けで難しく見られが 
ちなパソコンを比較しつつ，パソコンゲームの未来を考 
える。一編集部.テクノポリス，8月号，137- 140 pp . 

► THE NEWS FILE 

上野と新宿に開店したコンセプトゲームセンター，「パ 
セラ j 1 ■タイトー•イン•ゲームワールド」の紹介。ビジ 
ネスショウはペン型入カデバイスが話題。シャープの提 
案する次世代電子情報「ハイパー電子マネージメント手 
帳」など。一編集部， LOGIN , 13号， 36-43 pp . 

►電脳通信 

各社の最新発売機種を紹介。シャープの 「書院 バソコ 
ン J は，ワープロ 「窨院 j と r D 0 S / Vj パソコンが一体化 
された新しいスタイルのマシンだ。——編集部，コンブ 
ティーク，8月号， 237 p . 

►ワープロ/パソコン通信新聞 

ワープロでもできる戦閼ゲームが NIFTY - Serve にオー 
プン。子供のためのフォーラム.第 I 回フリーソフトウ 
エア大賞の受賞作など，パソコン通信の最新ニュースを 
掲載 0 ——山本まさこ，マイコン BASIC Magazine , 8月 
号， 274-277 pp . 

►最新機種今買うならこれだっ 
ペンを使った手書き入力のできるシャープの電子手帳 
「 PV - Flj をはじめ，ペンコンピュータ， PC -980 I など今年 
の春夏の新製品を紹介し，業界の動向を読む。——編集 
部， ASCII , 8月号, l 85-207 pp . 

►得するパソコン活用術 

パソコンのランニングコスト を抑える方法を伝授する。 
X 68000 をブログ ラミングマシンと して安価に使うため 
の 知恵を紹介し，安くてちょっと遊ぺる マシンと して XI 
turboZ も登場して いる u ——編集部， ASCII , 8月号，225 
-240 pp . 

► Dig 卜 Ana Valley 

デジタルで録音してデジタルで聴く。ソニーが開発し 
た MD は音質•ポータピリティなどを高いレベルで両立さ 
せ次世代オーディオシステムだ。その仕組みと音声デー 
夕圧縮技術の深淵に迫る。一編集部， ASCII , 8月号， 
289-296 pp . 

►欧州ハイテク事情 

ミラノで行われた MACWORLD EXP 0& TI 0 N の模様を伝 
える。イタリアでの Mac の普及はまだまだこれからとい 
うこともあって，啓蒙的なブースが多かったほか，美術 
系の出版社が出展していたのが印象的だったとか。—— 
菊地薫， ASCII , 8月号， 352-353 pp . 

► News Room 

アッ プルが先頃発表し， シャー プが製造に参加する こ 
とが話題を呼んだ PDA に対して所見を述べる。——山田 
憲 一 ，マイコン，8月号，100- 103 pp . 

►入門 DIY 工作 

簡易 ディスプレイ切り替え器を製作する。ディスプレ 
イの信号線の解説を行い，製作上のアドバイスと使用法 

を 説明する。-石川至知， マイコン， 8月号， 234-235 

PP - 

► •92東京おもちゃショウ 

6月4日から7日までの4日間，干葉市の幕張メッセ 
で行われた東京おもちゃショウの模様をレポートし，現 
在のおもちゃの傾向を対談形式で分析する。——あゆさ 
わかつみ他，マイコン，8月号， 273-28 Ipp . 


►ページプリンタの基礎知識 
DTP の普及とともに関心の高まっているページブリン 
夕。そのメカニズムや記述言語の使い方を解説し，イン 
クジェットのメカニズムにも言及。最新のページプリン 
タカタログとともにお届けする。一川田徹他， I / O , 8 
月号， 54-73 pp . 

►印刷終了通知ブザー 

プリンタの印刷が終わると鳴るブザーのハードエ作。 
外部電源も不要の優れモノだ。——森羅万象. I / O , 8月 
号，120- 123 pp . 

► HP Kittyhawk 

横川ヒュー レッ ト パッカー ドが発表した，丨.3イ ン チの 
世界最小ハードディスクドライブを紹介。 2 I .4 M バイト 
の記憶容量をもち，応用分野の広がりが期待されている。 
—編集部， I / O , 8月号，160- I 6 lpp . 

►マシン語モニタを作ってハードとソフトを理解しよう 
初心者のための Z 80 マイコン教室。 AK - Z 80 を題材に，マ 
シン語モニタを組み込むことによってソフトとハードを 
並行して理解していく。一茂木東樹.トランジスタ技 
術，8月号, 399-406 pp . 

MZ シリーズ 

MZ -1500 (BASiC 5 Z -001) 

►ベーマガ.パニック 

けんかしてるヤツはぶっとばせ。上から落ちてくるべ 
ーマガ 編集部の人たちを操作して，けんかをさせ，ふっ 
とばす。アクションバズルゲーム。—— Blues Power , マ 
イコン BASIC Magazine , 8月号，124-! 25 pp . 

MZ - 2500 ( BASIC - M 25) 

► TRIANGLE 

画面の黄色以外の3色の三角形をすべて消す。色合わ 
せパズルゲーム。——エ藤俊介，マイコン BASIC 
Magazine , 8月号，126- 128 pp . 

Xl/turbo/Z 

XI シリーズ 

► THOUGHT 

コンピュータとディスブレイをつなげ！ アクション 
パズルゲーム。——山根幸一郎，マイコン BASIC Magazine , 

8月号，153- 154 pp . 

►誌上公開質問状 

XI G モデル30がつながる X 68000 用ディスプレイは？ 
という質問に答える。——多田太郎，マイコン BASIC 
Magazine , 8月号， I 78 p . 

X 1 +FM 音源ボード（要 NEW FM 音源ドライパ） 

►ストリートフアイター II 〜ケンのテ ーマ〜 

カプコンのゲームミュージックプログラム。——川村 
賢治，マイコン BASIC Magazine , 8月号，173- 174 pp . 

XI turbo シリーズ 
►移植版おむすび探偵団 

どんなおむすびの中身もおまかせ！ 中身がわからな 
くなってしまった大堡のおむすびを前に，おむすび探偵 
団のリーダーとなって中身を当てるゲーム。——舟生日 
出男，マイコン BASIC Magazine , 8月号.155- 156 pp . 

X 的 000 

► X 68000新聞 

完成を間近に控えた「ポピュ ラス II 」を紹介。国産 マ 
シンの移植は X 68000がいちばん最初だ 。X 68000 
CompactXVI の発売で少々混乱気味のフロ ッビー ディスク 
ドライブ。ついにシャープ純正の5インチディスクドラ 
ィブが発売された。そのほか，計測技研より発売される 
CD - ROM ドライブや X 68000 CompactXVI に内蔵する 80 M 
バイトのハードディスクを紹介。新着ゲームのほうは「餓 
狼伝説」， PC -980 I 版で大人気のアドベンチャー「ふしぎ 
の海のナディア」が X 68000に移植決定の話題など。—— 
編集部， LOGIN , 13号. 258-26 Ipp . 

► NEW SOFTWARE 

ビジネスにも使える本格的グラフ&チャートソフト 「CHA 
RT PRO -68 Kj を紹介。各種データベースで作成したデー 
夕をもとに，多彩なグラフを作成するアプリケーション 
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遊園地の現在学 
松本孝幸著 


JICC 出版局刊 
303(3234)3688 
新書判 147 ページ 
抑 98Q 円（税込） 

最近，遊園地のあり方が変わってきた。以前は 
大きな敷地をもつ郊外型が主であったし，それほ 
ど大掛かりな仕掛けがあるとは思えなかった。が， 
ここ数年バーチャルリアリテイなど最新テクノロ 
ジーを駆使したものがどこの遊園地にもお目見え 
しているし，街の中にもそういった技術だけを寄 
せ集めた小規模遊園地（いわゆるアミューズメン 
トスポット）も登場し始めている。 

本書は，とくに遊園地のジェットコ_スターな 
どを例に，最新技術によって得られる人工現実感, 
そして未知なる超都市や超感覚などを探っていく 
ものである。 


籾'/)ガス'《ール.セ vv a ン 

筒井康隆電脳筒井線一朝のガ 

スパール • セッション 

PART2 
筒井康隆著 
朝日新聞社刊 
803(3545)0131 
四六判 254 ページ 
800 円（税込） 

昨年発売された同名タイトルの続編。本害は， 
朝日新聞に連載されていた長編小説「朝のガスパ 
—ル」と連動して，パソコン通信の ASAHI パソコン 
ネット上で繰り広げられた会議の記録をまとめた 
ものだ。パソコン通信上だから，もちろん多数の 
参加者がいて，「朝のガスパール」についての意見 
のみならず，いろいろな話が織り交ぜてあり，な 
かなか楽しく読める。もちろん，「朝のガスパール」 
を読んでいればより楽しめるが，パソコン通信の 
特徴をそのまま生かして本にしているので，パソ 
コン通信とはどういうものかを知りたい人などに 
もうつてつけの本である。 


情報文化問題集 
松岡正剛監修 
情報文化研究フォーラム 
+編集工学研究所構成 
©03(5484)4060 
NTT 出版刊 
A 4 判 371 ページ 
3,201) 円(税込) 

NTT 出版の情報文化研究フオーラムシリーズ最 
新作がこの「情報文化問題集」である。問題集と 
いっても質問が並んでいるわけではもちろんなく 
て，情報文化で問題とされている部分を集めた， 

と捉えるのがいい。情報文化研究フォーラムなど 
という面妖なフォーラムは何をするところか，と 
いうと，「メディアとコミユニケーシヨン j「AI と言 
語」「遊び•芸能•宗教」「都市の歴史とデザイン」 
および「こどもと情報環境」の5ジャンルにおい 
て，それぞれ平均10回ずつの討論を繰り広げるも 
の。 各 ジャンルには コーデ イネー ター がいて，フ 
オーラムに呼ばれた各ジャンル専門家の出席者が 


いる。1989年にそのフォーラムで論議された内容 
をまとめたのが本書。テーマに沿って，まず出席 
者によるテーマの概論，続いて対談，という構造 
がずらりと並んでいる。現在，これだけのメンバ 
一を一堂に会した本はないというだけでも価値が 
ある。1989年だからといって古いと思ってはいけ 
ない。1992年でも十分に通用する内容であるし， 
1989年という年に縛られてしまうようなメンバー 
はいないからだ。 

本書が追求するのは，コンピュータにとっての 
情報ではなく，技術，とりわけコンピュータが発 
達していく時代での人間にとっての情報であり， 
そこではメディア，コミュニケーション，尚，文 
化など，テクニカルな側面だけでは捉えきれない 
ジャンルに対してテクノ ロジーを踏まえたアプロ 
—チをすることが要求されている。どちらか一方 
の視点では必ず破綻する問題であり，双方を同じ 
レベルの視点をもって見つめられる人が必要とさ 
れているのだ。本書はそういう意味で非常に面白 
い。各論が短いため，詳細は各テーマの専門害を 
必要とするが，おかげでとっつきやすくなってお 
り，興味のあるジャンルを拾い読みするだけなら 
気楽に取り掛かれる。 NTT 出版のシリーズではい 
ちばんお得な本ではないだろうか。 （K ) 







新刊書案内 


ソフト。-編集部，マイコン BASIC Magazine, 8月号， 

88-89pp. 

► DRAGON PANIC 

IIいかかるドラゴンから逃げろ。先に喰われてしまっ 

たら負け。2人用アクションゲーム。 - 林純一，マイ 

コン BASIC Magazine, 8月号，157- 158pp. 
►エキサイティング.ラーメン 

ラーメン屋とお客との戦い。ひたすら客の注文どおり 
にラーメンを作り続ける。記憶カアクションゲーム。—— 
石川潤，マイコン BASIC Magazine, 8月号，159- 160pp. 

► RUIN 

誰も手にすることのできなかった宝石を手に入れるた 
めに遺跡に足を踏み入れた……。「ゼルダの伝説」風アク 

ション RPG。 - AH0, マイコン BASIC Magazine, 8月 

号，16 1-163pp. 

►ストリートファイターII 〜タイトル BGM 〜 

カプコンのゲーム ミュージック プログラム。要 

NAGDRVo -荒木潤，マイコン BASIC Magazine, 8月 

号.175- 176pp. 

►誌上公開質問状 

CM-32L は X 68000 につながるか？ X 68000用として 
発売されているディスプレイに PC-980 1シリーズをつな 
ぐことはできるか？ X 68000のマシン語を覚えたいが， 
いい参考害はないか？ などの質問に回答。——多田太 
郎，マイコン BASIC Magazine, 8月号，177- 178pp. 

► SOFT EXPRESS 

幅広いファンをもつポピュラスの第2弾「ポビュラス 
II j がX 68000に移植。8月末の発売を待て！そのほか 
初心者からマニアまで興奮の FI ゲー厶 「OVERTAKE」 の紹 
介。機種別新着ソフトのリストなど。——編集部，コン 
プティーク，8月号， 62-67pp. 

► Hardware Hot Press 

各社の新発売機種を紹介。X 68000 CompactXVI に最適 
なシャープ純正5インチフロッピーデイスクドライブ 
「CZ-6FD5J など。一編集部， P0PC0M, 8月号， 24-25pp. 
►最新 SLG 徹底比較 

最新シミュレーショシゲームを紹介。X68000代表は， 
当然話題の「ポピュラス llj だ。——編集部， P0PC0M, 
8月号, 66-67pp. 

►ゲームの達人 

格闘ゲームの老舗がX 68000に完全移植！ カプコン 
の「ファイナルファイト j を紹介。——相撲レスラー本. 
田， P0PC0M, 8月号， 100-IOIpp. 

► GAMING WORLD 

最新ゲームの紹介。手に汗握る 3D バトルシミュレーシ 
ョン「バトルテック〜奪われた聖杯〜」，発売予定の「ェ 
アーマネジメント」「キャッスルズ Jo —編集部，テク 
ノポリス，8月号， l8-37pp. 

► SUPER NEW SOFT 

あのカブコンが，ついにバソコンゲーム界に進出だ。 
その第丨弾としてX 68000の「ファイナルファイト j が選 
ばれた。ファン待望のアクションゲームを紹介。——編 
集部， LOGIN, 14号， 14-15pp. 

► X 68000新聞 

スプラッタホラー「デッド*オブ•ザ • プレイン j は， 
なんとあのフェアリーテールの作品。そのほか新着ゲー 
ム「三國志 1H」。SX-W 旧 DOW 上で動く 「SOUND SX-68Kj 
「COMMUNICATION SX-68K」 など，シャープの SX-WIN 
DOW に対する意気込みが伝わってきそうな新製品たち 
を紹介する。一編集部， LOGIN, 14号， 222-225pp. 

► AV STRASSE 

計測技研から発売された CD-ROM ドライブ 「KGU-XCD」 
を取り上げ， SX-WIND0W 上のアプリケーションの使い勝 
手やソフトウェア供給予定も併せて紹介する。また， 
SOUND SX-68K のベータバージョンも登場。——編集部， 
ASCII, 8月号，301 -304pp. 

►美瑛 

北海道美瑛町の町おこしと連動したパズルゲーム「美 
瑛 j を取り上げる。スタイルはテトリスタイプのパズル 
ゲームだが，前田真三氏による美瑛町の写真が取り込ま 
れているのが特徴。——猪野清秀，マイコン，8月号， 
I26p. 

►なんでも Q & A 

Human68k の起動時に RAM ディスクを確実に確保する 


方法， SX-WINDOW ver.2.0 でツアイトの「害体倶楽部」を 
使用する方法などを聞く。ーシャープ株式会社 AVC シ 
ステム事業推進室，マイコン，8月号， 252-253pp. 

► DUAL TANK 

2人用対戦型戦車ゲーム。 C 言語を勉強中の人のため 
の習作でもある。プログラムは付録ディスクにも収録。 
——土方嘉徳， I/O, 8月号， 95-99pp. 

► X68000 用 MIDI インタフェイスポードの製作 

純正 MIDI インタフェイスポードと同じように使えるこ 
とを目標にして製作するハードエ作。——奥村暢朗，卜 
ランジスタ技術，8月号， 379-38 Ipp. 

► ST-4 による天体画像 


X68000 を使った天体用 CCD カメラの活用例を報告。撮 
影した画像をソフトウ; c アで処理し，さらに X68000 の Z's 
STAFF PRO-68K を使って画像の仕上げを行う。——福島 
英雄，天文ガイド，8月号，71 -74pp. 

ポケコン 

PC-E500 
► The Baseball 

ひとりでも2人でも楽しめてしまう，カードゲーム風 
対戦野球ゲー厶。——津崎直，マイコン BASIC Magazine, 
8月号， I65p. 
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int ai 

dim char data(128) 
ai=fopen("h:test.sp","r") 
bi=fopen("h:sp_data","c") 
i =1 

while feof{ai)< >-1 
fread(data,128,ai) 
sprite_data(i) 
i = i+l 
endwhile 

fputc(&HlA,bi) /* テキスト EOF コ - 卜 * 

fcloseall() 

end 

func sprite 一 data 《 sp_num;int) 
int i,j,k 

fwrites( "dim char 3p"+s1:r$ 《 sp 一 num}+•• < 255 } = { " , bi } 
crlf() 

for j=0 to15 
for k=0 to 3 

sprite_data_write(i,k) 
next 

for k=64 to 67 

sprite 一 data—write(i,k) 
next 
i = i +4 

if i<=60 then { fputc(ascbi) 

} else { fputc(asc("j"),bi) } 

crlf () 
next 
endfunc 
ハ 

ハ改行コードを出力 
/* 

func crlf() 
fputc(13,bi) 
fputc(10,bi) 
endfunc 
パ 

/* スフ • ライトテ"-夕を出力 
ハ 

func sprite_data 一 write(i;int,k;int) 
if k=0 then { fputc(asc("+"),bi) 

} else { fputc(asc(","),bi) } 
fwrites(str$(data(i+k)/ 16 ),bi) 
fputc(a8c(","),bi) 
fwrites(strS(data(i+k) and 15),bi) 
endfunc 


リスト 1 


ならないということはありません）。 

もし， n 個のスプライト データが あれば， 

配列名が sp 2， sp 3, sp 4. spn と続いてい 

きます0このファイルには行#号がついて 
いないので， X - BASIC の LOAD ® コマン 
ドを使ってロード（アペンド）してくださ 


実際の ス プライト パターンの 定義には 
spdef 命令を使います。たとえば配列 spl の 
ス プライト データをパターンコード 〇に定 
義するなら， 

sp_def ( O . spl , 1) 

となります。詳しくは X - BASIC のマニュ 
アルを参照してください。 

リスト2を实行して出力されるファイル 
は， 

dim int pall (15)= { 

+ 0,0, . ，65534 ) 

のようになっています（繰り返しますが， 
配列の内容は説明のために書いたもので， 

• J スト2 


10 int ai 

20 dim char pal_data(32) 

30 ai=fopen("hipalet.pal","r") 

40 bi=fopen("h：palet data","c") 

50 i=l " 

60 while feof (ai )0-1 
70 fread(pal_data,32,ai) 

80 pa 丄 et_data ⑴ 

90 i=i+l 
100 endwhile 

111) fputc(&HlA,bi ) /* テキスト EOF コ - 卜 * 

120 fcloseall() 

130 end 

140 func palet_data(palet num;int) 

150 int i,j 
160 i=0 

Writes( M dim int pal"+str$(palet_num)+"( 15 )={",bi) 
180 crlf() 

190 for j=0 to15 

200 if i =0 then fputc(asc("+"),bi) 

H'i fwrites( atr$ (pal_data ( i ) *256+pal_data ( i + 1)) f bi) 
220 i=i+2 

230 if i く 32 then { fputc(asc(","),bi) 

240 J else { fputc(asc{"}"),bi) } 

250 next 
260 crlf() 

270 endfunc 
280 /t 

290 /* 改行コードを出力 
300 /* 

310 func crlf() 

320 fputc(13,bi) 

330 fputc(10,bi) 

340 endf unc 


表 i アセンブラ用変更点 

リスト 1 sp_def. bas の変更点 

160 f »rites("pa t M +str$(sp_nu»)+ w ： w f b I ) 

410 I f k = 0 then { fwrltes(" dc. b , b!) 

260 ， 270 行削除 

リスト 2 sp_co1or. bas の変更点 
170 fwrites (” pb”+str$(palet_nuB)+” ： ” ， bl> 

200 If i=0 then fwrltes (” dc.n ” ， bi) 

230 If 丨 <32 then fputc (asc(” ， "> ， bl) 240 行削除 


❹ 


創刊 10 周年記念 PRO -68 K に収 
録された SM.X は手軽にスブラ 
イトデータの制作ができそうな 
のですが， SM . X でセーブしたスプライトデ 
一夕を X-BASIC やアセンブラで利用する 
方法がわからないので困っています。その 
ための方法を教えてください。 

神奈川県堀江良靖 
同様の H 問が多数送られてきま 
した。 SM . X で保存されるスプ 
ライトデータ （*. SP ) や パレツ 
ト ブロック データ （*. PAL ) は， SM . X 独 
自のデータ溝造で保存されるため，マシン 
語プロダラムならともかく， BASIC では扱 
いにくくなっています。そのデータ構造は 
6月号の66ページに公開されています。そ 
れを参考にしてスプライトデータと パレ ッ 
ト ブロック データを読み出して ，X - 
BASIC で利用できるように変換するプログ 
ラムを作成してみました。 


プログラムは X - BASIC で齊•かれていま 
す0リスト1が*. SP のファイルからスプ 
ライトデータを読み出すプログラム，リス 
卜2が*. PAL のファイルからパレツトブ 
ロツ クデータを読み出すプログラムです。 

どちらとも読み出したデータは， X-BAS 
1 C で利用できるかたちにしてファイルに 
書き出します。入出カドライブぉよびファ 
イル名は，各分の環境にあわせて変更 
してください（30, 40行）。 

リスト1を実行して出力されるファイル 
の内容は， 

dim char spl (255)= { 

+ 0 , 0 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 0 , 0 , 


+ 0 . 0 , 0 , 0 , 0 , 0 . 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 } 
といった ように， X - BASIC で配列にスフ。 
ライトデータを定義するときのお約束のか 
たちになっています（配列の内容は説明の 
ために -; If いた もので，同じ内界でなければ 



000000000000000000000000000000000000000000000 
3456789012345 B 78901234567890123456789010^34567 
11111111112222222222333333333344444444 
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M じ内容でなければならないということは 
ありません）〇 *. PAU 二すベての パレット 
ブロックをセーブしたなら， Pall 〜 Pall 5 ま 
での配列が パレット ブロック1〜15に対応 
します。 

また，配列の要素番号がパレットコード 
に対応します。このファイルにも行番号が 
ついていないので， L 0 AD @ コマンドを 使 
ってロードしてください。 

たとえば， pbl の内容をパレットブロッ 
ク1に設定するなら， 
for i =0 to 15 
sp _ color ( i ， Pall ⑴， 1) 
next 

のようにしま•す。 

また，読み出しプログラムを使わず，直 
接マシン語プログラム中で利用したいとい 
う方のためのリストの変更点を図1に紹介 
します。これでアセンブラソースリストに 
DC 命令でデータが出力されるようになり 
ます。あとは，各自でこの形式にあったス 
プライト定義ルーチンを作って呼び出すよ 
うにしてやればいいわけです。 

*. SP に保存されているスプライトデー 
夕はキャラクタコードの若い順に並んでい 
ます。また CANVAS のデータである*. 
PA 丁は，先頭の1ワードがスプライトデー 
夕の横のサイズ，続く1ワードが縦のサイ 
ズを表し，その後ろ にス ブライトデータが 
格納されています。 

リスト1は*. PAT のデータ構造に対応 
していませんので，少しプログラムを組め 
る方ならば入カファイルの拡張子に応じて， 
先頭の2ワードを特別扱いするようにプロ 
グラムを改造してもいいでしょう0もっと 
も， *. SP で保存すればことは足りますの 
で，わざわざそうする必要はないと思いま 
すが。 （影山裕昭） 

先日，友達から PC-9801 で作っ 
たテキストファイルなどをもら 
ったのですが，半角片仮名のフ 
ァイル名のもので読み込めないものがあり 
ました。 マニュアル によれば Human68k で 
も片仮名のファイル名は許されているはず 
ですがなぜでしょうか。ちょっと気になる 
のは，片仮名のファイルがすべてダメとい 
うわけでもなく，一部のものだけが読み込 
めないことです。 X68000 と PC-9801 では一 
部のコードが違うのでしょうか。また，ど 
うしても読み込むこ$はできないのでしよ 


うか。 富山県藤代俊己 

おそらく読み込めなかったファ 
イルは，音引きとしてマイナス 
記号を使っているものと思われ 
ます0 MS - DOS ではファイル名の一部に 
”を使う こと ができますが， Human 68 
k では禁止されているのです。 

このようなものはデイスタの管理情報を 
直接書き換える， MS - DOS マシンでリネー 
ムする，フリーソフトウェアの twentyone . 
x などのような Human 68 k 机•張 ツールを 使 
用する，というのが対处法として知られて 
います。 

しかし，最新の Human 68 k ver . 2.03では 
マイナス記号をファイル名に使用できるよ 
うに拡張されていますので，システムデイ 
スタの Human 68 k を新しいものに取り替 
えるものもよいでしよう（ただしマニュァ 
ルには明記されていません）〇新しい Hum 
an 68 k は X 68000 CompactXVI のシステム 
ディスク ， XC ver .2.1, SX-WINDOW ver . 
2 .0 などのパッケージに使用されています。 
幸い， Human 68 k の大きさ力 5 '， 
ver .2.01 54174バイト 
ver . 2.02 54240バイト 
なのに対し， 

ver .2.03 53626バイト 
と少し小さくなっていますから，これらの 
バージョンからのシステムの差し替えは簡 
単です。ここではハードディスクが A ドラ 
イブ，フロッピーが D ドライブだと仮定し 
て手順を解説しましよう。 

まず， コマンド モードで A ドライブの ル 
—トデイレクトリに移動し， 

A>ATTRIB -S HUMAN.SYS 
を実行します。これで HUMAN . SYS が可 
視状態になったはずです。次に， 

A>DEL HUMAN.SYS 

を実行します。システムディスクの 
Human 68 k が消去されました。ここからは 
すべての作業が終わるまで絶対に A ドライ 
ブに新しいファイルを作成しないでくださ 
い。もちろんリセットもいけません。 

SX-WINDOW ver .2.0 のマスターデイ 
スク などを D ドライブに入れ， 

A > D : 

でカレントデイレクトリを D ドライブに移 
動します。 

D>SYS A : 

で Human 68 k が連続した領域に転送され 




たら操作は終了です。 

このように新しいシステムが従米よりも 
小さい場合，本来なら SYS コマンドだけで 
システムの転送ができるはずなのですが， 
スタッフの話によると稀に連続した FAT 
への システム転送が失敗する こ とがあるよ 
うですので，一度 HUMAN . SYS を削除し 
ておいたほうが確実でしょう。 

万一，失敗した場合は最初からやり直す 
か，同じ手順で元と同じバージョンの 
Human 68 k を転送してください（おそらく 
は途中で A ドライブに新規ファイルを作っ 
てしまった 力、， Human 68 k が ver . l の場 
合）。復元が不可能になっても他のファイル 
は無事ですので，その時点でファイルのバ 
ックアップを行えば最悪の事態は回避でき 
るはずです 3 リセットしてしまった場合は 
あわてずに フロ ッピーから立ち上げ直して 
ください。 

なお， マニュアルに 使用可能とされてい 
る文字以外にも（シフト+@キ 
— 〉，“％”がファイル名として使用できる 
ようです（従来バージョンより）。ただし， 
“％1”などというファイル名を作成した場 
合はバッチ処理などで不都合がある可能性 
もありますので使用しないほうがよいでし 
ょう。また，当然のことながら，“一”は才 
プション指定とみなされますので，ファイ 
ル名の先頭文字には使用できません。 

(中野修一） 


質問にお答えします 

日ごろ疑問に思っていること.，どんなこ 
とでも結構です。どんどんお便りください。 
難問，奇問，編集室が総力を挙げてお答え 
いたします。ただし，お寄せいただいてい 
るものの中には，マニュアルを読めばすぐ 
に解答が得られるようなものも多々ありま 
す。最低限，マニュアルは熟読しておきま 
しょう。質問はなるべく具体的に機種名， 
システム 構成，必要なら図も入れてこと細 
かに害いてください。また，返信用切手同封 
の質問をよく受けますが，原則として，質 
問には本誌上でお答えすることになってい 
ますのでご了承ください。なお，質問の内 
容について，直接問い合わせることもあり 
ますので，電話番号も明記してくださいね。 
宛先：〒1〇8東京都港区高輪 2-19-13 

NS 高輪ビル 

ソフトバンク株式会社出版部 

「Oh!X 質問箱」係 
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TO THE EDITOR —— 

に季節は移り変わるでしよう。残暑を感 
じながら，ちょっとだけ思い出に浸るの 
もいいんじゃないかな。 


かいられませんよ。 

♦お試しディスクのおかげで，ここ2, 3日 X 68000 
の電源は入れっぱなし。初めは軽い気持ちで「ワ 
ゴン」を画質「悪い j でやってみて（待ってい 
る間はもちろんスーパーファミコンのスト II 
ね）思わず感動しました。このハガキを書いて 
いるいまも 「 F - I 5」 のアニメーシヨンを作って 
います。ところで何日ぐらい X 68000 の電源を入 
れっばなしにしても大丈夫なんでしょうか。 

藤木健二 （16) 東京都 
本体についてはかなりの期問 vii 源を入れっ 
ぱなし （1,2 力月ぐらい〉にしていても平気 
です。ただ，ディスプレイはブラウン管を 
傷める可能性があるので，こまめに消して 
ぉきましょう。 

♦ D 6 GA はすばらしいです。お試しディスクで作 
ったサンプルを用いていろいろ遊んでいますが, 
これで付録+ 3,000円は安すぎます。といっても 
まだ入金していないけど，ポーナスが出たら入 
金しよう。現在，マニュアルなしでもモデリン 
グから動画合成などをやって楽しんでいます。 
ところで，高橋さんがイラストにこだわってい 
て非常に嬉しい。で，イラスト増ページは予定 
していませんか。 見浦崇 （23) 長野県 


奥现するためには読者の皆さんの協力が不 
"『欠。荚力でイラストコーナーを次:祝しま 
しょう。挑戦，侍ってます。 

♦ 「連載のすべて j を読んで「ああ.10年前か 
ら続いている連載はもうないのか」と思いなが 
ら，1982年の Oh ! MZ を読んでいました。そこで気 
がついたのですが，題名も変わらずいまでも続 
いている連載⑺があるじゃないですか。その名 
は「ぼくらの掲示板」と 「SHIFT BREAK 」。 

石井一成 (22) 山梨県 
これはすごい，と裒ぶべきことなんだろう 
か。ちょっとだけ悩んでしまいました。 
♦ペンギン情報 コーナーの X 68000 用 CD - ROM ド 
ライブ 「 KGU - XCDj を見たときには，とても嬉 
しかった。やっと X 68000 にも CD - ROM ドライブ 
を接続できる。同時発売の「フリーウェアセレ 
クシヨン」にも注目をしてしまいますね。ぜひ, 
レビューをやってほしいところです。 

岡島昌之 (28) 大阪府 
ごめんなさい。8 )1兮はぉろか9り•でも 
叫に合いませんでした。来月こそレビュー 
をしますので架しみにしていてください。 

♦ 7月号105ページを読んで僕が思った感想を 
害きます。僕はいつも村田さんの記事をとても 
楽しみにしています。なぜなら， X 68000 のアセ 
ンブリ言語が，わかりやすく 丁寧に解説されて 
いるからです。僕がアセンブラをやってみよう 
と思ったのは，村田さんの記事を読み「これく 
らいなら僕にも書けるかもしれない j と感じた 
からです。村田さん，これからもグレイトであ 
りつづけてください。今井雅治 （19) 岐阜県 
今井さんもグレイトになるためにがんばっ 
てくださいね。 

♦最近，汚れていたキーボードを分解してキー 
トップとカバーを水洗いしてみました。いやあ, 
とてもきれいになりました。新品同様です。と 

喜んでいたのすが . あれ？ F 6 キーがおか 

しいぞ。 井戸滋 （18) 鳥取県 

ここにまた，キーボード分解掃除の犠牲者 
が出てしまいましたか。面倒ですがキート 
ップを分解せずにガラスクリーナーなどで 
セコセコ拭き，ほこりは掃除機で吸い出す 
のがいちばん安全です。 



FROM READERS 


すでに海はクラゲだらけ。華やかな夏が 
過ぎようとしています。夏の思いが実現 
した人にも，見事砕け散った人にも共通 


♦DoGA CGA システム。予想どおりのすばらしい 
出来。バックナンバーを引っ張り出し，マニユ 
アルなしながらも結構遊んでいます。 

中嶋祥史 (24) 神奈川県 
♦おおっ！ D 6 GACGA システムだ。先月からと 
ても楽しみにしていたので，さっそく立ち上げ 
ちやる。なになに，お試しディスク？ モーシ 
ヨンデータ集みたいなやつか。2, 3回試しにア 
ニメーシヨンを作ってみると，やっぱり自分で 

もなにか作りたくなりますね . 。なにっ，マ 

ニユアルは手に入れるのに I 力月かかるんです 
か。とりあえず，昔の 0 WX を読み返しながらなん 

とか . なりそうもないですね。早くマニユア 

ルきておくれ〜。 小林宏教 （18) 新潟県 

♦かねてから D 6 GA CGA システムを入手したい 
と思っていたのですが，なかなかチャンスがあ 
りませんでした。今回の付録ディスクにはとて 
も感謝しています。 堤雅秀 (24) 神奈川県 
♦ D 6 GACGA システムのお試しディスクは，受験 
生に優しいシステムでした。マウスでチヨイと 
操作して， X 68000 が計算している間に受験勉 
強。疲れてきた頃に計算完了。できたアニメー 
シヨンを見て疲れをふっ飛ばし，また机に向か 
う。まったくありがたいシステムです。 D 6 GA さ 
んありがとう。 安藤哲 （18) 山形県 

人-反鄴の D 6 GA CGA システム。がんばって 

使いこなしてくださいね。 

♦ 7 月号の特集 「 TORNADO の秘話」には，非常 

に感銘を受けました。思わず「よ一し，おれも 
やってやるぜ！ 次回の CGA コンテストのグラ 
ンプリはこのおれがもらったあ」と叫んでしま 
ったほどです。 青島一高 (23) 静岡県 

♦ 7 月号の文月氏の記事を読んで，2輪の口一 

ドレースに出ていた頃の自分を思い出しました。 
どんなジャンルにいる人でもなにかを成し遂げ 
るには，自分が納得するまで「あきらめない」 
ことがやっぱり大切。私はそんな TORNADO を見 
てみたい。 上田剛 （33) 北海道 

文月氏の熱い情熱には見淠うべきところが 

あるでしよう。読者の皆さんも負けてなん 
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されている。なにか矛盾していないだろうか。 

増田秀樹 (26) 東京都 
一応， X 68000 は家電とぃうことなんで，そ 
のへんの規則がからんでくるため矛盾が生 
じるんでしょう。 

♦次々と増殖する各種データにまみれ，さらに 
DoGA CGA システムまで入手してしまい。本格的 
にハードディスクがほしくなった今日この頃。 
創刊丨0周年特別企画を楽しく読ませていただき 
ました。ところで、山本寛氏と祝一平氏は同一 
人物ではないのでしょうか。 

上田考_(22)福岡県 
とりあえずアヤシイ関係、とだけいってお 
きまし上ラ0 

♦「 X-OVER NIGHT 」 の高原さん。あんまリ〇 
立，日〇と書かないでください。どうせ書くな 
ら バレーポールに 注いでいるお金を社員の給料 
に回してあげなさい，とでも書いてくださいよ。 
毎月70〜80時間残業してもたいした金額をもら 
えないのですから。給料が安くて休みがない， 
そのうえ作業もきつく，ついでにロポットにも 
て遊ばれるのに，ポーナスもあまりよくない。 
〇立でいちばん人出不足，かつ，いちばん大変 
な工場の現場の人より。伊藤徹 (22) 千葉県 
忙しいのはいずこも同じ，ってところです 
ね 0 

♦台風の季節が近づいてきました。今年は去年 
のようなことが起こらないことを祈りたいです。 
それは台風が上陸したときに家で飼っている犬 
が，キャンキャン鳴いて窓をガリガリこすり、 
まるで「入れてくれ〜！」といっているような 
ことがあったのです。かわいそうでしたが，少 
しだけ面白かった。そのころホン ニャ アはなに 
をしていたんでしょうか。聞いてみたいもので 
すね。 小林貴秀 （15) 新潟県 

できるなら，今年は優しく犬君を家に入れ 
てあげましょうよ。 

♦今年の夏もまた，異常気象の気配が濃くなっ 
てきましたね。ところで最近知ったんですけど, 
夏バテって夏にパテることじゃなくて，初秋に 
入り夏場にたまった疲れが一気にくることらし 
いです。読者の皆さん，あまりパソコンをいじ 
つてばかりいないで外でちゃんと遊びましょう。 


編集部の皆さん，お仕事休むことも大切ですよ。 
もちろん Oh ! X の中身が薄くなっていいというわ 
けじゃないけど。 岡部誠 (27) 福井県 

もちろん，毎月楽しみにしてくれている読 
者のためにがんばってますからね。 

♦最近変な夢を見た。パソコンショップに見慣 
れないマシンが置いてあるのだ。なんとそのマ 
シンは ， Xlturbo + CD - ROM という Xltwin のよう 
なマシン。シャープ恐るべし，と思ったが夢な 
のには変わりなかった。角谷光憲 （18) 愛知県 
X 1 turbo に PC-Engine + ROM 2 を瞬間接着 
剤でくっつければ，夢のマシンが……でき 
るわけないか，残念。 

♦アンケートハガキの下にある所有機種櫚に 
MIDI 楽器が新しく加わりましたね。 MIDI 楽器を 
3台持って いる 私としては嬉しい限りです。ま 
た，私は趣味で作曲をしています。特に映像と 
音楽の同期には興味深いものがあり，映画サー 
クルに入っている友人の作品の音楽を作ったり 
もしました。その私が思うのですが 「Creative 
Computer Music 入門」は面白くありません。それ 
に初心者が読んでもあまり役に立たないと思い 
ます。なぜなら変に難しいからです。作曲は一 
部の人だけの能力だけでなく，誰でもすぐにで 
きることなのですから。梅津信幸 (20) 京都府 
理論による斑づけも大切でしよう。 

♦最近私は「涙腺」がもろい。「レミングス」の 
2面の曲を聴くたびに「出たな!！ツインビ ー j 
をやるたびに涙がポロポロ出る。一時的なこと 
ならよいけど，二の先ますますひどくなって I 
日中ポロポロなんてことになったらどうしよう。 
などと考えている今日この頃でした。 

猪原裕太 (23) 東京都 
涙を流すだけでは芸がありません。いなか 
っぺ大将の大ちゃんみたいに，涙でアメリ 
カンクラッカーをやることに挑戦だ。 

♦私は絵が描けない。字も汚くて下手だ。いっ 
たいどうやって Oh ! X に投稿すればいいのだろう 
か。初めてパソコンをやってから，まだ3力月 
の私にプログラムができるわけもないし。なに 
かよいアイデアはありませんか。 

石川勝敏 （16) 北海道 
こうやって投稿すればいいんですよ。 


♦ PCM 8 や S -0 S エミ ュレー タの ソース プログラ 
ムを見て思ったんですが，最近のアセンブラプ 
ログラムの流行は「怒濤のテーブル化」のよう 
ですね。メモリ需要が高まるわけだ。 

清水了 （18) 大阪府 
いわゆる力技のメモリ展開。プログラムの 
高速化のテクニックとしては，かなり昔か 
ら使われていたものです。 

♦ X 68000 XVI を購入してはや半年。購入してか 
ら I , 2力月間は， X - BASIC を立ち上げるにしても 
SX - WIND 0 W 上からしかできず，プログラムを作 
るにしてもたいしたことはおろ力、，まともに作 
ることすらできませんでした。そんな私がいま 
では，そこそこの大きさのプログラムを作れる 
ようになりました。これも私のようなユーザー 
でも温かく見守ってくれた貴誌のおかげです。 
今度は， CG かアセンブラでもやろうかな，と思 
っています c これからもよ い 誌面を期待して い 
ます。 髙三直也 （16) 愛媛県 

それは，がんばってついてきた商三さんの 
努力もひと役かっています。どんどん自信 
をつけていってください。 

♦質実剛健と書いて「びんぼう」と読む。さて, 
「10年分の STUDIO MZ . X 」 を読んで，ペットの餌 
用にパンの耳をもらっていくおばさんと，競い 
合ったことを思い出しました。最近はちゃんと 
米の飯を食べています。ちなみに今年の誕生日， 
友人からのプレゼントは「パンの耳」でした。 

中村学 (21) 石川県 
今度は，気前よくその友人にぉごってあげ 
ましょう。貧乏にならない程度にね。 
♦学生時代には XI を使っていた。ソフト会社 
(某国埭機メーカー系）に入ってはや7年目。す 
でに XI は入社時に友人にあげてしまい，家でコ 
ンピュータを触ることは二度とないだろうと思 
っていました。でもやっぱり， 「0 h ! MZ 」 や XI に 
ドキドキしていたあの感覚が忘れられなくて， 
先月ついに X 68000 を買った。会社で非国民とい 
われようとも，最高にドキドキさせてくれるこ 
のマシンが大好きになりそうだ。 

平野輝元 (28) 兵庫県 
自分の好きなものなんですから，恥じるこ 
となく堂々と使えばいいのです。 

♦私：あ〜 X 68000 欲しいなあ 
友人：なにそれ？ 

私：パソコンだよ 

友人：ああ，それってすげえ電話代がかかるん 
だろ？ 

この会話でもわかるとおり，友人はパソコンと 
は通信するだけのものだと思っていたようです。 
一般人のパソコンに対する認識ってこんなもの 
なんでしょうか。 杉山洋之 （19) 埼玉県 

要するに自分が興味を持っていないものに 
対しては，それほど追求しないだけじゃな 
いのかな。 

♦「 CZ -6 BE 2 A 」 の取扱説明書中「お客様が取り 
付けたのち，故障，異常が生じたときは責任を 
負いかねます」と記載されていた。しかし，不 
思議なことにセッティング手順が説明書に明記 
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石川仲宰 (33) 福岡県 
こちらも幸せいっぱいのハガキ。お子さん 
と一緒に楽しいパソコンライフを送れると 
いいですね。 

♦私は受験生であった。大学にも入って受験は 
人ごとのように思っていたのに，まだ大学院の 
受験がありました。高校，大学の入試よりも早 
く 9月に行われます。でも，受験雑誌 Oh ! X を読ん 
でいれば大丈夫ですよね。 

松永貴輝 (21) 大阪府 
受験雑誌 Oh ! X ， 誰がいいだしたのかわかり 
ませんが，松永さんうかうかしているとど 
うなっても知りませんよ〜。 

♦ 7 月号99ページの上にある広告の女性の持っ 
ているものを見て，はっと気づいた。 QD とはク 
イックディスクのことなんですね。私が中学生 
のときにあった，ファミコンのデイスクシステ 
ムに使われているものと同じ円盤とは，懐かし 
いなあ。ところで，同ページの上の女性，下の 
小さな広告の男性，できれば女性のォマケみた 
いなおじさん。それぞれの名前がわかる人はご 
—報を。 志賀宗一 （18) 愛知県 

上の女性は饤沢敦美ちゃん，下の男性は宍 
戸錠，おまけのおじさんは，その昔「パソ 
コンサンデー」という番机に出ていた，通 
称ドクターバソコン窝永好道さんです。 
♦友人が XC を買ったのでプロ グラマー ズマニ 
ユアルを見せてもらいに友人宅へ行くことが多 
くなった。そのためいっも帰りが遅くなってし 
まうので，祖父が「パソコンを使うのに必要な 
んだったら，買ってやるから早めに帰宅しろ」 
といってボンと XC を買ってくれた。思いがけな 
いことだったので非常に嬉しかった。買って帰 
る途中，あまりの重さに右手がっってしまった 
けど，なんとも嬉しい痛みだった。 

干葉浩貴 （19) 宮城県 
自分の好きなことを認めてくれたおじいさ 
んのためにも，がんばってプログラミング 
に励みましょう。 

♦先日，電力実験というものをやりました。そ 
れはとても怖い実験で過去に死者も出ています。 
最大で 2 kW ぐらいのパワーを出しました。自分 
の班は結構無事に実験が終わり，死者，負傷者 


ゼロでした。でも，丨回だけ大型の可変抵抗器 
をいっぱいに回してショートさせてしまい，そ 
の端子を半分溶かしてしまいました。あ〜•死 
ぬかと思った。 廿日出悟 (20) 東京都 

やっぱり大学って変なところなんですね。 
♦私には気になっていることがあります。それ 
は風もないのに障子や戸が，激しい音を出すこ 
とがあるのです。去年夜中に突然このことが起 
きたときには本当に驚かされましたが，今年は 
昼間たまに起きているだけです。原因不明です 
が，私は勝手に「我が家にだけ地粟 j と思って 
いたりするのです。 藤原彰人 (22) 岡山県 
それはただのラップ音かもし n ません。ま， 
ちょっと低級霊が遊んでいる程度ですから 
気にしなくていいでしょう。 

♦アンケートハガキにある「編集部行」は「編 
集部御中」に直すのはわかりますが，あの「（受 
取人） J はどうすればいいのでしょうか。僕はい 
つも消してしまうんですけど，正しい方法を教 
えてください。 丸山淳平 （18) 神奈川県 

郵便問が受沖(人を明硝 i にするためのもので 
すから， m さなくても結構ですよ。 

♦突然，荻窪氏が顔写真を公表されましたね。 
Oh ! X だけでなく，某雑誌の特集記事（こちらは力 
ラーで特大判）にも掲載されていました。名を 
惜しむこと，貧者が珠を持つが如くの荻窪氏が, 
なぜ大衆の前に姿を現したのか。 

1 ) すべては荻窪氏流の冗談である 

懐が深い荻窪氏のこと，読者の反響を観察し 
絶妙のタイミングで「あれは影武者だ j と真実 
を告げる。これによって「大人のための X 68000」 
はネタに困ることがなくなる。 

2) 近い将来に結婚を予定している 
まったくの直感です。 

なんてね，以上大変失礼しました。 

横川和美 (28) 埼玉県 

3) 単なる出たがりや。という可能性もな 
きにしもあらずですよ。 

♦ 7 月号で私の自画像 I 号（顔が若い！）を載 

せていただき，ありがとうございます。あれか 
らもう6年……懐かしく昔を振り返らせていた 
だきました。これからも「ちゃだワ」への自画 
像攻擊を続けさせてもらいますので，よろしく 
お願いします。また， 5年ぶりぐらいにイラス 
卜の投稿でもさせてもらいます（し，仕事が 
〜)。 酒井強 (24) 三重県 

そのうち教師生活十数年, Oh ! X 投稿歴も十 
数年になったりして。 

♦ 7 月号の 「SHIFT BREAK 」 の A . T . さんへ。あり 
ますよ，そういうプリンタ。チノンの 「 CTK - I 20」 
です。高速，軽い，バッテリー駆動，といたれ 
りつくせりの 300 dpi で178,000円だそうです。 

大上幸宏 （19) 鹿児島県 

♦ 7 月号の 「SHIFT BREAK 」 の A . T •さんへ。 PC - 
9801などに使えるプリンタでチノンから熱転写 
ページプリンタ（型番は忘れた）が出ています。 
専用インクリボンで A 4 サイズ幅を一気に印字 
できるヘッドを持っているそうです。でも I 枚 
当たりのコストが100円を超えるという，超高い 


♦本日 (6/17) スーパーウォークマンの音を聴 
いてきました。感想は，す•ご • いです。現時 
点では40分テープしかないそうですが，もうす 
ぐ120分テープができるそうです。本体は思った 
より大きいですが，約10万円という価格（普及 
すればもっと安くなるのに）はすごいです。で 
も，小さすぎてなくしそう。 

加藤恵吾 （16) 愛知県 
確かに，持ち運びには非常に便利だけどテ 
ープ管理は大変そうだなあ。 

♦いままで私の髪型は俗にいう••オタクヘア” 
だった。前髪が鼻の頭にまでたれ下がり，丨回 
散髪に行けば2力月は持つような髮だった。し 
かし，先日部活の後輩に「先輩，急に老けまし 
たね」といわれた。ちょうど髭を3日ほど剃っ 
ていなかったときなのでそう思ったらしい。男 
にそういわれても別になんとも思わないが，さ 
すがに女の子にまでいわれるとなるとちょっと 
ショックを受ける。さっそく次の日刈り上げて 
もらった私は若々しく……なったのかなあ。 

幸俊威 （17) 大阪府 
若々しい商校生。すごく当たり前のような 
気がするんですけど。 

♦奥さんにつわりが始まり，それに伴って家事 
が増え，パソコンに触れる時間がドンドン減っ 
てきました。悲しい限りです。でも，食器を片 
づけながら子供の名前をあれこれ考えていると， 
ひょっとして俺は幸せものなのかなあ，と思っ 
たりします。ところでなにかいい名前ありませ 
んか。 谷本俊康 (25) 東京都 

隣にいてこんな話をされたら，「この，幸せ 
もの」とかいいながら ヘッドロックを かけ 
てしまいそう。 

♦大感激！ 6月19日妻の出産に立ち会いまし 
た。脂汗の丨時間，産声のあと自分の疲れもか 
えりみず，か細い声で「五体満足ですか？ j と 
聞く妻に思わず涙が出てしまいました。そうい 
うわけで，生活のパソコンのプライオリティは 
下がる一方です。しばらくは X 68000 を遠くに置 
いて眺めていようと思ってます。でも，それは 
少しも悲しいことではなく嬉しいことなのです。 
最後にひと言，6月19日午前 II 時43分，長女誕 
生 3560 g , 命名「知恵」。とってもかわいいです。 
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コストです。 髙橋正博 (28) 栃木県 

カラーコピー並のコストを持つ熱転写プリ 
ンタとはちょっと驚きですね。 

♦ど，どうも。7月号で久しぶりにイラストが 
載った住友です。過去数回載ったことがありま 
すけれど，ここまで「恥ずかしい」と思ったの 
は初めてです。友人たちにもバッチリうけまし 
た。それにしても，う〜，すごいよお。自分が 
描いたものとは思えん。でもうけているからい 
いか。でもすごい。岩瀬さん，小川さん，あな 
た方は，どうかこんなふうに道を踏み外さない 
でくださいね（なんだかなあ）。 

住友智代 （19) 愛媛県 
进を踏み外すというと，やっぱり JUOE と 
かさ〇とかの lit 界ですか。う〜ん，すみや 
かに社会復帰することを祈っています（そ 
こまでいってないって）。 

♦なにがおかしくなったのか，何度 0 S -9 をイン 


ストールし直してもトラブるようになってしま 
った。バージヨンアップすればなんとかなるの 
だろうか。それとも修理だろうか。ああ，どん 
どん工程が遅れていく〜！う〜んどうしよう。 
よし，ここは Human 68 k で LINK 前までなんとか進 

めて . おや，皆さん会社員ですか？ いいで 

すねえ（うるうる）。 

只野はるみ （26) 神奈川県 
そういうあなたはフリーのプログラマさん。 
でもフリーという言葉にちょっとだけ憧れ 
を感じないこともないんですよ（たとえっ 
らいとわかっていても）。 

♦酔っ払って焼き鳥食いながら，ハゲた頭に花 
束をガムテープでくくりつけ，道ゆく人々に静 
かに語りかけていた面白いおじさんをこの前見 
かけました。 太田敬三 (22) 東京都 

そのうち街の名物おじさんとなるんでしょ 
うか。世の中いろんな人がいますねえ。 


ぼくらの掲座显 


\仲間 


t •この度， X 68000 ディスクメディアサークル 「BBQj 
を発足するにあたり会員を募集します。初心者 
大歓迎です。内容はなんでもありの自由な表現 
の場，といった感じにしたいと考えています。 
ただ，フリーウェアを配布するだけが目的では 
ありません。興味のある方は，5インチ 2 HD ディ 
スク2枚と返信用封筒を同封のうえ，下記の住 
所までお送りください。〒305茨城県つくば市 
春日 4-13-30 明峰 ハイツ A - III 野口 友則 
( 20 ) 


売ります 


•掲載ご希望の方は，官製ハガキに項目（売る•買う•氏名•年齢•連 
絡方法…… ） を明記してお申し込みください。 

•ソフトの売買.交換については，いっさい掲載できません。 
•取り引きについては当編集部では貴任を負いかねます。 

•応募者多数の場合，掲載できない場合もあります。 

•紹介を希望されるサークルは必ず会誌の見本を送ってください。 


★ X 68000 用 ハンディスキャナ 「 X 68 HGS -68」 を 
18,000円で売ります。 マニュアル， ソフト，付 
属品，箱すベてあり。新品同様です。連絡は往 
復ハガキでお願いします。〒 192-03 東京都八 
王子市大塚 58-69 安保徹 (22) 

★ XI 用 FDD インタフェイス （「 CZ -503 F 」 に付属し 
ていたもの）を送料別1,000円程度で売ります。 
連絡は官製ハガキでお願いします。〒355埼玉 
県東松山市和泉町 4-35 鈴木荘202号池田 
連也 (22) 

★ 300 bps モデム 「 CZ -8 TMI 」 を4,000円，1,200 bps 
モデム 「 PV - AI 200 MK 3 j (アイワ）を6,000円， 
ともに送料込みの値段で売ります。マニュアル， 
付属品，箱すベてあり。完動品です。連絡は往 
復ハガキでお願いします。〒245神奈川県横浜 
市戸塚区深谷町25深谷団地 10-55 黒武者 
健一 (22) 


★アイテック 「 ITX -680」（40 + 40 M バイト）を送料 
込み46,000円で売ります。外観上，付属品，箱 
あり。早い者勝ちです。また，自作の 3 I 4 M バイ 
卜 SCSI ハードディスクドライブを190,000円以 
上で売ります。こちらは先着3名のうち，最も 
高い方に売ります。本体は手製で黒のアクリル 
板 (5 mm 厚)，ドライブはシークタイム 12 ms ， デ 
—夕転送速度 4 M バイト / s の OEM 新品を使用し 
ています。外形寸法は， 12 cm (幅）: XI 4 cm (高 
さ） X 25 cm (奥行）で SCSI の ID 番号スイッチも装 
備しています。 SCSI ケーブル，ターミネータ付 
き， SCSI コネクタは入出力を用意しています。購 
入後のサポートも受けつけますし，丨週間以内 
でしたら返品も受けつけます。〒361埼玉県行 
田市持田 5-13-2 吉本邦雄 (44) 

★ Roland 「 U -220」 を47,000円以上で， Roland「CM 
-32 Lj を35,000円以上で売ります。いずれも， 
トラブル防止のため手渡し希望します。 「 U - 
220」は箱なし，そのほかすべてありで， 「 CM -32 
L 」 は箱そのほかすべてあります。高く買ってく 
れる方優先です。まずは往復ハガキで連絡をお 
願いします。〒331埼玉県大宮市大成町 2-3 19 
-2 野崎徹 

|買います 

★ XI 用 FM 音源ポード 「 CZ -8 BSI 」 と， RS -232 C マウ 
スポード 「 CZ -8 BM 2」 をそれぞれ10,000円以内で 
買います。また，カラーイメージボード2 「CZ 
-8 BV 2」 を17,000円以内で買います。いずれも送 
料込みにしてください。連絡は官製ハガキでお 
願いします。〒355埼玉県東松山市和泉町 4-35 


鈴木荘202号池田達也 (22) 

★ X 68000 用 M 旧ボード + RolandMIDI 音源モジユー 
ル 「 CM -32 L 」 を43,000円以内（送料込み）で買 
います。付属品付きで完動品であれば，多少の 
汚れ，傷，箱なしは可。連絡は官製ハガキでお 
願いします。〒76卜04香川県高松市三谷町884 
-4 西池陽一 （14) 

★ XI 用立体映像セット 「 CZ -8 BRI 」 を送料込み 
9,000円程度で買います。付属品付きで完動品で 
あれば，傷，汚れ，箱なしでもかまいません。 
連絡は往復ハガキでお願いします。〒980宮城 
県仙台市青葉区子平町 I 8 H 7 YA コーポ103号 
室小松健一郎 （18) 

★ X 68000 用拡張 I / O ボックス「 CZ -6 EBI - BKj を送料 
込み40,000円くらいで買います。まずは，箱， 
説明書，傷の有無と希望価格を書いて，往復ハ 
ガキで連絡してください。〒762香川県坂出市 
白金町 3-8-34 佐藤崇司 （18) 

★ X 68000 版「スペースハリアー」「ドラゴンスピリ 
ット」の広告用特大ポスターを送料込み各8,000 
円で買います。折り曲げてないもの，傷，汚れ 
のないものに限ります。連絡は往復ハガキでお 
願いします。〒408-03山梨県北巨摩郡武川村 
上三吹345輿石学 （21) 

バックナンバー 

★ Oh ! XI 990 年10月号，1991年3月号を各し000円 
(送料込み）で買います。切り抜きのあるものは 
不可。連絡は往復ハガキでお願いします。〒930 
富山県富山市新園町336新園ハイツ405号杉 
林隆志 （17) 
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钃篥室から 


bm0=GMGetBxtmap () ； 


/* 元のビットマップ（テキストタイブ 


本/ 


bm.bmkind 
bm.braRect 
bm.base 
bm.line 
bm.opt.bRatio 


= G _ GRP ； /* グラフ 
=bm0->bmRect ； 

= 0X(200000 ; 

=2048 ； 

=0x8000 ； 


ックタイブのビットマップを作る*/ 


setPalet {) ； 
GMSetBitmap( &bm ) ； 
/* ここからはグラフ 


/* バレットを設定*/ 

/* グラフイツクタイブのビッ 
ック画面に描画される*/ 


マップに変更*/ 


p.x_y=0x00 100010; 

Putlmg(G_GRP , (rectlmg*)neko_gr,p); 
p.x_y=0x001 00040 ; 

Putlmg (G J _GR2 , ( rectlmg* > neko_gr 2 , p )； 
p.x_y=0x00 1000 70 ； 

Putlmg(G_GR3,(rectlmg*)neko_gr 3 ,p); 
p.x_y=0x001000a0; 

Putlmg(G_TXT,(rectlmg*)neko2,p>; 


GMExgBitraap( bm0 ) ； /* テキストタイプのビットマップと交換*/ 


リスト1 

1790 FOR 1=0 TO 38 STEP 2: LOCATE 1,1: PRINT A$(19)；：LOCATE I,23：P 
RINT "VD" ； : NEXT 

1830 LOCATE 0,21:PRINT" 口 " +CH2$ 十 "〒"；： LOCATE 39,21 ： PRINT M V'+CH2$ + " 

生， , ； 

1980 DATA タチ , ミム , ツテ，メモ • け , ヤユ，ニヌ，ヨラ , ネハリル , ハヒ，レ卩，フへ，ワン，ホマ， - 。， • 〇，德土 , 
♦ _ ，金木， ♦♦ ，水火 ,▲ ，月日， X ， ， « 分，ケケ，ケケ ，_ ■ ，秒年 ,□ ，生〒 ,_■ ，円人,スシ 


バグに関するお問い合わせは 

©的 (54 的) 131 U 1 ■通) 

月〜金曜日16 : 00〜18 : 00 


お問い合わせは原則として，本誌のバグ情 
報のみに限らせていただきます。入力法，操 
作法などはマニュアルをよくお読みください。 

また，よくアドベンチャーゲームの解答を 
求めるお電話をいただきますが，本誌ではい 
っさいお答えできません。ご了承ください。 


ごめんなさいの 

コーナー 


5 月号（で）のショートプロぱ一てぃ 
(michelle pluei 

1790,1830,1980行のグラフィックキヤラク 
夕が正しく印字されていませんでした。リス 
卜 I のように訂正してください。 

8 月号よいこの SX-WINDOW 
リスト5の一部が不鮮明でした。正しくは 
リスト2のとおりです。 

• Z-MUSIC ver .1.10 

強制同期コマンドの動作不安定，モジユレ 
—ションディレイ誤差の訂正です。以下のア 
ドレスを MAC . X でイ彥正してください。 


1 CCA ： 34 
1 CCBI 01 
1 CCC ：48 
1 CCD ： 42 
76 A 6：66 
773 A ：66 
7798:66 
7876:66 
79 D 4 ：66 
7 A 28:66 


— 60 
00 

— 29 

— FA 
-►60 
-►60 
- >60 
-►60 
->60 
-►60 


7 A 7 E 

7 AD 8 

9 AD 2 

9 AD 3 

9 AD 4 

9 AD 5 

9 AD 6 

9 AD 7 

9 AD 8 

9 AD 9 


:66 - >60 
:66—60 
：13-*-43 
： 40 ->-FA 
: FF — D 2 
:48—42 
:43->13 
: FA 40 
: D 2 —FF 
: 3 E ->48 


trmTnTTTJL ： 


DRIVE ON 

この コーナー では，本誌年間モニタの方々の 
意見を紹介しています。今月は7月号の内容 
に関するレポートです。第8期モニタの皆さ 
んによる最初のレポートを紹介します。 

春9月号から始まる CGA 講座ですが，せっか 
く 0 WX の読者全員に D 6 GA CGA システムがい 
き渡ったので，今度の連載はいちから始めて 
ほしいです。実際，私は以前の連載のときに 
は CGA システムを持っていないこともあり， 
ほとんど読んでいませんでした。たまに目を 
通しても何がなんだかわからないものですか 
ら，余計に離れてしまいます。そして， CGA と 
いう分野はひとりでやろうとすると，ものす 
ごく多才でなければなりません。単に絵が描 
けるだけではだめで，全体の構成とかコマ割, 
動きの表現，へたをすると音楽とのシンクロ 
までやらなくてはならないでしよう。 D 6 GA の 
ように チームを 組んでいればともかく，最初 
はひとりで始めるのが普通です。 I つひとつ 


を丁寧に教えてほしいものですね。 

中村健 （22) X 68000 ACE - HD , PC -386 GS , 
MSX 2+ 埼玉県 

• 7 月号から新しく 「ハードウェア エ作」が 
始まりました。このテの連載で，まず最初に 
つまずくところといえば，理論や考え方以前 
の レベル， つまり"単語"ではないかと思い 
ます。実際に自分自身の昔のことを（いまで 
もそうだけど）考えてみると，見たこともな 
いような単語が出てきた時点で思考の流れが 
止まってしまう傾向があるのです。囲み記事 
でもいいですから，なんらかの形で フォロー 
してください。また，具体的なテーマとして 
個人的には， TTL を組み合わせて CPU を作り上 
げるのがベストではないか，と考えています。 
ゼロから組み上げればかなり実感が湧くと思 
うのです。 

中島奨 （25) X 68000 PROII , MZ - I 500, 
Macintosh SE /30 北海道 
•実録 TORNADO 秘話「 4 DCG への招待」はとて 
も面白かったです。丨分45秒の映像にかける 
意気込みが，伝わってきて7ページをあっと 


いう間に読んでしまいました。「何をしたいの 
か」「最後に何を得たのか」という過程もきっ 
ちり書いてあり，カットや写真，注釈も効果 
的で読み手をグイグイ引きつけてくれます。 
文月さんという人はとても素晴らしい人なん 
でしょうね。次回作を期待しています。 

村上晃 （23) X 68000 XVI 岡山県 
• 「ついに姿を見せた V 70 ポー ド」 を I 売んで, 
アセンブラや C コンパイラなど開発環境がし 
っかりしているようなので，なかなか面白そ 
うだと思いました。レイトレーシングみたい 
に膨大な計算をする人には，強い味方になる 
でしょう。実際にプログラムリストが載って 
いるのを見て急に親しみが出てきたし，ほし 
いと思った人も結構いたかもしれません。し 
かし，値段を見てため息をついた人も同じく 
らいいたことでしょう。ほかに比較すべきも 
のを知らないので， V 70 ボード248,000円，開 
発キット68,000円という価格が高いか安いか 
よくわかりませんが，個人でボンと出せる金 
額ではないことは確かです。 

矢野啓介 （ I 9) MZ - 2500北海道 
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豪華な皿には 
豪華な料理が 
ほしいよね 

►今月号の特集では，数値演算の高速化を中 
心にいろいろな アプローチ をして みま した。 
これらの記事を読むとおわかりになるでしよ 
うが，コンピュータの性能はハードウェア X 
ソフトウェアで成り立っている，ということ 
です。高性能のノ、ードウェアに高機能のソフ 
トウェアがあれば「鬼に金棒」，向かうところ 
敵なし。皆さんも自分のマシンを見つめ直し， 
足りないものを補ってどんどん活用してくだ 
さぃ。 

►今月から予告どおり 「 D 5 GACG アニメーシ 
ヨン講座 ver .2.50」 が始まりました。そろそ 
ろ， 申し込んだ D 5 GA CGA システムのマニュ 
アルが届いていることもあり，連載開始を待 
たずに活用している人もいるかもしれません 
ね0それでも初めて触る人にとっては，わか 
らないことだらけでしよう。そんな人は，こ 
の纖と Hi に基礎からこつこつと学んでい 


ってください。そして，それぞれ自分の中に 
芽生えたイメージを具現/(匕するため， CGA シ 
ステムを使ってみませんか。 

►さて，まだまだ暑い日が続きますが，皆さ 
んお元気でしようか。さっそく暑さにやられ 
た，なんてことはないでしようね。 

そして，夏にあったさまざまな体験，面白 
い出来事などありましたら，どんどんアンケ 
—トハガキに書いてください。.もちろんプロ 
グラムの投稿も待ってます。学生の皆さんは 
せっかくの夏休み。時間を有効に使って何か 
プログラミングしてみましよう。目標は大き 
く，志、は高くもってプログラミングできる絶 
好のチヤンスですから。 

►それから，暑中見舞いのハガキをくださっ 
た皆さん，どうもありがとうございます。な 
かには6月から送ってきた気の早 I 、人もいま 
すが，夏らしいきらびやかなイラストがたく 
さん送られてきて，編集部一同喜んでいます。 
とりあえず， 10 月号で予定されている r Oh!X 
reader’s ぎゃらりぃ暑中見舞い編」で紹介す 
るっもりです。 

それでは，来月号をお楽しみに。 


參原稿には，住所•氏名•年齢•聰淺 I •連絡 
先電話番号 • 機種 • 使用言語 • 必要な周辺 
機器 •マイコン 歴を明記してください。 

•プログラムを投稿される方は，詳しい内容 
の説明，利用法，できれば フロー チヤ ー ト， 
変数表，メモリマップ（マシン語の場合） 

に，文献を明記し，プログラムをセー 
ブしたテープ（ディスケット）を添えてお 
送りください。また，掲載にあたっては， 
編集上の都合により加筆修正させていただ 
くことがありますのでご了承ください。 

春ハードの 製作などを投稿される方は，詳し 
い内容の説明のほかに回路図，部品表，で 
きれば実体配線図も添えてください。編集 
室で横!寸のうえ，製作したハードが必要な 
場合はご連絡いたします。 

♦投^のモラルとして，他誌との二重投 f 高， 
他機種用プログラムを単に移植したものは 
固くお断りいたします。 

あて先 

亍 108 東京都港区高輪 2-19-13 NS 高輪ビル 
ソフトバンク出版部 
Oh ! X 係 
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►理^の大学生で学校の研究室に所属している。そ 
う自己紹介をすると必ず「どんな研究ですか j と質 
問されるのだが，これがまったく始末におえない。 
普通の人にはわからないだろうと，苦心して平易に 
話すのだが，100人中127人くら I 、の人が「ふ〜ん」 
とかいって王朝早しない。わからないんだったら最初 
から聞かないのが礼儀だと思うぞ，うんうん。（八） 
►ラーメン屋を教えてくれた皆さん，ありがとう。 
いつか食べに行こうと思っています。最近になって 
時間に拘束されることがなくなったので， ソースの 
汚い SV . X をリライト&バージョンアップしていま 
す。それと MAGIC もオイラー角に対させなきゃい 

けないし . 〇やらなきゃいけないことはたくさん 

ある。また忙しくなりそう。 （ H . K .) 

► MIYA - NET というところで ZMUSIC のサポートを 
してくれています。私も全面的に協力していまして 
最新版の ZMUSIC や ZMUSIC 支援ツールや演奏デー 
夕などがアップロードされています。 GUEST でも利 
用可能ですので遊びにきてください。電話番号048- 
648-9801 (入会無料,回線数4, 24時間ただし GUEST 
は PM 9 : 00 ~AMI : 00は利用できません） （善） 

►おっと，いきなりカミキリ虫が部屋の中に飛び込 
んできやがった。この前は家の近所のゴルフ練習場 
でカブト虫を捕まえたし。ああ，なんて素晴らしい 
環境のもとで暮らしているんだ(本音)。東京に限ら 
ず，自然から遠ざかってしまった人間が多いのに， 
私が住んで I 、る街はまだまだ大丈夫のようだ。いま 
でもザリガニはとれるのだろうか。 ( S . K .) 


►レイトレ用に編集室から Compact を借り出した。 
持ち帰れるお手軽サイズ。 PR0II から RAM を 2M バイ 
卜移植した。フロッピーベースじやしようがないの 
で，いまさらながら SyQuest した。ソフトのインスト 
—ルがまた大変 0 PR0II には SCSI ポードを付けてい 
ない。手作業で 3. 5インチフロッピーに I 枚 I 枚メ 
ディ アコンバートってのは情けなかった。 （ A.T.) 

►いやあ，朝日新聞は相変わらず面白い。ほんと。 
ど一すんでしょ，あんなに笑える記事ばかり載せち 
やって。新しいハ°ソコンとか，マルチメディアとか， 
そういうものに力を入れるってのは，瓣里やり I 面 
を飾ることじゃなくて，コンピュータ業界に強い記 
者を育てるってことじゃないのかねえ。 X 68000 のウ 
イルス事件以来進歩ないぞ。 (K) 

►いままで少女マンガを買うことに抵抗はなかった 
が，セーラームーンの単行本を買うときは少し恥ず 
かしかった。結局，お酒に酔った勢いでしか買うこ 
とができなかった。読んでみてびっくり，三人のセ 
ーラー服戦士のほかにもセーラージュピターが登場 
していた。これから先 t ビーナスとか サター ンとか 
も登場するのだろうか。展開が気になる。 (K0) 

►最近*社会人になった友人に会うと.ほとんど「仕 
事がつらいなあ」という言葉が出てくる。学生時代 
とのギャップもあるだろう？^自分の思、ったこと力< 
できないという状況にがまんできないようだ。そん 
ななかで「そうだよなあ，やっぱつらいよなあ」と 
いいながら，やりたいことができる職場にいる僕は 
幸せなんだろうな。 （J ) 


►文月さんが家にやってきたので， AMIGA と 
Macintosh を動かしてみせてあげたら，マウスを畳 
の上で転がしている姿にひたすら爆笑されてしまっ 
た。寺尾さんにそのことを話すと，「和風でいいじや 
ないですか」と少しヘンな フォ ローをしてくれた。 
でも，やっぱり机を買おうかなあ。マウスボールにイ 
グサがささってしまうし，っていうのはウソ。 （ A ) 
►ああ，今年は夏が短いっていうのに，まだ海にも 
プールにも行^てないよお。あ，そっか，あたし会 
社辞めるんだっけ。なんだ，じゃ，これから毎日行 
けるじやん。さぁて，夏を満 1 契したあとは，車とハ* 
イクの免許でも取りに行って，それからニューヨー 
クに行って……。なんて，金がそんなにあるわきゃ 
ないって。それでは皆さん，さようなら〜。 ( E . O .) 
►と，いうわけで E . O . 嬢は今号て引退0いろんな職を 
こなしてきた彼女だから立派に兼業主婦をするので 
しょう（しかしアンナミラーズに勤めてたというの 
はインパクトが大きかった)。とりあえずお疲れさ 
ま。え，なにこれ？ ちゃんと新辛から6年って害 
いたよね？そうか，世ではもうお父さん扱いさ 
れる歳なのか……〇 (メガネはかけていない U ) 

► 486/33の AT 互換機で Windows を動かす。最も速い 
といわれる Word の高速モードでただのテキストス 
クロールを計ったら， X 68000 XVI で SX - WIND 0 W の 
エディタ. X を使った場合とほぼ同じ速度であった。 
条件は多少違うものの，あらためて SX - WIND 0 W の 
軽さを実感％もっとも私はエディタしか使わないか 
らそんな能天気なこといってるんですけど。 ( T ) 
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microOdyssey 

なんだかここ丨年ほど，妙に忙しいと感じて 
いた。もちろん仕事はそれなりに忙しかったし， 
仕事以外の用事も多かった。でも，学生の頃は 
I 日に7〜8件の用事をこなしていても忙しい 
とは感じてなかったと思う。睡眠時間が3時間 
前後だったにもかかわらず，だ。それから比べ 
れば，いまの生活なんて遙かにラクに感じるは 
ずなのに，逆に忙しいと感じていたのだ。う 
〜ん，仕事が不規則なせいかなあ，それとも私 
生活がヘンにゴタゴタしていたからかなあ，な 
どと要因をしばらく考えていたのだけど，この 
前はたと気がついた。 

学生の頃といまとでは，時間の流れ方が違う 
のだ。充実度の度合といったほうがいいのかも 
しれないな。大好きなことを無我夢中でやって 
いるときは時間がすぐにたってしまうのに比べ 
て，そうでないときの時間の流れ方はやたらと 
遅く感じてしまう，そういうのってなんとなく 
わかるでしょ？ 実際，大好きなことよりも気 
合が入っていないぶんだけ，会社にいる時間は 
やたらと長いし，不透明な時間が多くあるよう 
に思えてきたのだ。だからといって，あたしは 
この編集という仕事がけっして嫌いなわけじゃ 
あない。むしろ好きだと感じている。でも，編 
集の仕事よりもやっぱり音楽が好きだ！とい 
うことっきりとわかってしまったのだ。 

とはいえ，やっぱり仕事はしなくちゃだから， 
ここは頑張って両方に100%の情熱を注ごう，と 
努力してみた。でも，そう努力すればするほど, 
音楽にしても仕事にしても中途半端であいまい 
に流しているような感じに襲われ，絶望感と劣 
等感だけがまとわりっくようになっていった。 

ほんとはあいまいでもよかったのかもしれな 
い。だいたい，いまの世の中なんてあいまいな 
ことだらけなんだもの。でも，あたしはけっし 
てあいまいにすることがいいこととは思えなか 
ったし，もちろんいまもそう思っている。 

そういえば，丨週間ほど前に恋人と話してい 
るときに，彼が「まあ，いいや」とあいまいな 
言葉を口にしたことがとてもショックだった。 
彼は何の気なしにいったのだろうけど，その瞬 
間に信じ合っているはずの2人の関係ですら， 
とても希薄なものに感じてしまったのだ。でも， 
彼が悪いわけではない。この混沌の時代にあい 
まいでいられないあたしのほうが悪いのだろう。 
いくら時代遅れなアナログ野郎といわれても， 
あたしは「まあ，いいや」と流れに身をゆだね 
て生きるより，自分の意志でちゃんと歩いてい 
きたいと思うから。強情っ張りなんだろな，あ 
たしってば。 

結局あたしは音楽丨本に絞ることに決めた。 
やっと答えが得られたねって感じ。ずいぶんと 
遠回りをしてしまったなあ，と思う。でも，た 
しかにいまのあたしは音楽がやれるだけで幸せ 
だし，ほかには何もいらないから。こんな気持 
ちでこの編集部にいることも申し訳ないと思う 
しね。でもって，ちょうど音楽に浸れるチヤン 
スを与えてくれる人がいた。その代償として， 
どうやら自分の姓名を変えることになりそうだ 
けど，ま，いいか。 

ふと思い出したけど，昔付き合っていた男が 
別れる最後の最後に「君は音楽を捨てられない 
よ」といっていたな。はは，そのとおりになっ 
てしまったなぁ。 （E.O.) 
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特集 DTM への招待 

• MIDI 音源を使いこなす 

• Z - MUSIC の活用 

拡張版 Oh!X LIVE in ’92 

試用レポート X68000 用 CD-ROM ドライブ 

全機種共通システム 

SmaH - C 用横スクロールシューテイングゲーム他 





神奈川 

厚木 

有隣堂厚木店 

バックナンバー常備店 

平塚 

0462(23)411 1 
文教堂四の宮店 






0463(54)2880 




干葉 

柏 

新星堂カルチェ5 

0471 (64)8551 





船橋 

リブロ船橋店 

東京 

神保町 

三省堂神田本店 5F 



0474(25)011 1 



03(3233)3312 


// 

芳林堂窨店津田沼店 


// 

害泉プックマート BI 



0474 (78)3737 



03(3294)001 1 


干葉 

多田屋干葉セントラルブラザ店 


// 

醫泉グランデ 5F 



0472(24) 1333 



03(3295)001 1 

埼王 

川越 

黒田害店 


秋葉原 

T-ZONE 7F ブックゾーン 



0492 (25) 3138 



03(3257)2660 


川 P 

岩浏窨店 


八重^1 

八重洲フックセンタ ー3F 



0482(52)2190 



03(3281) 1811 

茨城 

水戸 

川又軎店駅前店 


新宿 

紀伊国屋售店本店 



0292(31)0102 



03(3354)0131 

大阪 

北区 

旭屋窨店本店 


高田馬場 

未来堂害店 



06(313) 1191 



03(3209)0656 


都島区 

鉍々堂京橋店 


渋谷 

大盛堂塞店 



06(353)2413 



03(3463)051 \ 

京都 

中京区 

オーム社軎店 


池袋 

リブロ池袋店 



075(221)0280 



03(3981)01 11 

愛知 

名古屋 

三省堂名古屋店 


// 

西武百貨店 9F 



052(562)0077 



コンヒュータ • フォーラム 


// 

パソコン2上前津店 



03(3981)01 11 



052(251)8334 

神奈川 

横浜 

有隣堂横浜駅西口店 


刈谷 

三洋堂窨店刈谷店 



045(311)6265 



0566(24) 1134 


// 

有隣堂ルミネ店 

長野 

飯田 

平安堂飯田店 



045(453)081 1 



0265(24)4545 


藤沢 

有隣堂强，尺店 

北海道 

室蘭 

室闌工業大学生協 



0466(26) 1411 



0143(44)6060 


定期購蹺のお知らせ 

Oh ! X の定期購読をご希望の方は綴し込みの 
振替用紙の「申込 害」 爛にある新規 継 
続.のいずれかにをつけ，必要事項を明記 
のうえ.郵便局で賵読料をお振り込みくださ 
い。その際渡される半券は領収 軎 になってい 
ますので，大切に保管してくださいなお， 
すでに定期購読をこ利用の方には期限終了の 


少し前にご通知いたします継続希望の方は, 
上記と同じ要領でお申し込みください。 

海外送付ご希望の方へ 
本誌の海外発送代理店，日本 IPS (株）にお 
申し込みください。なお，購読料金は郵送方 
法.地域によって異なりますので，下記宛必 
ずお問い合わせください。 

日本 IPS 株式会社 

TI 0 I 東京都千代田区飯田橋 3-1 1-6 
003(3238)0700 
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ソフトバンクの 



ソフトバンク 
出版事業部 

東京都港区高輪 2-1 S -1 3 
TEL 03(5488)1360 


SOFT 

BAIMK 


C プログラマのための C ++ 入門 


柴田望洋著 
定価2,900円 




Btrieve システムガイド 


MML&VAINS 著 
定価4,800円 


NetWare 上で標準装備されるデータベース、 Btrieve について、 その高速度を誇る全貌を解説 
し、 dBASE で作成したシステムを LAN に移行するための解決策を掲示。ディスク付。 


Macintosh ユーテイリテイとつきあう本 


狩野都著 
定価1,600円 


System7 の登場で操作環境を大きく変えつつある Macintosh について、 新しい環境下でのユー 
テイリテイの利用法を ユーザーのニーズに 応じて目的別 に 解説。 


Practical C Programming 

現実的な c プログラミング 


Steve Oualline 著 
岩谷宏訳 
定価3,600円 


米国オーライリー社の Nutshell シリーズの一冊。初級から中級を対象に、プログラムの仕様 
決定から改版まで、 C プログラミングの全サイクルを明快に解説した定本的入門書。 


パソコン LAN でどこまでできるか 


杉山育央著 
定価1,800円 


パソコン LAN で実際に何ができるのかを徹底的に回答。導入や運営についてのチェックボイ 
ントや実例をあげながら、現在のパソコン LAN の実力を余すところなく語る。 


NetWare API 入門 


荒井文吉著 
定価3,600円 

NetWare プログラミングの実践的入門書。サンプルプログラムの作成を通し、 NetWare のサ 
—ビスを利用するアプリケーシヨンの作成方法を具体的に解説。 5” ディスク付。 


MS-DOS Ver .5 環境整備術 


アルシーブ著 
定価2,400円 


フリーソフトウェアでつくる DOS - シェル環境 

MS-DOS Ver.5 とアプリケーシヨンだけでシステムを構築しているユーザーを対象に、より 
快適なファイル/ディスク処理の環境を提供するソフト付き書籍 0 


MS-DOS 実用マスターシリーズ④ 

新 MS-DOS ver .5.0 入門 


ビギナー編 


林晴比古著 
定価1,900円 


好評シリーズを MS-DOS Ver.5 に合わせて全面改訂し、初めて パソコンに 触れる人を対象に 
基本的な知識を完全解説。実務に不用な知識は極カカットした、初心者向き入門書。 


X ウィンドウ■システム■シリーズ日本語版第7卷 

X View Ver .3 プログラミング•マニュアル 
XView Ver .3 リファレンス•マニュアル 


Dan Heller 著 
予価6,000円 
予価4,000円 





米国 O'Reilly & Associates,Inc. から出版されているシリーズの翻訳書。第 7 巻は、 UNIX 上で 
稼働する XII リリ ース 4 に 対応の XView ツール キット、 パージョン 3 の解説書です。 

【好評発売中!】 

XII Release 5増補版 

David Flanagan 著 / Adrian Nye 編大木敦雄監訳定価4,000円 


第4卷 X ツールキット•イントリンシクス■プログラミング■マニュアル 
第〇卷 X プロトコル•リファレンス■マニュアル 


定価各5,000円 


定価は税込 




























講読方法：定期購読もしくはソフトベンダー TAKERU でお買い求めいただけます。 
★定期購読の場合=購読料6ヶ月分6,000円（送料サービス、消費税込）を、 

現金窨留または郵便振替で下記の宛先へお送り下さい。 

現金窨留の場合：〒171東京都豊島区要町卜 19-3 いさみビル 4 F ㈱ 満開製作所 
郵便振替の場合：東京 5 -362847 ㈱ 満開製作所 

籲ご注文の際は、郵便番号*住所 • 氏名 • 電話番号を忘れずに記入して下さい。 

• 3. 5インチディスク版をご希望の方は、「3.5インチ版」とご指定下さい。 

♦新規購読の方は「新規 j と明記して下さい。なお、特に購読開始号のご指定がな 
い場合は既刊の最新号からお送りいたします。 

籲製品の性格上返品には応じられませんが、お申し出があれば定期購読を解約し残金をお返しします。 
★ TAKERU でお求めの場合= I 部につきし200円（消費税込）です。 

籲定期購読版と内容が一部異なる場合があります。御了承下さい。 

鲁お問い合わせ先 TEL (03)3554 — 9282 (月〜金午前 II 時一午後6時） 

(なお、定期購読版のバックナンパーについては定期購読の方のみご注文を承ります） 


C W 澤田眞 I 

( 奈良県) 

恒星日誌宇宙暦1992.年ゎが 
エンタ—プラィズ号は満關製作所 
の指令を受け広告の旅にたった。 
力—ク Mr スポック、 当誌の特徴 
を報告した まえ OJ 
スポック 「起；§は容易かつ操作は 
最良の手段がとられています。」 

K 「そぅか、それなら普及する可 
能性も大きいな。」 

マッコィ「ッールも多く掲峨され 
ているはずだが、スポック?-」 

S 「その意見はあなたにしては珍 
しく論理的ですね。」 

K 「それで、内容の方については 
どぅなんだ。」 

S 「……非常に非論理的です。」 
















































•書院/ぐノコン 

PCD-WD 1 A ¥330,000 

RC - WD 1 AD ¥450,000 

F * C - W 01 日 ¥430,000 

F » C - WD 1 日 D ¥5日0,000 

•ハイノ <一 電子マネ—ジメント手帳 

PV 一 F 1 ……… ¥ 126,000 


XB 的00専用八ードディスク 

HXD-040 特価 ¥59 9 〇〇〇 
HXD -042 特価¥64 9 〇〇〇 
HXD-f40( 内蔵用） 

特価 ¥65 9 000 


対応機種 


CZ-600C CZ-602C CZ-652C CZ-601C CZ-603C CZ-653C 


CZ_674CH 本体） 

¥298,000 

CZ.608DH (〇.2_ディスプレィ） 

¥ 94,800 

CZ-6FD5 (鹄鹊群プ） 

¥ 99,800 

CZ_674CH (本体） 

• ¥298,000 

CZ*^08DH (〇遍ディスプレィ） 

¥ 94,800 

標準価格 d ¥492,600 

標準価格< ¥392,800 

価 ¥320,000 

価 ¥278,000 

CZ^674CH 本体 

¥298,000 

(0.31 mm ディスプレイ） 

¥ 79,800 

CZ_674CH 本体 

¥298,000 

C2"60^D (0.31 mm ティスプレイ） 

¥ 79,800 

CZ-6FD5 (微微プ） 

¥ 99,800 

標準価格 _ ¥377,800 

標準価格 _ ¥477,600 

価 ¥268,000 



〈全商品新品完全保証付〉 

★シャープ•シャープ闽辺機器（拡張機器全機灌、プリンター他）•富士通 .NEC 常時取り扱い。 
★シャープ•カシオボケコン全*種取り扱い〇 PACIFIC，YHP. キャノンも取り扱い。 

★学校、企業納入受け賜ります。送料別料金。★上記商品価格には、消費税は含まれておりません。 
★特価表及び資料をご希望の方は、72円切手を同封の上お送りください。 

通信販売のお問い合せ、御注文は 

TEL042B-45 -咖1(本店） FAX.0426-44-6002 

翁営業時間/10:00〜19:00•電話受付/,9:00 〜 22:00 迄可籲 定休日/水曜日 


アイビツト電子株式会社亍192東京都ハ王子市北野町 560-5 



★ 送料はご注文の際にお問い合わせ下さい。 

HRI *掲敉の商品は、すべて新品、保証押付きてす。 

1 t ★掲敝の商品は充分用意してありますが、ご注文の際 

H is sac は、在庫の確認の上、現金窬留または、銀行振込で 
1畐 57 C お机込み卜•さい。^:商品クレジットでも扱っております。 

北海道から沖縄までし忠 tr 狐て下さぃ。 

富士銀行八王子支店（普）1752505 








漏™てル/ 



MBIT 

アイビット電子株式会社 


店舗移転在庫処分セ— 1 ル 


標準価格特価 

CZ-602CBK ¥356,〇〇〇 '： ¥140,000 
CZ-603CGY ¥338,〇〇〇 ^ ¥150,000 
CZ-623CTN ¥498,〇〇〇 c ¥210,000 
CZ-B44CTN ¥518,000 c 特価 


TOSHIBA 


CZ-653CBY 

CZ-662CBK 

CZ-B62CGY 

CZ-8PK7 


標準価格 特価 

¥285,000 〇 ¥130,000 
¥408,000 〇 ¥1 的， 000 
¥408,000 〇 ¥180,000 

¥ 122,000 〇 ¥ 49,800 


oyna 



一太郎 dash 

口ータス1 - 2 - 3内蔵 
k 標準価格 ¥ P 48,000 C >! f § fi[li 


SHARP SUPER EXE SHOP 


上記の広告商品はすべて店頭販売もしております。 


他周辺機器及びボケコン全機種取 D 扱い。 


新発売 


至京王八王子 

















































竹 03 - 3730-6271 


♦営業時間 AM 11:00〜 9.00/日曜•祭日 PM 7/00 

〒144東京都大田区蒲田 4-6-7 FAX03-3730-6273 


電話一本で、八イ即納 


全国通販 


定休日:毎週火曜日 

(祭日の場合翌日になります0 


OCT-1 システムインフォメーション 

► 企商品保証付（メーヵー保証） 

► 紹低企乐 II ノ、、ブト°—クレ、ソ • ソト f 1 lul ~ fiOlnl) 帕余十シ OK ノ 



■店頭にて、新作ゲームソフト S 〜 30 %OFF ガ（税別）、起低金利オクトハッピークレジットをご利用下さい•グ 


パソコンブラザ 


オクトで始まるパソコンワ 


■SX-68M II MIDK ンターフェイスボート 

(システムサコム）¥ 19,800 ...特価 ¥13,500 
■モデム 〔FMMD-311G〕，2400bps. クラス 5 
(Fujitsu) ¥35,800 . 特価 ¥24,000 

■增設 RAM ボード=卜0データ 

① PIO -6 BE 1- A (1 MB ) 




店頭セール実施中 




► ボーナス•彳ス■払し、〇 K / ボーナス 「2回*4回 • 6回1 払し、〇 K / 
► 配违丨1の指定 OK /(万全な#ポート体制) 

の斜1合せ肖由/ I オクトフリニ ツムシス铜 
► i /' iiiri デモンストレーシヨン夾施屮 


■ 


V 25,000 . 特価¥15,800 

CDPIO -6 BE 2-2 M (2 MB ) 

V 50,000 . 特価¥31，〇〇〇 

⑧ PIO -6 BE 4-4 M (4 MB ) 

¥88,000 . 特価 ¥54，< 

® SH -6 BE 1-1 M (1 MB ) 

V 25,000 . 特価¥17, 


4,000 

7,800 



7口〒蒲紙〜/镑望の覆の fe - 鮮 


u 田方トクに貿ッ C 氪分爽快， 


SHARP 


XX6B000 

PERSONAL WORKSTATION-XV! 


I GZ - ffMC - IW (定価 ¥ 298,000) 


Gompoct : 


16MHz ■ 

SX-WINDOW verl.1■ 

Attachment MEMORY BORD ■ g 


®# CZ -674 C-TN 

• CZ -608 D - TN (14 型カラーディスプレイ） 


定価合計¥392,8〇，超格砥¥283,000 


] i ¥25,900 2 A ¥13,700 3 向 6 ¥ 9,500 4 问 8 ¥ 7,500 


(©• CZ -674 C-TN 

• CZ -607 D - TN (14 型カラ-ディスプレイ tv ) 


定価合計 ¥397 800 ►超格価 ¥285,000 

;13.80011 [¥ 9,60011 [¥ 7,500 


•TN 

■TN (15 型カラーディスプレイ TV ) 



定価合計 ¥433,000 ►超格価 ¥310,000 



MM 


ジ7卜は送料•税込 i 


① CZ -674 CH く 本体〉 + CZ -608 DH く モニタ-〉 
+ CZ -6 FD 5(5 インチドライブ） 


定価合計 ¥492,600 ►超犄®¥320,000 




¥29.300 1 ¥15,500 | ¥10.800 | ¥ 8.500 


② CZ -674 CH く 本体〉 + CZ -606 D く モニタ-〉 
+ CZ -6 FD 5(5 インチドライブ） 


定価合計 ¥477,600 ►超秸価¥310,000 


L2 ¥28,400 2 4 ¥15,100 | ¥10,400 S ¥ 8,200 


い 


H ¥28,3001 ¥15,000 I ¥10,400 | ¥ 8.200 


©• CZ -674 C-TN 

• CZ -606 D - TN ( m 型カラ-ディスプレイ） 


定価合計¥ 377.800 ► 超格 ffl¥270,000 


L 2 ¥24,700 U ¥13,100 I ¥ 9,100 S ¥ 7,100 


X68000 Compact 

大好胖記念フレゼント// 

一あなたの才外から散な！•物 

( 今、 Compact をお買い上げいただ。 

た方は、プレゼントの®#か②番 
のどちらかをお*び下さい。ブラ 
ス⑧番は、もれな〈プレゼント/// 


※送料¥2,000 •税別 

(クレジット価格は、送料•税込） 


③ 


»MF-2HD(5 枚） 

►シリコンキーボードカパ 



もれなく •ダサービス•グ 


※どちらかお選び下さい.グ 
(どっちが得かヨーク考えてネ /) 


■本体 セツド 送料無料 （注)本体セット以外の周辺機器(プリンター、モデム、 HDD 等)及びソフトの送料は、北海道•九州地区=1ケロ ¥1500、■その他離島地区は、1ケロ ¥2000となります。 
※上記料金には、消費税は含まれておりません。消費税が付加されますので、詳しくは、電話でお問合せ下さい。 


■システムサコム 

► HD-J040 

V 89,000 42 M /25 ms . 大特価¥ 61,00(! 

» HD-U100 

¥ 128,000 100 M /20 ms . 大特価¥ 87,0 Of ) 

» HD-J130 

¥ 148,000 l 30 M /20 ms . 大特価 ¥101,000 

• HD-U170 

¥ 189,800 l 73 M /20 ms . 大持価¥123,000 

■ ロジテック IscsTl 

• LHD-FM100E 

¥ 99,800 100 M . 大特価 ¥ 69,000 

» LHD-FM200E ： 

¥ 138,000 200 M ハ 7 ms . 大特価¥ 95,000 

■エニックス ； SCSM 
» EFX-100B 

V I 18,000 100 M /19 ms • • •. 大特•(而 TE し下さ V «、 

• EFX-140B 

¥138,000 I 40 M / I 6 ms .. ■.大特価 TE し下さ V *、 


• CZ -6 BE 2 A 2 MBRAM ( CZ -634 C /644 Cffl ).(¥ 59,80 0) ►特価 ¥42,500 

• CZ -6 BE 2 B 2 MBRAM ( CZ ^34 C /644 C /674 Cffl ).( ¥ 54,80 0) ►特価 ¥39,200 

• CZ -6 BE 2 D 2 MBRAM ( CZ -674 Cffl ).(¥ 54,80 0) ►特価 ¥39,000 

• CZ -6 BE 2 2 MB RAM .(¥ 79,80 0) ►特価 ¥59,000 

• CZ -6 BE 4 C 4 MB RAM . (V 98,00 0) ►特価 ¥73,000 

• CZ -6 BR 增 15 用略232ボ-ド .(¥ 49, 800) ► 特価 ¥35,800 

• CZ -6 BGI GP 4 B ボ-ド. .(¥ 59,80 0) ►特価 ¥42,800 

• CZ -6 BMI MIDI ポ-ド .(¥ 26,80 0) ►特価 ¥19,200 

• CZ -6 BNI スキけ用パラレルポ-ド .(¥ 29,80 0) ►特価 ¥21,500 

• CZ -6 BPI 数僅演算プロセッサポード .（ ¥ 79, 800) ► 特価 ¥57,000 

• CZ -6 B 0 I ユンいサル I / O ポ-ド .(¥ 39,80 0) ►特価 ¥29,800 

• CZ *6 EBI / BK 拡供 I / O ボックス. .（ ¥ 88,00 0) ►特価 ¥66,000 

• CZ -6 VTI/BK カラー f メ-ジ .：!； ット .(¥ 69,80 0) ► 特価 ¥52,000 

• CZ 4 NM 2 A マウス’ .(¥ 6,80 0) ►特価¥ 5,100 

• CZ ^ NTI マウストラックポ-ル .(¥ 9,800) ► 特価¥ 7,300 


• CZ -8 NSI カラ ー* f メージスキ^ナ .(¥ 188,00 0) ►特価¥132，_ 

• CZ -6 BCI FAX ^- K -.(¥ 79,80 0) ►特価¥ 57,000 

• CZ -8 TM 2 .(¥ 49,80 0) ►特価¥ 37,000 

• LCMOOH カラ-液リディスプレイ . (V 59,80 0) ►特価¥ 45,800 

• CZ -6 TUGY/BK RGB システムチユ-ナ- .( ¥ 33,1 00) ►特価¥ 23.800 

• BF >68 PRO 高性能 CRT フィ)け- . (¥ 19,80 0) ►特価¥ 14,500 

• cz-aviOi 光磁気 ディスク: U ： •外 .（ ¥ 450,00〇) ► 特価¥330,000 

• CZ -6 BSI SCSI インタ-フエ-スポード .(¥ 29, 800) ► 特価¥ 22,000 

• CZ -6 BL 2 LAN ポード .(¥ 298,80 0) ►特価 ¥219,000 

• CZ -6 BVI (ビデオボ-ド) .(¥ 21,00 0) ►特価 ¥ 15,400 

• CZ 4 BP 2 数儐演算プ a セツサ .(¥ 45,80 0) ►特価¥ 34,300 

• AN * SI 00 スピーカ■システム(沐1組) .(¥ 36,60 0) ►特価¥ 26,300 

• JX -220 X カラ-イメージスキ^ナ- .( ¥ 168,00 0) ►特価 ¥120,000 

• CZ -6 C&SCSI 変換 ケ-ブル .(¥ 12,00 0) ►特価 ¥ 8,900 


※クレジットの回数は1回〜60回、ポーナス併用などありますのでお電話でお問合せ下さい 


周辺機器コーナー （送料 ¥500) 


ハ-ドチイ久ク (送料 ¥ 1,000) 


ComDact 國セツト 


格潘固边檐器 (送料 ¥500) 



_翌月末|括9月末)払い0<//:手数料無料//:ご利用下さい。_店頭にて、新作ゲ|ムソフト25〜30%0ド11//: 





















































































































































































■特に人気のある商品によっては、しばらくお待ち願うことがありますのでご了承下さい// 



さらに/ ★JOY CARD (邃財 41X2AB 

さらにさらに.グ ★MD-2HD 10枚 


X 68000 PROII 

( CZ -653 C ) 


定価 ¥285,000 


起特価 


墨 〆 


MCZ-653C (定価 ¥285.000) 

® • CZ -653 C + CU -2 IHD 

定価合計¥ 433.000 ► 超精鑣笑 meoa 


©• CZ -653 C + CZ -607 D 

定価合計¥ 384.800 ► a 辖钃 ¥meoo 


(©• CZ -653 C + CZ -606 D 

定価合計 ¥ 364.800 ► a»«¥meflg 

圓 显|[刺!^1 


◎ • CZ -653 C + CZ -614 D 

定価合計¥ 42 0.000 ► 超精僅 ¥23 feeq<r 

IpiWflD 



営々のラインアツフ次 


X680O0XVr / 今、 xvi をお買い上げいた 

トヽクカー：//フレゼント// のど ' ちらかお選び下さい。 

-あなたの才外から棄敵な贈物一 \ス③番はもれなくプレゼント.グ/ 





(送料 • 猶羹税込） 

超特価¥耧念/赛示不能//® 


、ボー ナ爻く 2回 *4 回 *6 回〉 
^ ^OOK// 李数料無》// 

■ CZ -634 CMW (定価 ¥ 368,000) 

® • CZ-634C-TN +CZ-606D-TN 
定価合計 ¥447,800 S 格® ¥* 示不能/ 



| ¥27,600 

1 

¥14,600 

1 

¥10,100 

48 

回 

¥ 8,000 

® • CZ-634C-TN + CZ-614D-TN 
定価合計 ¥503.000 ►超格価示不齙 / 

12 

回 

¥31.200 

0 

¥16.600 

1 

¥11.500 

48 

回 

¥ 9.000 

■ CZ - 644 C - 7W (定価 ¥ 518, 〇〇〇 ) 

© • CZ-644C-TN + CZ-606D-TN 
定価合計 ¥597,800► 超格 ® ¥裹示不齙 / 

0 

¥37,400 

2 回 4 1 ¥19,800 || 

¥13.700 

置 

¥10,800 

©• CZ-644C-TN + CZ-614D-TN 
定価合計 ¥653,000 « 秸価 ¥* 示不能 / 


¥40,900 


¥21,700 

3 回 6 

¥15,000 


¥11.800 


D(10 枚) 

1 キー ポ ー ドカバ ー 


もれなく.ダサ-ビス•グ※ クレジット表は、送料.消費税込/ 


ス 

參 

4 

回 

6 

回 

い 

〇 

K 

// 

手 


J 




〈グラフィック〉 Cs STAFF PRO 哪 Ver.2.0 
(シャフト)定価 ¥58,000 

特価 ¥36,500 

〈レイアウト〉 •Pressconductor PRO-68K 
定価 ¥28,000 CZ-268BSD 

. 特価 ¥21,000 


〈開発ツ-ル〉 •(： コンパイラ PRO*68KVer.2.1 〈統合表計算ソフト〉 BUSINESS PRO^K 
定価 ¥44,800 CZ-285LSD Popular 定価 ¥28,000 CZ-286BSD 

特価 ¥32,500 特価 ¥21,000 

く C 言語〉 • C & Professional Pack 〈音楽〉 • Music studio PRO-68K Ver.2.0 
定価 ¥58,000 定価 ¥28,800 CZ-261MS 

特価 ¥39,600 特価 ¥21,200 

<CG シール〉 # CANVAS PRO-68K くワープロ >• Multiword Ver.1.1 <OS>#OS-9 X68000 Ver.2.4 

定価 ¥29,800 CZ-249GS 定価 ¥32,000 CZ-225BSD 定価 ¥35,800 CZ-284SSD 

特価 ¥22,200 特価 ¥23,000 特価 ¥26,900 




ICZ-8PC5-BK 

熱転写カラー漢字 
定価 ¥96,800 

大特価 ¥68,800 

■10-735X-B 

カラーイメージ 

ジェット 

定価 ¥248,000 

¥154,000 


M 


■内蔵用ハ•ードテンスク 

く Compact XVI(CZ-674C) 用〉 
[KGU-HD80K] 

Compact HD-80 キット 
定価 ¥ 168,000 

限定格 BMH ¥ TEL 下さ!/)/ 

■5 インチフロッピ-ディスクユニット 

<X68000Compact(CZ-674C-H) 用〉 
[CZ-6FD5J 


定価 ¥ 99,800 

雌特麵格 ¥ TEL 下さ！/)/ 


I 



®5 段キャスター付 
スライド式キーボード台 
• I 150(H) X 640 (W) 
x600(D) 

定価 ¥38,000 

特価 

¥12,500 



©4 段キャスタ-付 

I250(H)X640(W) 
x700(D) 

定価 ¥29,800 


特価 

¥8,800 


店頭新作ゲームソフト25〜 30%OFF, グビジネスソフト25%より特価中 


// 

マ、 

莉 

用 

下 

さ 

い 

〇 

■ 

店 

頭 

に 

て 

作 

ゲ 

I 

厶 

ソ 

フ 

卜 

25 

30 

% 

□ 

F 


★通循販売お申込みのご案内 ★ 〒丨44東京都大田区蒲田 4-6-7 TEL：03-3730-627l 

お屮込みはお屯話でお顧いします。お容保のく fK 所〉く氏名〉ぐ也坫番け〉及び<商品名〉をお知らせドさい。*人金確認後ただちに商品をご送付いたします 0 

才外 ，クラク タヒ晖 ■ 富士銀行 

専用お申込用紙をお送り致します 
ので、必要寧項をご記入、ご捺印の上 
ご返送下さい。手続きは簡単です 


銀行振込:お近くの銀行より(電信扱い〉にて 
お振込み下さい。 

現金書留：封筒の中に住所•氏名•商品名を 
ご記入の上当社までお送り下さい, 


容俅のく f 

圓 


& 

3.5 

6 

回 

4.5 

10 

回 

6.0 

12 

回 

6.0 

15 

回 

9.0 

18 

回 

11.0 

20 

回 

12.0 

24 

回 

12.5 

30 

回 

17.0 

36 

回 

17.5 

48 

回 

23.0 

60 

回 

33.0 


三菱銀行 
久ヶ原支店蒲田支店 
@ N 0.1824 @ N 0.0278691 
株式会社億人(オクト） 


※掲載の価格は変動しますので、まずは、お電話にてご確認ください。 

※上記料金には、消費税は含まれておりません。消費税が付加されますので、詳しくは電話でお問合せ下さい 
※銀行振込、または、現金書留でご注文の際には、あらかじめ電話でご確認の上、お申し込み下さい。 


CZ-212BS 

CZ-213MS 

CZ-275MWD 

CZ-215MS 

CZ-287SS 

CZ-220BS 

CZ-272CWD 

C2-224LS 

C2-253BS 

CZ-258BS 

CZ-244SS 

CZ-247MS 

CZ-240BS 

C2-243BS 


(BUSINESS PRO-68K> (V 
く MUSIC PR 06810 (¥ 

く SOUND SX-68IO (¥ 
く Sampling PR0.68K〉（¥ 
<SX-WIND0W Ver.2.0〉（¥ 
(DATA PRO-68K> (¥ 
(Communication SX*68K> (¥ 
く THE 福袋 V2.0> (¥ 

く CARD PRO-68K^ri.O>(¥ 
CTIepotion PRO-68K) (¥ 
〈Homan 68K Ver.2.0> (¥ 
く MUSIC P_K_I〕> い 
く Stationery PRO-68K〉（¥ 
(CYBER NOTE PRO-68K>(V 


68,00 0) ¥ 48,000 

18.80 0) ¥ 13.200 

)¥TEL 下さい 

17.800) ¥ 12,500 

12.800) ¥ 9,600 
58,000) ¥ 40,000 
13, 咖） ¥ 15,300 
9,900) ¥ 7,400 

29.800) ¥ 20,800 

22.800) ¥ 16,800 
9,80〇) ¥ 7,500 
28,80〇) ¥ 20,800 
14,800) ¥ 11,500 
19,80〇) ¥ 15,200 


<Z's TOPHY ( デジタルクラフト)〉 
く行ッッォ ( ハミングバード)〉 

く KAMIKAZE ( サムシ Z グ 7 卜 *)> 
く Final 伽 .3.2( エ - エスピー)〉 
くサイク Q ン EXPRESSa68> 
く G ツール ( ザインソフト)〉 
くた一みのる 2 (SPS)> 
<G68K Ver.2 PR0> 
(C-TRACE68 Ver.3.0> 
CZ-251BS くハィパーワード〉 
CZ-260LS <XBASto CHECKER PRO-68K) 
CZ-234LS<AI-68K> 

CZ-255GS く CANVASS - グラフィック UB> 
CZ-256GS く CANVAS ド a- グラフィック M2> 


(¥ 39,800) ¥ 27,000 
(v 19,40 〇) ¥ 13,600 
(¥ 68,000) ¥ 43,800 
(¥ 38,000) ¥ 29*000 
(¥ 98,000) ¥ 69 湖 0 
(¥ 28,00〇) ¥ 18,600 
(¥ 17,800) ¥ 13,000 
(¥ 22,000) ¥ 17^00 
(¥ 98,000) ¥ 68,500 
(¥ 39,800) ¥ 29,400 
(¥ 9.800) ¥ 7,500 
(¥188,000) ¥139,000 
(V 8,800) ¥ 6,600 
(¥ 8,800) ¥ 6,600 


ラストチヤンス// 


八ソコンラックく送料無料〉 


X 68 D 00 ソフト大セール実施中// (ゲ-ムソフト 25 〜 30% OFF ) (送料¥500〉 


(送料 ¥1.000〉 


參目の推奨品 ( 送料丫し〇⑽ 


X68000PROII 


く BIG プレゼント付〉 


(送料無料•税別) 


現金括払い 
























































































































































▽イコンシヨツブ川 □ 


Q0482-E5-1718 


(消費税別） 



CZ -674 C-H . ¥298.000 

CZ -608 D-H . ¥ 94,800 

AV -090 -SC . ¥168,000 


中古売買価格表 


品 名 



ソフト各種超特価こ'奉仕中 


New XBBQOO 
COMPACT XVI 


プリンタ- 


CZ -219 SS OS -9 /XBBOOO ••…疆 ¥29.800 
CZ -213 MS MUSIC PR 0 fi 8 Ki ¥ 18,800 
CZ -214 MS SOUND PRO ■濡¥15,800 
CZ -2 I 5 MS P 闩 OBBK ** …… 需 ¥17-800 
CZfOBS DATA PR 068 K ••需¥58,000 
CZ •删 LSThB 福袋 VeitD …濡 ¥ 9,980 
CZ -225 BS Multiword •……§¥32,000 
CZ -2 S 1 BS Hyper word ••… 需 ¥39,80 0 

ラムポード 


CZ-633C 

CZ-644C 

CZ-613C 

CZ-603C 

CZ-612C 

CZ-602C 

CZ-B53C 

CZ-BB3C 

CZ-B62C 

CZ-B52C 

CZ-611C 

CZ-601C 

CZ-B18D 

CZ-602D 

CZ-B03D 

CZ-604D 

CZ-B05D 


買取!9価格 


160,000より 
210.000より 
105,000より 
75,000より 
85,000より 
65,000より 
75,000より 
95,000より 
75,000より 
55,000より 
70,000より 
45,000より 
35.000より 
30.000より 
20,000より 
25.000 より 
45.000 より 


売 価 


180,000 より 
230-000 より 
125,000 より 
95,000 より 
98,000 より 
85,000 より 
95,000 より 
115,000 より 
98,000 より 
75,000 より 
89,000 より 
65.000 より 
45,000 より 
39,800 より 
29,800 より 
34,800 より 
55.000 より 


フアイル 


CZ-6VT1. 

CZ-8PG1. 

CZ-8PG2. 

CZ-8PK10. 

CZ-8NS1. 

CZ-6BC1. 

CZ-6BG1. 

CZ _ 6BP1. 

CZ-6BP2. 


•特価 ¥[ 
•特価 ¥[ 
.特価 ¥[ 
.特価¥ 
•特価¥ 


.特価 ¥[ 


.特価 ¥[ 
•特価 ¥[ 
.特価 ¥[ 


CZ-6BE2A …•定価¥5,0…特価 ¥[ 
CZ-6BE2 日…•定価¥5棚]…特価 ¥[ 
CZ-6BE2D ••••定価 ¥□"__¥[ 
CZ-6BE1B ••••定価 ¥2 B ,_. ..特価 ¥[ 
CZ-6BE2 ……定価¥7_…特価 ¥[ 
CZ-BBE4C •••定価 ¥98册"特価 ¥[ 
PI0-6BE 卜 A. •定価¥25朋…特価 ¥[ 
PI0- 阳 E2-2M 定価 ¥50,000 ...特価 ¥[ 
PIO-6BE4-4M 定価 ¥昍,000•.•特価 ¥[ 
SH- 阳 EHM •.定価 ¥25,000 •..特価 ¥[ 


CZ -6 M 01- 
CZ 冊.. 
CZ -6 BH 〜 


•定価¥咖朋特価¥1 — ~I 
•定価¥孤咖特価¥1 ~I 
.定価職咖特価 ¥□ 


その他機種 


CZ -8 NS 1 カラ-イメ-ジスキャナ..定価¥凱咖特価 ¥□ 
JX -220 X カラ-イメ-ジスキャナ…定価¥16晒特価 ¥□ 
CZ - BBN 1 スキャナ用パラレルポ-ド..定価¥ 29.删特価 ¥□ 
CZ -6 VT 1 カラ-イメ-ジニット.■定価¥ 69.800特価 ¥□ 

CZ -6 BV 1 ビ饰 K - ド . 定価¥乩〇〇〇特価¥1 — ~1 

CZ -0 TM 2 モデム:じット . 定価¥ 49,800特価¥「 

CZ -8 NJE 欲群外 . 定価¥ 23.800特価 ¥□ 

CZ -8 NM 3 マウス•トラックボ-ル..定価¥ 9,删特価 ¥□ 

CZ -8 NT 1 トラックボ-ル . 定価¥ 6細特価 ¥□ 

CZ - BNJ 1 ジョイカ-ド……- 

CZ -6 BC 1 FAX ボ-ド . 

CZ -6 BM 1 A MIDI ボ-ド…•- 
CZ -6 BP 1 随駢プ D セッサ- • 

CZ -6 BP 2 雖演算ブロセツサ.. 


•定価¥ 6,删特価 ¥[ 

•定価¥1.700特価¥1 ~~1 
•定価¥ 7晒特価 ¥□ 

•g®¥ ?6,8 〇〇 mm I 

•定価¥ 79,800特価 ¥□ 
■$«¥ 45.800特価¥「 
CZ -6 TU - BK-GY 巽驾 i テム定価¥ 33,100特価 ¥[ 


★クレジット回数】〜 60 回まで設定自由 


1丨回数 11 

3 


12 

15 

^ 20 J 

24 

ぶ5 

幻 

| 1 金利(％)丨 2.5 

3.5 

4.5 

6 

9 

[ J 2 ；\ 

11.5 



:|:28了|画 


中古品も取扱ってお D ます。 


■ 


Compg^r 






lmWhl 








天印の道路は一方通行てす。 




通鼸売をご利用の方 

一全国通販一 

通信販売をご利用の方は、売値の 
変動がありますので在庫、値段を 
あらかじめ確認のラえ電話で、商 
品名及びお客様の住所•氏名•電 
話番号をお知らせ下さい。 




























































































































































絶賛発売中/ 

CD-ROM Drive 


X68000 Pro SHOP 


B ASIChOUSE 

KEISOKUGIKENCoro . 


TEL 0286 -22-9811 FAX 0286 -25-3970 


for 

XJ68000 

マルチメディアへの誘い 


FirstClassTechnology_,OCD.ROM 
Device Driver を付属させ、ついに X 68000 用 
CD-ROM Drive の登場です。本製品を使用す 
ることにより、 MS - DOS や PC -9801 シリー 
ズ、 FM - TOWNS などで採用されている、 
ISO 9660規格の CD を Human 68 K / SX - WIN - 
D 0 W で直接扱えるようになります。 

また、将来の拡張にも柔軟に対応できる 
SCSI インタ ー フェースによる接続を採用。 
デイジーチェーンによつて既存の SCSI ハー 
ドディスクとの同時使用も可能です。 


担当登坂高明 



ドライブ仕様 


型番 KGU-XCD 


2_5inch 80MBHD を内蔵 
X68000CompactHD 



,——標準価格¥466,000 —— x 

通販特価販売中 

売価は電話にてお問い合わせください！， 


ドライブ 

Ouantum Go -80 s ™ 
容暑 

62 MByte 

アクセスタイム 

16 mSEC 

インターフエース 

SCSI 


外部 SCSI 機器との同時使用可 


使用ドライブ 
平均アクセスタイム 
インターフェース 
キャッシュメモリー 


東芝 XM -3301 

325 mSEC 

SCSI 

64 KB 


オーデオ出力 RCA - Phono 端子 X 2 

ステレオへッドホン端子 
電源 専用 AC アダプター 

外形寸法 150 X 228 X 50 (電源部含まず) 


» SCSI ケープル•ターミネーターは別売になります。 


付属 サボー トソフト 


IS 09660 準拠デバイスドライバ 

MusicPIayer for SX-Window 

Macintosh ™ 用ファイルビューア forSX-Window 


, - KGU-XCD 対応- 

X 68000 CD - ROM 第一弾！「フリーウェァ集」 
Free Soft Ware Selection - CD 68 K 
近日発売 

CD - ROM 広辞苑検索ユーティリティ for SX-WINDOW 

_近 d 発 

標準価格 ¥118,000- 

«MacintoshTM は AppleComputer の登録商標です 


低金利クレジット通信販売送料全国一律 Y 1.000 長期クレジット可能 

株式会社目十)則ネ支5开 マイコン ショップ BASIC HOUSE 


本社/シヨールーム/通販部 


•卜表示価格に消費税は含まれておりません 

亍321栃木県宇都宮市竹林町 503-1 

TEL 0286 -22-981 1 FAX 0286 -25-3970 






















「野邊ゲ_ムテザイナーズアカテ 5_ j 受講生募集/ 


「ゲーム創りを自分の手で」こんな熱意が巷に沸騰中。この 
期をとらえ、野邊ゲームデザイナーズアカデミーは「コンピュー 
タゲームのノウハウを通信教育で…』を全面に押し出して、 
ゲームデザイナー養成の道を拓きました0さあ、意欲は持って 
いるのにチャンスに恵まれなかった皆さん、いまこそ全員集合 
です。 

二 ^03(3280)0743 

※お問い合わせ受付時間/ AM1 〇:〇〇〜 PM8:00 (土 •日 • 祝は休み） 


ガイドフロッピ__請求 IE ちら！ 

※ガイドフロッピー&資料請求をご希望の方はミ住所、氏名、年 
齢、職業、電話番号と持っているパソコンの機種名、ご覧の 
雑誌名を明記の上、ハガキでお申し込み下さい。 

く宛先〉〒丨50東京都渋谷区恵比寿 2-32-23 

NOVE GAME DESIGNER'S ACADEMY 

野邊ゲームデザイナーズアカデミー 

_ 」 




ガイドフロッピーは SHARP X 68000 全 
シリーズ用と PC 980 I ( VM 以降）シリー 
ズに対応の N 88日本語 BASIC (86) 用と 
の2種類を用意してあります。 

なお、メディアは5インチです。 


自宅でできるゲームデザイナー養成講座 


ガイドフロッピー無料進呈! 


先着500名様 




迷つてい茗访は 


〇 


キ2 fc けかも 
さ7!決€た、 


進路はゲー厶デザイナ 



〇 


■野邊ゲ—ムテザイナ—ズアカデミ—第 2 期受講生募集は、いよいよ平成 4 年 9 月 30 日で 〆 切りです。お申し込みはお早めに！ 























SHARP 


提供するのは、 X 的000の 


コンピューター事業拡張につき 
プログラマー 募集/ 


勤務地大阪•東京•岡山 

(男女不問•現地面接可） 

■会社概要 
設 立■昭和44年 
資本金《»1,500万円 
従業員数 ■ 17名 
平均年齢 ■ 26歳 
■事業内容 

パーソナルコンピュータ . AX による自社ソフトパツケー 
ジの開発及びオーダーメイド販売サポート 
X 68000 による 幽像作成業務 
資 格 ■ 高卒以上30歳位迄の方 

※未経験者歓迎 

給 与■経験•能力等与慮の上、当社規定により優 

遇いたしま1；例25歳 ⑧176,000円 
※別途報奨金制度あり 

侍 遇■昇給年1回•赏与年2回手当/業務•営業 
•皆勤交通费全額支給 
勤務時間 ■ 9:00〜18:00 

福利厚生■各種社会保険完備返職金制度財形貯 
蓄制度社内旅行有 


才能をひき出す仕事です。 


経験の有無を問わず、 X 68000 大好吉人間歓迎。経験者には、実 
力を発揮する場を、未経験者には丁寧な指導をお約束します > 

シャープ、 XEROX 等のシステム機器販売から、シャープ.コンピユーターの 
システムプレゼンテーターとしてメーカーの期待を担う当社で活躍して下 
さい。 


株式会 ft ラインシステム 

本社〒553大阪市福島区鷥洲3丁目1 TEL 0 B -458-7313 担当菊田 

〒115東京都北区浮間 3-2-16 エスポワール403 TEL 03-5994-2087 担当鈴木 


休日休暇 ■ 隔週休2 H 制(完全週休2日制も検討中） 
祝日 

有給•特別 • 夏期*年末年始休暇等 
応 募■電話連絡の上、脱歴赴（写輿貼付） 

を持参又は郵送して下さい。追って詳 
細を連絡いたしま1； 

※入社日相談に応じま1； 

※応募の秘密敝守 L 、たしま1； 

交 通_阪神、地下鉄野田駅下車徒歩7分 





UNIX から DOS へ一 X 68000 の移植を通して 


吉野智興村上敬一郎共著 

B 5 変型判/240ページ 定価2,200円(税込） 

g ++、 gcc 、 Nemacs を、 X 68000 に移植するその 
経緯とノウ八ウを紹介。68000系のマシンだけで 
なく、8086系のマシンへの移植も可能です。プロ 
グラムを UNIX から DOS へ移植しようとしている方 
に贈る一冊！ 


お近くの鲁店でお求め下さい 

ソフトバンク出版事業部 


SOFT 

BANK 




















ASSESS 


for lYeeooo 


V 70 アクセラレータがどろして速いのか 
その秘密をこっそり教えて上げましよラ。 

それは賢い小人さんがだ<さん住んでいるからなのです。 

この小人さん達はお絵描きが大好きです。 

グラフィック演算はまかせなさい I 

レイトレーシングだってあっといラ間にほらっできあがり。 

V 70 と X 68000 との面倒なやりとりもみ一んなやって <れるので 
材料さえ渡しておけばあら簡単 I 

靴屋のおじいさんのよラに「眠っている間に」ではな<、 

あなたが「お茶を飲んでいる間に」出来上がっているといラわけです。 
あなだになら小人さん達の頑張っている姿が見えるかも知れませんね。 



V 70 のヒ 


VDTK-X68K の仕様 

• V 70 CPU (" PD 7063 2) 

20 MHz 32 ビットマイクロプロセッサ 
# V 70 AFPP (パ PD 72691) 

フローテイング•ポイントプロセッサ 
•メインメモリ ( DRAM )2 M バイト 

同ーページ内のアクセスは No Wait 
•共有メモリ ( SRAM )128 K バイト 
X 68000 との通信用 

參併行動作 X 68000 と V 70 は、併行に動作 
することが可能。 

データの受け渡し処理のために双方向ハ 
ンドシェーク I / O ポートを搭載。 


※製作：ボード . 

ソフトウェア， 


•有限会社 アクセス 
•株式会社 ハ ド ソン 


同梱ソフトウェア 

❿アセンブラ 
•リンカ 

•ソースコードデバッガ 
#システムモニタ 
#フロートエミュレータ 
#コマンドシェル 

オプションソフトウェア 

•(デコンパイラ 

( VDTK - C - X 68 K ) 


価格 

⑩ボードパッケージ 

VDTK-X68K-- 


( XVI 対応） 

•¥248,000 


籲オプションソフト （ C コンバイラ） 

VDTK-C-X68K. 


. ¥68,000 

購入方法 

上記商品は当面の間、通信販売のみとさせて頂きます。 

購入ご希望の方は、住所、（社名、所厲）氏名、電話番号をお 
矢 a らせ下さい。注文害をお送りし、たします。 


•社 M 募集のお知らせ：アクセスでは技術者を葬集しております。担当（田村)までご連絡下さい。 

〒1〇丨東京都千代田区神田神保町卜64 
神保町協和ビル 7 F 
► «〇3 (3233) 0200(イ t ) FAX . 03 (3291)7019 


囍アクセス: 




クセラレータ VDTK - X 6 已 K 


V 70 


















































夕す / Jil - ラベルシリース 



《もし、この時代にパソコン通信があったなら》 


親子の愛は、7つの海をかけめぐる。 



ピノキオ 


あやつり人形のピノキオは、ある時、そのつくり手ゼペット 


じいさんの「子供が欲しい」という願いから、妖精の手で「自一 


分で動く」あやつり人形になりました。よろこんだおじいさん 


の愛情からピノキオは学校へ。でも、惡いキツネたちにそその 
かされて、サーカス へと 入団してしまいます。まわりの言葉に 
まどわされながら、人間への道を模索するあやつり人形ピノキ 
才の冒険は、妖精に鼻をニヨキニヨキ伸ばされたり、あそびの 
島に迷いこんで ロバに されかけたりしながらも、「おじいさん 


のもとへ帰りたい」というピノキオの熱い気持ちから、広く大 

きな海の屮へと、 W 険の舞台を広げるのでした。 もし、この時代にパソコン通信があつたなら 


世の中の流行や、うまい話についのってしまろ。悪い仲間に 
そそのかされるピノキオは、まさに私たちの姿そのものかもし 
れません。もしこの時代にパソコン通信があれば、ピノキオだ 
って悪いキツネの意見だけでなく、もっと広い観点からの意見 
を参考にできたでしよう。なにより、ゼぺットじいさんが、世 
界の果てまで自分を探しに出かけているといラことを、ネット 
ワーク上の世間話から知ることがで吉、もっと早くに本物の人 
間になれていたことでしよう。 

パソコン通信なら、こんな楽しさ。 

パソコン通信では、さまざまな職種、さまざまな生き方をし 
ている人が肩書きにとらわれずに話し合っています。思いがけ 
ない出会いや、広い視野。あなたも「あやつり人形 J ではない、 
自分の世界を見つけませんか7パソコン通信だから手に入る楽 
しさですね。 



J&PHOT LINE への 
ご入会は スター タキ ツ トで。 



お求めは、下記のお店へ。又は現金書留に 
て、¥3,000+¥90(消費税3%)=¥3,090を 

事務局までお送 1 0下さい。 

すぐにスタータキツトをお送りします。 


お問い合わせは一 

〒55 B 大阪市浪速区日本橋西 1- B -5 上新電機株式会社 
JSP HOTLINE 事務局宛 TE し (06)632-2521 


スタータキッ KO お求めは JSP 各店でどラ否 

渋谷店 東京都渋谷区道玄坂2 -28— 40(03)3496-4141 
町田店 東京都町田市森野1 -39 — 160(0427)23-1313 
八王子店 東京都八王子市旭町 1-1 八王子そごう 7 FO (0426)26-4141 


立川店 東京都立川市幸町4 - 39- 10(0425)36-4141 
三腫店 東京郡三臘市野崎1_ 20- 170(0422)31-5251 
横浜店 横浜市西区北幸 2-9-5 横浜 HS ビル 1 FO (045)3〗3-5711 
焼津インター店柃岡県焼津市越後島 3850(054)626-3311 
富山店富山市掛尾 町 3000 (0764) 22-5033 
金沢店 金沢市入江 2 - 630(0762)91-1130 

寺地店 金沢市寺地 2 - 30(0762)47-2524 

大須店 名古屋 m 中区大須4 一 2 - 480(052)262-1141 
テクノランド大阪市浪速区日本橋5 - 6 - 70(06) 634-1211 


メディアランド 大阪市浪速区日本橋5 - 8 - 260(06) 634-1511 
コスモランド 大阪市浪速区雔波中 2-1- 丨 70(06) 634-3111 
U . S . LAND 大阪市浪速区日本搞 4-9 - 150(06) 634-1411 
ビジネスランド 大阪市北区梅日1+3大阪駅前第3ヒル B 2 O (06) 348-1881 
高槻店 高槻市5槻町 11-160(0726)85-1212 
くずは店 枚方市楠葉花園町 15- 20(0720)56-8181 
千里中央店 豊中市新千里東町 1-3 SENCHU PAL 2 IHJi 4 Fn (06) 834-4141 
摂津富田店高槻市大畑町24 - 100(0726)93-7521 
寝屋川店 薄屋川市緑町4 - 200(0720)34-1166 
校方 ハイハス 店 枚方市田口 3 - 41 - 70(0720)48-1211 
强并寺店 藤井寺市岡 2 — 1- 330(0729)38-2111 
岸和田店 岸和田市土生町2451- 30(0724)37-1021 


$んのみや1はん g 神戸市中央区八锩通 3-2 — 16»(078)231-2111 
西宮店 西宮市河原町 5 - im ⑴ 798)7 卜1171 
伊丹店 伊丹市昆陽池丨- 630(0727)77-5101 
姫路店 姬路市東延末 M 住友生命姫路南ヒル 1 Ftl (0792)22-122 l 
京都寺町店 京都市下京区寺町通仏光寺下ル惠比須之町5490 (075) 34卜4411 
京都近鉄店 京都市下京区鵜九通七条下ル東塩小路町7020 (075) 341 -5769 
和歌山店 和歌山市元寺町4 一 4 tt (0734)28-1441 
和歌山南店 和歌山市中島 3680(0734)25-1414 
学園前店奈良市学囿北丨 - 8 - 100(0742)49-1411 
奈曳1はん館 奈良市三条町478- 10(0742)27-1111 
新大宮店 奈良市法華寺町83 - 50(0742)35-2611 
郡山インター店 大和郡山市横田693 - 10(07435)9-222^ 
熊本店 熊本市手取本町 4 -120(096)359-7800 


















SHARP 
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いわば“感性”専用。 


ことマインドに関しては 

「汎用」という概念は存在しないも同じです。 

「実用的である」のと、これなら「使える」というのも違いま1； 

X 68000 が、普通のパソコンとは違うといわれる所以もここにありま to 


いわゆる実用性を重視したビジネスパソコンとは PERSONAL WORKSTATION. XVI 


創造力で一線を画しています。 

何に使うのか、何がしたいのか、 

パソコン選びのポイントは目的にあったマシンを探すこと。 

普通のパソコンに合わせるのでは 

あなたのせっかくの創造力も発揮されません。 

X 68000 は、使う人のクリエイティブマインドを咲力 >せる 
“感性”専用パソコンで1"。 


Compoct 

本体+ キーポー ド+ マウス 

2 HD 3.5 インチ FDD タイプ CZ -674 C H (グレー)挖準価格298.0001リ(税別） 

14型カラーディスプレイ（ドットピッチ〇 . 28_) 

CZ -608 D - H ( グレー）楞咿価格94, 8001']( 税別） 

参「1.烈インチ增投 HJ フロッピーディスクドライブ CZ ( iFD 5 捻* VW ® 格99.800円.税別〔核紋ケープル MAH 〕 
•ディスプレイテレビ/ CZ -6 TUMmGB ケーブル CZ -6 CR 1 標咿価格4.500 IH •税別 
•デイスプレイテレビ/ CZ . fiTU 川テレビコントロールケーブル CZ -6 CT 1 標咿価格5,500ドト税別 
參 SCSI 変換ケーブル CZ - fiCSlKT ゆ価格12.000円•税別 



( カラー液品デ< スプレイとの、 

V 組み合わせ例 ノ 

10.41? TFT カラー液品テ*イスプレイ 
LCM 0 C 1 -H (グレー)標準価格598.000円(税別) 
接校ケープル AN -1515 X 樣準価格4,200円(税別) 


少カラー液品ディスプレイを接統してご使用の壜合， 
SX-WINDOW 上のアプリケーション利用に 
限率されます。 


參お間い合わせは… 

欲和•茶株式会«贸子機器亊槊本部システム機器営業部〒545大阪市阿倍野区長池町22番22号 0(06)621-1221( 大代表） 1® 子 W 器#業本部 AVC システム事業推進室〒162東京都新宿区市谷 A 播町8番地 tt(03)3260-l〗61( 大代表） 
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